(eval-last-sexp-1): If standard-output

is a buffer, put a text property `printed-value' on the printed
representation, with the Lisp object printed as value.

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 062bb7534a2..252e35d33cb 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -377,8 +377,11 @@ With argument, print output into current buffer."
                            expr))
                      (set-syntax-table stab))))))
       (let ((print-length eval-expression-print-length)
-            (print-level eval-expression-print-level))
-        (prin1 value)))))
+            (print-level eval-expression-print-level)
+            (start (point)))
+        (prin1 value)
+        (when (bufferp standard-output)
+          (put-text-property start (point) 'printed-value value))))))
 
 (defun eval-last-sexp (eval-last-sexp-arg-internal)
   "Evaluate sexp before point; print value in minibuffer.