* lisp/emacs-lisp/lisp-mode.el (eval-sexp-add-defvars): Expand macros

eagerly.

Fixes: debbugs:14422

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d33cec3ab05eb5c3ebbe76962b8417ae89724cd8..ac3dbcf906b8a5dc499ca3a612cb0a9b11976516 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/lisp-mode.el (eval-sexp-add-defvars): Expand macros
+       eagerly (bug#14422).
+
 2013-06-03  Michael Albinus  <michael.albinus@gmx.de>
 
        * autorevert.el (auto-revert-notify-enabled)

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index ae8550525244d24fc851762afb3b443b7426a7ab..02b020fa2419161071a32b69652a65c64d249ba3 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -809,6 +809,7 @@ With argument, print output into current buffer."
 (defun eval-sexp-add-defvars (exp &optional pos)
   "Prepend EXP with all the `defvar's that precede it in the buffer.
 POS specifies the starting position where EXP was found and defaults to point."
+  (setq exp (macroexpand-all exp))      ;Eager macro-expansion.
   (if (not lexical-binding)
       exp
     (save-excursion