(debugger-eval-expression): Use a history list.

This commit is contained in:
Richard M. Stallman 1994-03-22 20:41:00 +00:00
parent 46e65b73de
commit 8782c06b52

View file

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