From: Roland McGrath <roland@gnu.org>
Date: Mon, 26 Jul 1993 18:32:07 +0000 (+0000)
Subject: (read-expression-history): New defvar.
X-Git-Tag: emacs-19.34~11562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8570b0ca3c4182824a5d4757c5b525138ccc5087;p=emacs.git

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

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))