[Emacs-diffs] /srv/bzr/emacs/trunk r103924: * lisp/emacs-lisp/lisp-mode.el (eval-defun-2): Use eval-sexp-add-defvars.

[Stefan Monnier]

------------------------------------------------------------
revno: 103924
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-04-15 09:57:53 -0300
message:
  * lisp/emacs-lisp/lisp-mode.el (eval-defun-2): Use eval-sexp-add-defvars.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/lisp-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-15 12:35:32 +0000
+++ b/lisp/ChangeLog    2011-04-15 12:57:53 +0000
@@ -1,5 +1,7 @@
 2011-04-15  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/lisp-mode.el (eval-defun-2): Use eval-sexp-add-defvars.
+
        * htmlfontify.el (hfy-etags-cmd): Remove inoperant eval-and-compile.
        (hfy-e2x-etags-cmd, hfy-etags-cmd-alist-default)
        (hfy-etags-cmd-alist): Don't eval-and-compile any more.

=== modified file 'lisp/emacs-lisp/lisp-mode.el'
--- a/lisp/emacs-lisp/lisp-mode.el      2011-04-01 15:16:50 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el      2011-04-15 12:57:53 +0000
@@ -844,7 +844,7 @@
           (end-of-defun)
           (beginning-of-defun)
           (setq beg (point))
-          (setq form (read (current-buffer)))
+          (setq form (eval-sexp-add-defvars (read (current-buffer))))
           (setq end (point)))
         ;; Alter the form if necessary.
         (setq form (eval-defun-1 (macroexpand form)))