* lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix last change.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2266f9952f..9d9949c3999 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * emacs-lisp/macroexp.el (macroexp--expand-all): Fix last change.
+
 2012-09-19  Juri Linkov  <juri@jurta.org>
 
         * dired-aux.el (dired-diff): Add (require 'diff) because
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 6a84be06728..f9be3e4fcc4 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -149,7 +149,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
                      (symbolp (car form))
                      (get (car form) 'byte-obsolete-info))
                 (macroexp--funcall-and-return
-                 (lambda () (byte-compile-warn-obsolete ',(car form)))
+                 (lambda () (byte-compile-warn-obsolete (car form)))
                  #'ignore      ;FIXME: We should `message' something.
                  new-form)
               new-form)))