From 7f5b319886fac0bf379dada4a8c2cbd8dc4fe3c7 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Fri, 13 Jul 2012 20:15:22 +0200 Subject: [PATCH] Fixes: debbugs:11938 * emacs-lisp/cl.el (labels): Remove spurious quote. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/cl.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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))) -- 2.11.4.GIT