# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 934303200 0
# Node ID 1b99ab7ab2197af2293839c1ba132e1d20d2182f
# Parent  9c0733c601c940bbceb7926abacb801413c03b1f
(view-mode-disable): If buffer-read-only is nil,
don't change it.

diff -r 9c0733c601c9 -r 1b99ab7ab219 lisp/view.el
--- a/lisp/view.el	Tue Aug 10 16:37:57 1999 +0000
+++ b/lisp/view.el	Tue Aug 10 16:40:00 1999 +0000
@@ -456,8 +456,9 @@
   (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) "\