From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 10 Aug 1999 16:40:00 +0000 (+0000)
Subject: (view-mode-disable): If buffer-read-only is nil,
X-Git-Tag: emacs-pretest-21.0.90~7222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf551cf70519a3033fef95f383d4735c46f25477;p=emacs.git

(view-mode-disable): If buffer-read-only is nil,
don't change it.
---

diff --git a/lisp/view.el b/lisp/view.el
index 8ac7a139713..61c1ddf9a00 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -456,8 +456,9 @@ Entry to view-mode runs the normal hook `view-mode-hook'."
   (and view-overlay (delete-overlay view-overlay))
   (force-mode-line-update)
   (setq view-mode nil
-	Helper-return-blurb view-old-Helper-return-blurb
-	buffer-read-only view-old-buffer-read-only))
+	Helper-return-blurb view-old-Helper-return-blurb)
+  (if buffer-read-only
+      (setq buffer-read-only view-old-buffer-read-only)))
 
 ;;;###autoload
 (defun view-mode-enter (&optional return-to exit-action) "\