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

(eval-last-sexp): Fix bug#71774

Browse source 
* lisp/progmodes/elisp-mode.el (eval-last-sexp): Set `values` only
when `eval-expression-debug-on-error` is nil.
This commit is contained in:
Stefan Monnier 2024-06-27 14:39:27 -04:00
parent 6d94090cad
commit bf8c9f702b
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1633,7 +1633,10 @@ integer value is also printed as a character of that codepoint.
If `eval-expression-debug-on-error' is non-nil, which is the default, If `eval-expression-debug-on-error' is non-nil, which is the default,
this command arranges for all errors to enter the debugger." this command arranges for all errors to enter the debugger."
(interactive "P") (interactive "P")
(values--store-value (funcall
;; Not sure why commit 4428c27c1ae7d stored into `values' only when
;; `eval-expression-debug-on-error' was nil, but let's preserve that.
(if eval-expression-debug-on-error #'identity #'values--store-value)
(handler-bind ((error (if eval-expression-debug-on-error (handler-bind ((error (if eval-expression-debug-on-error
#'eval-expression--debug #'ignore))) #'eval-expression--debug #'ignore)))
(elisp--eval-last-sexp eval-last-sexp-arg-internal)))) (elisp--eval-last-sexp eval-last-sexp-arg-internal))))