From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Aug 1997 21:28:21 +0000 (+0000)
Subject: (eval-expression): Prefix arg means insert value in current buffer.
X-Git-Tag: emacs-20.1~434
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecb7ad00485adc5160411650ac7514dff9b3b8d9;p=emacs.git

(eval-expression): Prefix arg means insert value in current buffer.
---

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.