From f8791ebe79e49f11c378e5ec868a070043f0a224 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Wed, 7 Jan 1998 14:33:37 +0000 Subject: [PATCH] (vc-resynch-window): Behave properly when view-read-only is non-nil. --- lisp/vc.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/vc.el b/lisp/vc.el index a49092e79e2..a5f0295e14f 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -990,6 +990,14 @@ merge in the changes into your working copy." (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))))) -- 2.39.5