(write-file): Refresh VC status.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef5253d63a63494df287d5da246524cfb38b4339..0fc0586b8f5abac0ed829234edb7deefecbb1b0e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-11-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * files.el (write-file): Refresh VC status.
+
        * calendar/diary-lib.el (diary-list-entries, diary-show-all-entries)
        (mark-diary-entries, make-diary-entry): Check default-major-mode rather
        than fundamental-mode to see if the mode was set.

diff --git a/lisp/files.el b/lisp/files.el
index c4273a859fb76ec4e02497fc4b7cbbf7e63160ee..202d24e09fc89f7fb5968b331f9600d40c19d1f8 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2717,7 +2717,10 @@ Interactively, confirmation is required unless you supply a prefix argument."
   (and buffer-file-name
        (file-writable-p buffer-file-name)
        (setq buffer-read-only nil))
-  (save-buffer))
+  (save-buffer)
+  ;; It's likely that the VC status at the new location is different from
+  ;; the one at the old location.
+  (vc-find-file-hook))
 \f
 (defun backup-buffer ()
   "Make a backup of the disk file visited by the current buffer, if appropriate.