]> git.eshelyaron.com Git - emacs.git/commitdiff
Avoid using `(lambda ...) to build function values
authorStefan Monnier <monnier@iro.umontreal.ca>
Wed, 14 Jun 2023 21:06:37 +0000 (17:06 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Wed, 14 Jun 2023 21:06:37 +0000 (17:06 -0400)
* lisp/emacs-lisp/nadvice.el (advice-eval-interactive-spec): Avoid
`(lambda ...).

lisp/emacs-lisp/nadvice.el

index e6977f2012a7404442499e155eac5a84fc72a0cf..cd80df2c41d8b29c62f9f4c355879eb846d6a042 100644 (file)
@@ -176,7 +176,9 @@ DOC is a string where \"FUNCTION\" and \"OLDFUN\" are expected.")
     ;; FIXME: Despite appearances, this is not faithful: SPEC and
     ;; (advice-eval-interactive-spec SPEC) will behave subtly differently w.r.t
     ;; command-history (and maybe a few other details).
-    (call-interactively `(lambda (&rest args) (interactive ,spec) args)))
+    (call-interactively
+     ;; Sadly (lambda (&rest args) (interactive spec) args) doesn't work :-(
+     (cconv--interactive-helper (lambda (&rest args) args) spec)))
    ;; ((functionp spec) (funcall spec))
    (t (eval spec))))