character)."
(let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
;; Setup the lexical environment if lexical-binding is enabled.
- (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)))))
+ (elisp--eval-last-sexp-print-value
+ (eval (eval-sexp-add-defvars (elisp--preceding-sexp)) lexical-binding)
+ eval-last-sexp-arg-internal)))
(defun elisp--eval-last-sexp-print-value (value &optional eval-last-sexp-arg-internal)
(let ((unabbreviated (let ((print-length nil) (print-level nil))