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

Ensure redisplay after "C-x C-e"

Browse source 
* lisp/progmodes/elisp-mode.el (elisp--eval-last-sexp): Make sure
redisplay happens to account for any side effects of the evaluated
sexp.  (Bug#21835)
This commit is contained in:
Eli Zaretskii 2015-11-06 11:28:46 +02:00
parent 2b316c0581
commit 29c360ee1c
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/progmodes/elisp-mode.el
View file

@ -1116,10 +1116,17 @@ include additional formats for integers \(octal, hexadecimal, and
character)."
(let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
;; Setup the lexical environment if lexical-binding is enabled.
(elisp--eval-last-sexp-print-value
(eval (eval-sexp-add-defvars (elisp--preceding-sexp)) lexical-binding)
eval-last-sexp-arg-internal)))
(prog1
(elisp--eval-last-sexp-print-value
(eval (eval-sexp-add-defvars (elisp--preceding-sexp)) lexical-binding)
eval-last-sexp-arg-internal)
;; If we are going to display the result in the echo area, force
;; a more thorough redisplay, in case the sexp we evaluated
;; changes something that should affect the display of the
;; current window. Otherwise, Emacs might decide that only the
;; echo area needs to be redisplayed.
(if (eq standard-output t)
(force-mode-line-update 'all)))))
(defun elisp--eval-last-sexp-print-value (value &optional eval-last-sexp-arg-internal)
(let ((unabbreviated (let ((print-length nil) (print-level nil))