changeset 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 15216759d2a4
children b712c50d2c84
files lisp/emacs-lisp/debug.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
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)