diff options
author | Noam Postavsky <npostavs@gmail.com> | 2016-06-09 21:54:13 -0400 |
---|---|---|
committer | Noam Postavsky <npostavs@gmail.com> | 2016-08-06 16:16:02 -0400 |
commit | 4dec928691d91e8c46ca56ebda5b17a806aa076b (patch) | |
tree | 275b636eeb007ff2982920125ee72e84cce4e209 /lisp/emacs-lisp | |
parent | ff400557e8d28d53d745f04268a35fb3e3e3ddf8 (diff) | |
download | emacs-4dec928691d91e8c46ca56ebda5b17a806aa076b.tar.gz emacs-4dec928691d91e8c46ca56ebda5b17a806aa076b.tar.bz2 emacs-4dec928691d91e8c46ca56ebda5b17a806aa076b.zip |
Fix quoted lambda warning from lexical-let
* lisp/emacs-lisp/cl.el (cl--function-convert): Quote the inner lambda
with `function', not `quote' (Bug #11357).
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/cl.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index fac600e4e13..c3d3feae876 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -364,7 +364,7 @@ The two cases that are handled are: `(list 'lambda '(&rest --cl-rest--) ,@(cl-sublis sub (nreverse decls)) (list 'apply - (list 'quote + (list 'function #'(lambda ,(append new (cadr f)) ,@(cl-sublis sub body))) ,@(nconc (mapcar (lambda (x) `(list 'quote ,x)) |