mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 23:40:24 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/lisp-mode.el (eval-defun-2): Use eval-sexp-add-defvars.

Browse source
This commit is contained in:
Stefan Monnier 2011-04-15 09:57:53 -03:00
parent 70f6144dbd
commit 6f5424852f
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2011-04-15 Stefan Monnier <monnier@iro.umontreal.ca> 2011-04-15 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp-mode.el (eval-defun-2): Use eval-sexp-add-defvars.
* htmlfontify.el (hfy-etags-cmd): Remove inoperant eval-and-compile. * htmlfontify.el (hfy-etags-cmd): Remove inoperant eval-and-compile.
(hfy-e2x-etags-cmd, hfy-etags-cmd-alist-default) (hfy-e2x-etags-cmd, hfy-etags-cmd-alist-default)
(hfy-etags-cmd-alist): Don't eval-and-compile any more. (hfy-etags-cmd-alist): Don't eval-and-compile any more.

2
lisp/emacs-lisp/lisp-mode.el
View file

@ -844,7 +844,7 @@ Return the result of evaluation."
(end-of-defun) (end-of-defun)
(beginning-of-defun) (beginning-of-defun)
(setq beg (point)) (setq beg (point))
(setq form (read (current-buffer))) (setq form (eval-sexp-add-defvars (read (current-buffer))))
(setq end (point))) (setq end (point)))
;; Alter the form if necessary. ;; Alter the form if necessary.
(setq form (eval-defun-1 (macroexpand form))) (setq form (eval-defun-1 (macroexpand form)))