From 8782c06b52819d0d84cd8f30fc43c4abf9c9ede1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 22 Mar 1994 20:41:00 +0000 Subject: (debugger-eval-expression): Use a history list. --- lisp/emacs-lisp/debug.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') 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 -- cgit v1.2.3