From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 8 Feb 2021 07:15:45 +0000 (+0100)
Subject: Record the value of `C-x C-e' in `values'
X-Git-Tag: emacs-28.0.90~3872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4428c27c1ae7d5fe5233e8d7b001a8cd2fcdc56f;p=emacs.git

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.
---

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)