# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 743711527 0
# Node ID 4d0c57f01eeddbd1737660e18c05d0a26c23e4c3
# Parent  64c6649f40b87df78bab3b14ad3f72408a26660b
(read-expression-history): New defvar.
(eval-expression): Use it has history var in interactive spec.

diff -r 64c6649f40b8 -r 4d0c57f01eed lisp/simple.el
--- a/lisp/simple.el	Mon Jul 26 17:37:11 1993 +0000
+++ b/lisp/simple.el	Mon Jul 26 18:32:07 1993 +0000
@@ -375,13 +375,16 @@
 
 (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))