bug#71934: 31.0.50; edebug--called-interactively-skip vs. new fun objects

[Michael Heerdegen via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> I pushed a patch to `emacs-30` which should fix this.
> Can you confirm it fixes it in your real use case as well?

Thanks.  Other use cases are fixed as well - but advices are broken :-(

#+begin_src emacs-lisp
(defun f (x)
  (interactive "P")
  (message "c-i: %s" (called-interactively-p 'any)))

(advice-add 'f :around (defun my-f--around-ad (f &rest args) (apply f args)))

(global-set-key [print] #'f)
#+end_src

Hitting [print] says nil.  AFAIU this should also work transparently,
right?  The breakage seems to date further back in this case.


And i have another request: could you please search for the few other
occurrences of the symbol 'closure' in the Emacs Elisp code base?  I
guess in most cases there is a need to update these places, too.


Regards,

Michael.