From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 19 Mar 2000 15:56:40 +0000 (+0000)
Subject: (view-mode-disable): Kill local binding of view-read-only.
X-Git-Tag: emacs-pretest-21.0.90~4597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b75c9917dfffa2da2f97c4e3f8ffa4753dfab06e;p=emacs.git

(view-mode-disable): Kill local binding of view-read-only.
---

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