From 5828f6cacc56d892cd34fe0c4e0e033de1002b3f Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Tue, 1 Jun 2010 02:37:49 -0700 Subject: [PATCH] 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. --- lisp/ChangeLog | 4 ++++ lisp/vc.el | 2 ++ 2 files changed, 6 insertions(+) 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 + 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 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 -- 2.39.2