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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 427d04c7ef41689e59570d93dd4d787162b62ad7..d7b6bcd9cb2133b5b25090861135a62c176d4664 100644 (file)
--- 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 01952de20254ae7456d8196c6603f1b36ff7cd21..3d991a21a61c8fd9c2a4d885736cfe4d01d6b555 100644 (file)
--- 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