Mercurial > emacs
changeset 108843:1fa0743700cc
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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 01 Jun 2010 02:37:49 -0700 |
| parents | 818b95330703 |
| children | 2ad33f941be2 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 01 10:12:28 2010 +0200 +++ b/lisp/ChangeLog Tue Jun 01 02:37:49 2010 -0700 @@ -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>
--- a/lisp/vc.el Tue Jun 01 10:12:28 2010 +0200 +++ b/lisp/vc.el Tue Jun 01 02:37:49 2010 -0700 @@ -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