From: Andreas Schwab Date: Fri, 13 Jul 2012 18:15:22 +0000 (+0200) Subject: Fixes: debbugs:11938 X-Git-Tag: emacs-24.2.90~1199^2~8 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f5b319886fac0bf379dada4a8c2cbd8dc4fe3c7;p=emacs.git Fixes: debbugs:11938 * emacs-lisp/cl.el (labels): Remove spurious quote. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d5c4fd61cc..1f44136f839 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-07-13 Andreas Schwab + + * emacs-lisp/cl.el (labels): Remove spurious quote. (Bug#11938) + 2012-07-13 Juanma Barranquero * bindings.el (top): Use `mapc' instead of `mapcar'. diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index e1e40029491..32cf1670744 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -489,7 +489,7 @@ will not work - use `labels' instead" (symbol-name (car x)))) "Make temporary function bindings. Like `cl-labels' except that the lexical scoping is handled via `lexical-let' rather than relying on `lexical-binding'." - (declare (indent 1) (debug cl-flet) (obsolete 'cl-labels "24.2")) + (declare (indent 1) (debug cl-flet) (obsolete cl-labels "24.2")) (let ((vars nil) (sets nil) (newenv macroexpand-all-environment)) (dolist (binding bindings) ;; It's important that (not (eq (symbol-name var1) (symbol-name var2)))