From: Andrii Kolomoiets <andreyk.mad@gmail.com>
Date: Fri, 11 Dec 2020 13:55:22 +0000 (+0200)
Subject: vc-create-tag: use vc-revision-history variable
X-Git-Tag: emacs-28.0.90~4738
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6fc1b795c1bfaded853b1dff225b0c3628014dd7;p=emacs.git

vc-create-tag: use vc-revision-history variable

* lisp/vc/vc.el (vc-create-tag): Use 'vc-revision-history' variable.
---

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index b3b05839662..7d9af00de7c 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2325,7 +2325,8 @@ checked out in that new branch."
 	  ;; 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)))