From bc43b8e83a3fb8b256258582324f1c375eacd58f Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 2 Mar 1997 01:01:13 +0000 Subject: [PATCH] (eval-expression): No longer disabled, since M-: isn't as likely to be typed by mistake as the old ESC ESC binding was. Arg `expression' renamed to `eval-expression-arg' to avoid potential collision if its value mentions `expression'. --- lisp/simple.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 8f3ab1d61f2..715660b174f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -470,20 +470,18 @@ Other major modes are defined by comparison with this one." "Minibuffer keymap used for reading Lisp expressions.") (define-key read-expression-map "\M-\t" 'lisp-complete-symbol) -(put 'eval-expression 'disabled t) - (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) +(defun eval-expression (eval-expression-arg) "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 'read-expression-history))) - (setq values (cons (eval expression) values)) + (setq values (cons (eval eval-expression-arg) values)) (prin1 (car values) t)) (defun edit-and-eval-command (prompt command) -- 2.39.5