Mercurial > emacs
diff lisp/emacs-lisp/debug.el @ 17262:76bfab081263
(debug): Use save-excursion inside the binding of buffer-read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Mar 1997 07:05:14 +0000 |
| parents | 4ec627bf114e |
| children | 84c0a412aa71 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Sun Mar 30 05:28:43 1997 +0000 +++ b/lisp/emacs-lisp/debug.el Sun Mar 30 07:05:14 1997 +0000 @@ -161,7 +161,9 @@ (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)