Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 38566:795feb9422e4
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 26 Jul 2001 09:28:58 +0000 |
| parents | df8cff64f0f3 |
| children | 107f826252d2 |
comparison
equal
deleted
inserted
replaced
| 38565:af9f5dd840a3 | 38566:795feb9422e4 |
|---|---|
| 375 expr | 375 expr |
| 376 'args))))) | 376 'args))))) |
| 377 expr)) | 377 expr)) |
| 378 (set-syntax-table stab)))))) | 378 (set-syntax-table stab)))))) |
| 379 (let ((print-length eval-expression-print-length) | 379 (let ((print-length eval-expression-print-length) |
| 380 (print-level eval-expression-print-level)) | 380 (print-level eval-expression-print-level) |
| 381 (prin1 value))))) | 381 (start (point))) |
| 382 (prin1 value) | |
| 383 (when (bufferp standard-output) | |
| 384 (put-text-property start (point) 'printed-value value)))))) | |
| 382 | 385 |
| 383 (defun eval-last-sexp (eval-last-sexp-arg-internal) | 386 (defun eval-last-sexp (eval-last-sexp-arg-internal) |
| 384 "Evaluate sexp before point; print value in minibuffer. | 387 "Evaluate sexp before point; print value in minibuffer. |
| 385 Interactively, with prefix argument, print output into current buffer." | 388 Interactively, with prefix argument, print output into current buffer." |
| 386 (interactive "P") | 389 (interactive "P") |