[Emacs-diffs] /srv/bzr/emacs/trunk r100495: Improve state updating for VC tag commands.

[Dan Nicolaescu]

------------------------------------------------------------
revno: 100495
committer: Dan Nicolaescu <address@hidden>
branch nick: trunk
timestamp: Tue 2010-06-01 02:37:49 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/vc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-01 08:12:28 +0000
+++ b/lisp/ChangeLog    2010-06-01 09:37:49 +0000
@@ -1,5 +1,9 @@
 2010-06-01  Dan Nicolaescu  <address@hidden>
 
+       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  <address@hidden>

=== modified file 'lisp/vc.el'
--- a/lisp/vc.el        2010-04-21 02:05:24 +0000
+++ b/lisp/vc.el        2010-06-01 09:37:49 +0000
@@ -1903,6 +1903,7 @@
   (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 @@
     (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