From ecb7ad00485adc5160411650ac7514dff9b3b8d9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Aug 1997 21:28:21 +0000 Subject: [PATCH] (eval-expression): Prefix arg means insert value in current buffer. --- lisp/simple.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index aa9fa97aeaa..798a706886e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -514,15 +514,18 @@ Other major modes are defined by comparison with this one." ;; We define this, rather than making `eval' interactive, ;; for the sake of completion of names like eval-region, eval-current-buffer. -(defun eval-expression (eval-expression-arg) +(defun eval-expression (eval-expression-arg + &optional eval-expression-insert-value) "Evaluate EXPRESSION and print value in minibuffer. Value is also consed on to front of the variable `values'." (interactive (list (read-from-minibuffer "Eval: " nil read-expression-map t - 'read-expression-history))) + 'read-expression-history) + current-prefix-arg)) (setq values (cons (eval eval-expression-arg) values)) - (prin1 (car values) t)) + (prin1 (car values) + (if eval-expression-insert-value (current-buffer) t))) (defun edit-and-eval-command (prompt command) "Prompting with PROMPT, let user edit COMMAND and eval result. -- 2.39.2