From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Mar 1997 07:05:14 +0000 (+0000)
Subject: (debug): Use save-excursion inside the binding of buffer-read-only.
X-Git-Tag: emacs-20.1~2683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=614710af5b71b780d92ad9edf5b25de2b1bee5ad;p=emacs.git

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

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)