Mercurial > emacs
changeset 52566:38d8d37f129a
(eval-expression): Bind standard-output in to-buffer case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 22 Sep 2003 15:11:02 +0000 |
| parents | 26d1a4665f6c |
| children | 22ddccd48cc0 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Sep 22 12:55:25 2003 +0000 +++ b/lisp/simple.el Mon Sep 22 15:11:02 2003 +0000 @@ -663,7 +663,8 @@ (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)