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

(edit-and-eval-command): Likewise.

diff --git a/lisp/simple.el b/lisp/simple.el
index 776e9cb7d4589afa81089ce116d9d0ffe07bbb2c..2cb169e6f18b9381d7d909d8df27d5efa3639fa2 100644 (file)
--- 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)