diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-08 08:15:45 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-08 08:15:45 +0100 |
| commit | 4428c27c1ae7d5fe5233e8d7b001a8cd2fcdc56f (patch) | |
| tree | 49995ed427e9cba1af3b1182f2d3ffbf440b5e12 | |
| parent | 9fdc753e1450d1b2eb610ef4fc55460d63688799 (diff) | |
| download | emacs-4428c27c1ae7d5fe5233e8d7b001a8cd2fcdc56f.tar.gz | |
Record the value of `C-x C-e' in `values'
* lisp/progmodes/elisp-mode.el (eval-last-sexp): Record the value
in `values' (bug#22066) since we're messaging it.
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 9348a7f0d2f..a0968663163 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -1268,7 +1268,9 @@ If `eval-expression-debug-on-error' is non-nil, which is the default, this command arranges for all errors to enter the debugger." (interactive "P") (if (null eval-expression-debug-on-error) - (elisp--eval-last-sexp eval-last-sexp-arg-internal) + (let ((value (elisp--eval-last-sexp eval-last-sexp-arg-internal))) + (push value values) + value) (let ((value (let ((debug-on-error elisp--eval-last-sexp-fake-value)) (cons (elisp--eval-last-sexp eval-last-sexp-arg-internal) |