Commit 683e7415 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 2f71b5ea
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment