# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859705514 0
# Node ID 76bfab081263fb00d90514cdabedc52ea1861e29
# Parent  15216759d2a46ecfde6bce5498ed671f72e4f8ef
(debug): Use save-excursion inside the binding of buffer-read-only.

diff -r 15216759d2a4 -r 76bfab081263 lisp/emacs-lisp/debug.el
--- 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)