From: Dan Nicolaescu Date: Tue, 1 Jun 2010 09:37:49 +0000 (-0700) Subject: Improve state updating for VC tag commands. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~156 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5828f6cacc56d892cd34fe0c4e0e033de1002b3f;p=emacs.git 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 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