(read-expression-history): New defvar.

(eval-expression): Use it has history var in interactive spec.

1 files changed, 5 insertions, 2 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 1a4dfb5a9a7..c697a4c95d0 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -375,13 +375,16 @@ Other major modes are defined by comparison with this one."
 
 (put 'eval-expression 'disabled t)
 
-;; We define this, rather than making  eval  interactive,
+(defvar read-expression-history nil)
+
+;; We define this, rather than making `eval' interactive,
 ;; for the sake of completion of names like eval-region, eval-current-buffer.
 (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)))
+                                           nil read-expression-map t
+                                           'read-expression-history)))
   (setq values (cons (eval expression) values))
   (prin1 (car values) t))