diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-22 20:41:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-22 20:41:00 +0000 |
| commit | 8782c06b52819d0d84cd8f30fc43c4abf9c9ede1 (patch) | |
| tree | c7b70acad11f92b730787b3e3573bfaaba5a4882 /lisp/emacs-lisp/debug.el | |
| parent | 46e65b73dead08a6f008db4c7e8b2647a9b9ac56 (diff) | |
| download | emacs-8782c06b52819d0d84cd8f30fc43c4abf9c9ede1.tar.gz emacs-8782c06b52819d0d84cd8f30fc43c4abf9c9ede1.tar.bz2 emacs-8782c06b52819d0d84cd8f30fc43c4abf9c9ede1.zip | |
(debugger-eval-expression): Use a history list.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 1c44bac3405..150686ce4ce 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -266,7 +266,11 @@ Applies to the frame whose line point is on in the backtrace." (beginning-of-line)) (defun debugger-eval-expression (exp) - (interactive "xEval: ") + "Eval an expression, in an environment like that outside the debugger." + (interactive + (list (read-from-minibuffer "Eval: " + nil read-expression-map t + 'read-expression-history))) (save-excursion (if (null (buffer-name debugger-old-buffer)) ;; old buffer deleted |