diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-09 10:56:51 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-11-09 10:56:51 -0500 |
| commit | f5925cd9f5e525c1e023c163338ccbf6c19e9ef0 (patch) | |
| tree | b88154dcf0138fa83a3b61d14a307b22ffd31212 /lisp/emacs-lisp | |
| parent | 719b0aa5096a455e4c3f87b789bbad7d35489ca3 (diff) | |
| download | emacs-f5925cd9f5e525c1e023c163338ccbf6c19e9ef0.tar.gz emacs-f5925cd9f5e525c1e023c163338ccbf6c19e9ef0.tar.bz2 emacs-f5925cd9f5e525c1e023c163338ccbf6c19e9ef0.zip | |
* lisp/emacs-lisp/bytecomp.el (byte-compile-out-toplevel): Don't turn
(funcall '(lambda ..) ..) into ((lambda ..) ..).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 9baa95dffaa..a325e0f3e44 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2823,7 +2823,8 @@ for symbols generated by the byte compiler itself." (setq body (nreverse body)) (setq body (list (if (and (eq tmp 'funcall) - (eq (car-safe (car body)) 'quote)) + (eq (car-safe (car body)) 'quote) + (symbolp (nth 1 (car body)))) (cons (nth 1 (car body)) (cdr body)) (cons tmp body)))) (or (eq output-type 'file) |