mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

(debug): Use save-excursion inside the binding of buffer-read-only.

Browse source
This commit is contained in:
Richard M. Stallman 1997-03-30 07:05:14 +00:00
parent e190af9a8e
commit 614710af5b
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/debug.el
View file

@ -161,7 +161,9 @@ first will be printed into the backtrace buffer."
(standard-output nil)
(buffer-read-only t))
(message "")
(recursive-edit))))
;; Make sure we unbind buffer-read-only in the right buffer.
(save-excursion
(recursive-edit)))))
;; Kill or at least neuter the backtrace buffer, so that users
;; don't try to execute debugger commands in an invalid context.
(if (get-buffer-window debugger-buffer 'visible)