[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 4b2d77d: * lisp/emacs-lisp/macroexp.el (macroexp-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs-25 4b2d77d: * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix (bug#19704) |
Date: |
Sat, 11 Jun 2016 21:38:15 +0000 (UTC) |
branch: emacs-25
commit 4b2d77d8dbd5b051bb681bacaee4a6faffbbdde9
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix (bug#19704)
Don't rewrite (funcall 'f ...) to (f ...).
---
lisp/emacs-lisp/macroexp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index ed4d6e4..310ca29 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -261,7 +261,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
(format "%s quoted with ' rather than with #'"
(list 'lambda (nth 1 f) '...))
(macroexp--expand-all `(,fun ,arg1 ,f . ,args))))
- (`(funcall (,(or 'quote 'function) ,(and f (pred symbolp)) . ,_) . ,args)
+ (`(funcall #',(and f (pred symbolp)) . ,args)
;; Rewrite (funcall #'foo bar) to (foo bar), in case `foo'
;; has a compiler-macro.
(macroexp--expand-all `(,f . ,args)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 4b2d77d: * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix (bug#19704),
Stefan Monnier <=