changeset 25219:1b99ab7ab219

(view-mode-disable): If buffer-read-only is nil, don't change it.
author Karl Heuer <kwzh@gnu.org>
date Tue, 10 Aug 1999 16:40:00 +0000
parents 9c0733c601c9
children 08b62bd09c92
files lisp/view.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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) "\