From: Brian Fox Date: Mon, 25 Oct 1993 06:07:23 +0000 (+0000) Subject: (eval-expression, edit-and-eval-command): Let X-Git-Tag: emacs-19.34~10965 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=adca5fa6ccdc30ceea907f1468fccef707988a6d;p=emacs.git (eval-expression, edit-and-eval-command): Let minibuffer-history-sexp-flag be 't during the call to read-from-minibuffer. --- diff --git a/lisp/simple.el b/lisp/simple.el index a9a262cee16..8babd63b47d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -382,9 +382,11 @@ Other major modes are defined by comparison with this one." (defun eval-expression (expression) "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))) + (interactive + (let* ((minibuffer-history-sexp-flag t)) + (list (read-from-minibuffer "Eval: " + nil read-expression-map t + 'read-expression-history))) (setq values (cons (eval expression) values)) (prin1 (car values) t)) @@ -392,15 +394,11 @@ 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 ((command (read-from-minibuffer prompt - (prin1-to-string command) - read-expression-map t - '(command-history . 1)))) -;;; Don't add the command to the history; read-from-minibuffer has -;;; already done that. -;;; ;; Add edited command to command history, unless redundant. -;;; (or (equal command (car command-history)) -;;; (setq command-history (cons command command-history))) + (let* ((minibuffer-history-sexp-flag t) + (command (read-from-minibuffer prompt + (prin1-to-string command) + read-expression-map t + '(command-history . 1)))) (eval command))) (defun repeat-complex-command (arg)