Mercurial > emacs

diff lisp/simple.el @ 52566:38d8d37f129a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 3e7ed05e4684
children ae9d36444079
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)