From: Visuwesh <visuweshm@gmail.com>
Date: Sat, 8 Oct 2022 13:13:48 +0000 (+0200)
Subject: Fix misleading prompt in vc-git-create-tag
X-Git-Tag: emacs-29.0.90~1616^2~696
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3fac2be0423d8ea7b8418286b791586be8b58fa;p=emacs.git

Fix misleading prompt in vc-git-create-tag

* lisp/vc/vc-git.el (vc-git-create-tag): Actually pass the DEFAULT
argument to vc-read-revision (bug#58378).
---

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index f9dae8b9ea3..ea06ccaf870 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -1635,7 +1635,7 @@ This requires git 1.8.4 or later, for the \"-L\" option of \"git log\"."
         (start-point (when branchp (vc-read-revision
                                     (format-prompt "Start point"
                                                    (car (vc-git-branches)))
-                                    (list dir) 'Git))))
+                                    (list dir) 'Git (car (vc-git-branches))))))
     (and (or (zerop (vc-git-command nil t nil "update-index" "--refresh"))
              (y-or-n-p "Modified files exist.  Proceed? ")
              (user-error (format "Can't create %s with modified files"