# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1132006768 0
# Node ID 5b337342659501ee9d4d0cca18c9fd71c99520d9
# Parent  cfc510b6c9e636b2cbb2fdd806ba8523933a0372
(write-file): Refresh VC status.

diff -r cfc510b6c9e6 -r 5b3373426595 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Nov 14 22:14:23 2005 +0000
+++ b/lisp/ChangeLog	Mon Nov 14 22:19:28 2005 +0000
@@ -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 -r cfc510b6c9e6 -r 5b3373426595 lisp/files.el
--- a/lisp/files.el	Mon Nov 14 22:14:23 2005 +0000
+++ b/lisp/files.el	Mon Nov 14 22:19:28 2005 +0000
@@ -2717,7 +2717,10 @@
   (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))
 
 (defun backup-buffer ()
   "Make a backup of the disk file visited by the current buffer, if appropriate.