From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 20 Sep 2012 03:29:41 +0000 (-0400)
Subject: * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): Fix last change.
X-Git-Tag: emacs-24.2.90~269^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a04bee953b9b74c5ef24691e32c6b6d55ae1e4b;p=emacs.git

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

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)))