diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 7 |
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)) |