procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
after the `eval-defun-1' specialcaseing
like in `edebug-eval-defun'.

* lisp/emacs-lisp/edebug.el (edebug-eval-defun): Set `face-documentation'
like in `eval-defun-1'.

Fixes: debbugs:10181
This commit is contained in:
Juri Linkov 2012-05-27 12:45:54 +03:00
parent 50c4645e2c
commit e4d4f53985
3 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -829,10 +829,10 @@ Return the result of evaluation."
(end-of-defun)
(beginning-of-defun)
(setq beg (point))
(setq form (eval-sexp-add-defvars (read (current-buffer))))
(setq form (read (current-buffer)))
(setq end (point)))
;; Alter the form if necessary.
(setq form (eval-defun-1 (macroexpand form)))
(setq form (eval-sexp-add-defvars (eval-defun-1 (macroexpand form))))
(list beg end standard-output
`(lambda (ignore)
;; Skipping to the end of the specified region