# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 884183617 0
# Node ID e8566ea4749130dd3181559b2b4686d3e9e406a2
# Parent  97249de6bbfa90a9778c3a827316bd9c7605e073
(vc-resynch-window): Behave properly when view-read-only is non-nil.

diff -r 97249de6bbfa -r e8566ea47491 lisp/vc.el
--- a/lisp/vc.el	Wed Jan 07 12:39:59 1998 +0000
+++ b/lisp/vc.el	Wed Jan 07 14:33:37 1998 +0000
@@ -990,6 +990,14 @@
 	     (remove-hook 'find-file-hooks 'vc-find-file-hook)
 	     (vc-revert-buffer1 t noquery)
 	     (add-hook 'find-file-hooks 'vc-find-file-hook)
+             (and view-read-only
+                  (if (file-writable-p file)
+                      (and view-mode
+                           (let ((view-old-buffer-read-only nil))
+                             (view-mode-exit)))
+                    (and (not view-mode)
+                         (not (eq (get major-mode 'mode-class) 'special))
+                         (view-mode-enter))))
 	     (vc-mode-line buffer-file-name))
 	 (kill-buffer (current-buffer)))))