Improve state updating for VC tag commands.

* lisp/vc.el (vc-create-tag, vc-retrieve-tag): Call vc-resynch-buffer
to update the state of all buffers in the directory.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 427d04c7ef4..d7b6bcd9cb2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2010-06-01  Dan Nicolaescu  <dann@ics.uci.edu>
 
+        Improve state updating for VC tag commands.
+        * vc.el (vc-create-tag, vc-retrieve-tag): Call vc-resynch-buffer
+        to update the state of all buffers in the directory.
+
         * vc-dir.el (vc-dir-update): Remove entries with a nil state (bug#5539).
 
 2010-06-01  Stefan Monnier  <monnier@iro.umontreal.ca>
diff --git a/lisp/vc.el b/lisp/vc.el
index 01952de2025..3d991a21a61 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1903,6 +1903,7 @@ checked out in that new branch."
   (when (file-directory-p dir) (setq dir (file-name-as-directory dir)))
   (vc-call-backend (vc-responsible-backend dir)
                    'create-tag dir name branchp)
+  (vc-resynch-buffer dir t t)
   (message "Making %s... done" (if branchp "branch" "tag")))
 
 ;;;###autoload
@@ -1923,6 +1924,7 @@ allowed and simply skipped)."
     (message "%s" msg)
     (vc-call-backend (vc-responsible-backend dir)
                      'retrieve-tag dir name update)
+    (vc-resynch-buffer dir t t)
     (message "%s" (concat msg "done"))))
 
 ;; Miscellaneous other entry points