diff options
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 2cd8e48d6e9..8b4cb1adc79 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -3602,9 +3602,7 @@ Return the result of the last expression." | |||
| 3602 | "Evaluate an expression in the outside environment. | 3602 | "Evaluate an expression in the outside environment. |
| 3603 | If interactive, prompt for the expression. | 3603 | If interactive, prompt for the expression. |
| 3604 | Print result in minibuffer." | 3604 | Print result in minibuffer." |
| 3605 | (interactive (list (read-from-minibuffer | 3605 | (interactive (list (read--expression "Eval: "))) |
| 3606 | "Eval: " nil read-expression-map t | ||
| 3607 | 'read-expression-history))) | ||
| 3608 | (princ | 3606 | (princ |
| 3609 | (edebug-outside-excursion | 3607 | (edebug-outside-excursion |
| 3610 | (setq values (cons (edebug-eval expr) values)) | 3608 | (setq values (cons (edebug-eval expr) values)) |