mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20: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 
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

1
lisp/emacs-lisp/edebug.el
View file

@ -527,6 +527,7 @@ the minibuffer."
(setq face-new-frame-defaults
(assq-delete-all (nth 1 form) face-new-frame-defaults))
(put (nth 1 form) 'face-defface-spec nil)
(put (nth 1 form) 'face-documentation (nth 3 form))
;; See comments in `eval-defun-1' for purpose of code below
(setq form (prog1 `(prog1 ,form
(put ',(nth 1 form) 'saved-face

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