procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
is a buffer, put a text property `printed-value' on the printed
representation, with the Lisp object printed as value.
This commit is contained in:
Gerd Moellmann 2001-07-26 09:28:58 +00:00
parent 11c7811337
commit 6849e6d5ee
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/lisp-mode.el
View file

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