mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(eval-expression): No longer disabled, since M-: isn't

Browse Source 
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'.
This commit is contained in:
Karl Heuer 1997-03-02 01:01:13 +00:00
parent f655106be2
commit bc43b8e83a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/simple.el
View File

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