diff options
author | Richard M. Stallman <[email protected]> | 1993-11-19 17:43:24 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-11-19 17:43:24 +0000 |
commit | b387ef9a4fb0451325564ea74dc64186bd12d995 (patch) | |
tree | 29c224c0bcf8f1876bf06e5e3972d987b6ebc90a /lisp/simple.el | |
parent | 7ce370e11ffa9d1c7355b2bb162e0900f46b921e (diff) |
(eval-expression): Don't bind minibuffer-history-sexp-flag.
(edit-and-eval-command): Likewise.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 776e9cb7d4..2cb169e6f1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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) |