mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-08-24 21:28:21 +00:00
parent b87fe54b9f
commit ecb7ad0048
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/simple.el
View File

@ -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.