# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 996139738 0
# Node ID 795feb9422e40d31f355f0de82b15d0824443184
# Parent  af9f5dd840a35fae14b8253166dd8a1b1bb091f3
(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 -r af9f5dd840a3 -r 795feb9422e4 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Thu Jul 26 02:35:08 2001 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Thu Jul 26 09:28:58 2001 +0000
@@ -377,8 +377,11 @@
 			   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.