Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 19:37:58 +00:00
Code Issues Projects Releases Packages Wiki Activity

(eval-expression): Don't bind minibuffer-history-sexp-flag.

Browse source 
(edit-and-eval-command): Likewise.
This commit is contained in:
Richard M. Stallman 1993-11-19 17:43:24 +00:00
parent 7ce370e11f
commit b387ef9a4f
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/simple.el
View file

@ -383,10 +383,9 @@ Other major modes are defined by comparison with this one."
"Evaluate EXPRESSION and print value in minibuffer.
Value is also consed on to front of the variable `values'."
(interactive
(let* ((minibuffer-history-sexp-flag t))
(list (read-from-minibuffer "Eval: "
nil read-expression-map t
'read-expression-history))))
(list (read-from-minibuffer "Eval: "
nil read-expression-map t
'read-expression-history)))
(setq values (cons (eval expression) values))
(prin1 (car values) t))
@ -394,11 +393,10 @@ Value is also consed on to front of the variable `values'."
"Prompting with PROMPT, let user edit COMMAND and eval result.
COMMAND is a Lisp expression. Let user edit that expression in
the minibuffer, then read and evaluate the result."
(let* ((minibuffer-history-sexp-flag t)
(command (read-from-minibuffer prompt
(prin1-to-string command)
read-expression-map t
'(command-history . 1))))
(let ((command (read-from-minibuffer prompt
(prin1-to-string command)
read-expression-map t
'(command-history . 1))))
(eval command)))
(defun repeat-complex-command (arg)