diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-03-30 07:05:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-03-30 07:05:14 +0000 |
| commit | 614710af5b71b780d92ad9edf5b25de2b1bee5ad (patch) | |
| tree | bb9b567b135ee97a77aecb0fa9c3511a5445ffb8 /lisp/emacs-lisp | |
| parent | e190af9a8eb0bf0eaa3e37d8c45eb6c586759731 (diff) | |
| download | emacs-614710af5b71b780d92ad9edf5b25de2b1bee5ad.tar.gz | |
(debug): Use save-excursion inside the binding of buffer-read-only.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 202821c87ed..763a1f3193c 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -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) |