changeset 5068:9a42f23df119

(eval-expression): Don't bind minibuffer-history-sexp-flag. (edit-and-eval-command): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Nov 1993 17:43:24 +0000
parents 4854aff5c5b3
children 47cc31b47402
files lisp/simple.el
diffstat 1 files changed, 7 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Nov 19 16:19:32 1993 +0000
+++ b/lisp/simple.el	Fri Nov 19 17:43:24 1993 +0000
@@ -383,10 +383,9 @@
   "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 @@
   "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)