diff options
| author | Noam Postavsky | 2016-06-09 21:54:13 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2016-08-06 16:16:02 -0400 |
| commit | 4dec928691d91e8c46ca56ebda5b17a806aa076b (patch) | |
| tree | 275b636eeb007ff2982920125ee72e84cce4e209 | |
| parent | ff400557e8d28d53d745f04268a35fb3e3e3ddf8 (diff) | |
| download | emacs-4dec928691d91e8c46ca56ebda5b17a806aa076b.tar.gz 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).
| -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: | |||
| 364 | `(list 'lambda '(&rest --cl-rest--) | 364 | `(list 'lambda '(&rest --cl-rest--) |
| 365 | ,@(cl-sublis sub (nreverse decls)) | 365 | ,@(cl-sublis sub (nreverse decls)) |
| 366 | (list 'apply | 366 | (list 'apply |
| 367 | (list 'quote | 367 | (list 'function |
| 368 | #'(lambda ,(append new (cadr f)) | 368 | #'(lambda ,(append new (cadr f)) |
| 369 | ,@(cl-sublis sub body))) | 369 | ,@(cl-sublis sub body))) |
| 370 | ,@(nconc (mapcar (lambda (x) `(list 'quote ,x)) | 370 | ,@(nconc (mapcar (lambda (x) `(list 'quote ,x)) |