>From d45b90261debe5c6a261a0f5eb193be5f233b326 Mon Sep 17 00:00:00 2001 From: Andrii Kolomoiets Date: Fri, 11 Dec 2020 15:55:22 +0200 Subject: [PATCH] vc-create-tag: use vc-revision-history variable * lisp/vc/vc.el (vc-create-tag): Use 'vc-revision-history' variable --- lisp/vc/vc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index b3b0583966..7d9af00de7 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2325,7 +2325,8 @@ vc-create-tag ;; to ask for a directory, branches are created at repository level. default-directory (read-directory-name "Directory: " default-directory default-directory t)) - (read-string (if current-prefix-arg "New branch name: " "New tag name: ")) + (read-string (if current-prefix-arg "New branch name: " "New tag name: ") + nil 'vc-revision-history) current-prefix-arg))) (message "Making %s... " (if branchp "branch" "tag")) (when (file-directory-p dir) (setq dir (file-name-as-directory dir))) -- 2.15.1