Fixes: debbugs:11938

* emacs-lisp/cl.el (labels): Remove spurious quote.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d5c4fd61cce732dc256b355ec79ddb7e1edf9e5..1f44136f83949426cce9741369c322c46b1d64d1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-13  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * emacs-lisp/cl.el (labels): Remove spurious quote.  (Bug#11938)
+
 2012-07-13  Juanma Barranquero  <lekktu@gmail.com>
 
        * bindings.el (top): Use `mapc' instead of `mapcar'.

diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el
index e1e4002949110d232a8a791b5929d4f85fed7af8..32cf1670744578e04f9c4bf96f507cbc0bae3769 100644 (file)
--- 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)))