mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(eval-expression): Bind standard-output in to-buffer case.

Browse source
This commit is contained in:
Richard M. Stallman 2003-09-22 15:11:02 +00:00
parent 2f71b5eae8
commit 683e741557
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/simple.el
View file

@ -663,7 +663,8 @@ the echo area."
(print-level eval-expression-print-level))
(if eval-expression-insert-value
(with-no-warnings
(eval-last-sexp-print-value (car values)))
(let ((standard-output (current-buffer)))
(eval-last-sexp-print-value (car values))))
(prin1 (car values) t))))
(defun edit-and-eval-command (prompt command)