diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-04-15 09:57:53 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-04-15 09:57:53 -0300 |
| commit | 6f5424852f2892364f69fbd47b197fc94010f79c (patch) | |
| tree | 0802e72529a1363b6183e44d53ee8dce7e786ae1 /lisp/emacs-lisp | |
| parent | 70f6144dbd8ab3f9f1d57f65cc795a6e78c4c4d9 (diff) | |
| download | emacs-6f5424852f2892364f69fbd47b197fc94010f79c.tar.gz | |
* lisp/emacs-lisp/lisp-mode.el (eval-defun-2): Use eval-sexp-add-defvars.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 39bdb505039..04299aec099 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -844,7 +844,7 @@ Return the result of evaluation." (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))) |