From 7cc95d4d86e5a9f2df248d2aa7c8cc423c8f06e3 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Fri, 17 Feb 2017 03:00:46 +0200 Subject: [PATCH] Fix buffers update in vc-retrieve-tag * lisp/vc/vc.el (vc-retrieve-tag): When the granularity is `repository', use the repository root and pass it to vc-resynch-buffer (bug#25714). --- lisp/vc/vc.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index c66a0921e45..c3088560c11 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2157,7 +2157,7 @@ checked out in that new branch." NAME can name a branch, in which case this command will switch to the named branch in the directory DIR. Interactively, prompt for DIR only for VCS that works at file level; -otherwise use the default directory of the current buffer. +otherwise use the repository root of the current buffer. If NAME is empty, it refers to the latest revisions of the current branch. If locking is used for the files in DIR, then there must not be any locked files at or below DIR (but if NAME is empty, locked files are @@ -2170,7 +2170,9 @@ allowed and simply skipped)." (if (eq granularity 'repository) ;; For VC's that do not work at file level, it's pointless ;; to ask for a directory, branches are created at repository level. - default-directory + ;; XXX: Either we call expand-file-name here, or use + ;; file-in-directory-p inside vc-resynch-buffers-in-directory. + (expand-file-name (vc-root-dir)) (read-directory-name "Directory: " default-directory default-directory t)) (read-string "Tag name to retrieve (default latest revisions): ")))) (let ((update (yes-or-no-p "Update any affected buffers? ")) -- 2.39.5