(vc-resynch-window): Update comment.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ebf971f15f4bf9cf3e2985bfabc113d5dcd6897..bd4d60e43f7d650eb3787110dbc321f42ab22038 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-08-07  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * vc-dispatcher.el (vc-resynch-window): Update comment.
+
        * term.el (term-handle-ansi-escape): Add comments with the
        terminfo capabilities implemented.
 

diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index f03f16ede98cb9a5f9a01b1f610208e56a58987f..a209e139bc20f50e17614eb9f1518184e0b8447a 100644 (file)
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -462,9 +462,10 @@ editing!"
        (if keep
           (progn
             (vc-revert-buffer-internal t noquery)
-             ;; TODO: Adjusting view mode might no longer be necessary
-             ;; after RMS change to files.el of 1999-08-08.  Investigate
-             ;; this when we install the new VC.
+
+            ;; VC operations might toggle the read-only state.  In
+            ;; that case we need to adjust the `view-mode' status
+            ;; when `view-read-only' is non-nil.
              (and view-read-only
                   (if (file-writable-p file)
                       (and view-mode
@@ -473,6 +474,7 @@ editing!"
                     (and (not view-mode)
                          (not (eq (get major-mode 'mode-class) 'special))
                          (view-mode-enter))))
+
             (run-hook-with-args 'mode-line-hook buffer-file-name))
         (kill-buffer (current-buffer)))))