From b75c9917dfffa2da2f97c4e3f8ffa4753dfab06e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 19 Mar 2000 15:56:40 +0000 Subject: [PATCH] (view-mode-disable): Kill local binding of view-read-only. --- lisp/view.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/view.el b/lisp/view.el index e6024601679..e57ac270b18 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -458,6 +458,14 @@ Entry to view-mode runs the normal hook `view-mode-hook'." (remove-hook 'change-major-mode-hook 'view-mode-disable t) (and view-overlay (delete-overlay view-overlay)) (force-mode-line-update) + ;; Calling toggle-read-only while View mode is enabled + ;; sets view-read-only to t as a buffer-local variable + ;; after exiting View mode. That arranges that the next toggle-read-only + ;; will reenable View mode. + ;; Cancelling View mode in any other way should cancel that, too, + ;; so that View mode stays off if toggle-read-only is called. + (if (local-variable-p 'view-read-only) + (kill-local-variable 'view-read-only)) (setq view-mode nil Helper-return-blurb view-old-Helper-return-blurb) (if buffer-read-only -- 2.39.5