From 683e7415579eb28241550a16118acf3b62f89996 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Sep 2003 15:11:02 +0000 Subject: [PATCH] (eval-expression): Bind standard-output in to-buffer case. --- lisp/simple.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index ed2d57150ba..b0d5f7295f9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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) -- 2.39.2