# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 934303214 0
# Node ID 08b62bd09c92c6887e8176bd583a586792beecf0
# Parent  1b99ab7ab2197af2293839c1ba132e1d20d2182f
(after-find-file): Disable View mode if buffer is no
longer read-only.

diff -r 1b99ab7ab219 -r 08b62bd09c92 lisp/files.el
--- a/lisp/files.el	Tue Aug 10 16:40:00 1999 +0000
+++ b/lisp/files.el	Tue Aug 10 16:40:14 1999 +0000
@@ -1195,6 +1195,8 @@
 	(auto-save-mode t)))
   (if nomodes
       nil
+    (and view-read-only view-mode
+	 (view-mode-disable))
     (normal-mode t)
     (if (and buffer-read-only view-read-only
 	     (not (eq (get major-mode 'mode-class) 'special)))