# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1064243462 0
# Node ID 38d8d37f129abd6544ac0d2ee92587ccef31aaf0
# Parent  26d1a4665f6cb4fc2420e62772c4c5c947efcabf
(eval-expression): Bind standard-output in to-buffer case.

diff -r 26d1a4665f6c -r 38d8d37f129a lisp/simple.el
--- 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)