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

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 062bb7534a2032b7e67b0bfc69bf15e151672a36..252e35d33cb1589b87f4c6c35a839acc9a503e90 100644 (file)
--- 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.