diff options
| author | Federico Tedin | 2019-03-12 20:06:49 -0300 |
|---|---|---|
| committer | Stefan Monnier | 2019-03-22 00:00:43 -0400 |
| commit | a0b1c40233408f805eff6b440dbbe2bcba2994ee (patch) | |
| tree | 4b113b44a376013291ae1c0114d42b185d44fb50 | |
| parent | 76fea1eba1332440eab2e3daecce053daccd3782 (diff) | |
| download | emacs-a0b1c40233408f805eff6b440dbbe2bcba2994ee.tar.gz emacs-a0b1c40233408f805eff6b440dbbe2bcba2994ee.zip | |
Make edebug-eval-expression support code completion
* lisp/emacs-lisp/edebug.el (edebug-eval-expression): Use
read--expression instead of read-from-minibuffer. (Bug#34065)
| -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)) |