]> git.eshelyaron.com Git - emacs.git/commit
nadvice.el: Avoid exponential blow up in interactive-form recursion
authorStefan Monnier <monnier@iro.umontreal.ca>
Sat, 13 Aug 2022 16:03:22 +0000 (12:03 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sat, 13 Aug 2022 16:04:29 +0000 (12:04 -0400)
commitdd2973bf5040d26d29a937d252eeaf2884dca9fb
treeef063a3ecb770068d823623f6446b3f3f251080d
parenta1cf3b96f84794b708a9d80281d4e9deadfb610c
nadvice.el: Avoid exponential blow up in interactive-form recursion

* lisp/emacs-lisp/nadvice.el (advice--interactive-form): Sink the call
to `commandp` into the autoloaded function case since it's redundant in
the other branch.
(advice--make-interactive-form): Take just the interactive forms rather
than the actual functions as arguments.
(oclosure-interactive-form): Use `advice--interactive-form` rather than
`commandp` since we'd call `advice--interactive-form` afterwards anyway.
lisp/emacs-lisp/nadvice.el