Mercurial > emacs
changeset 4289:4d0c57f01eed
(read-expression-history): New defvar.
(eval-expression): Use it has history var in interactive spec.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 26 Jul 1993 18:32:07 +0000 |
| parents | 64c6649f40b8 |
| children | 885452da2a8f |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))