[nongnu] elpa/git-commit ea1d09e0a7: magit-tag-release: Fix creating first release

[ELPA Syncer]

branch: elpa/git-commit
commit ea1d09e0a788543ed958579bd3da8c4c04b4532a
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-tag-release: Fix creating first release
---
 lisp/magit-tag.el | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/lisp/magit-tag.el b/lisp/magit-tag.el
index 95d2f9a8df..105784cc99 100644
--- a/lisp/magit-tag.el
+++ b/lisp/magit-tag.el
@@ -172,13 +172,20 @@ like \"/path/to/foo-bar\"."
                     (string-match magit-release-commit-regexp
                                   (magit-rev-format "%s" ptag))
                     (user-error "Use `sisyphus-create-release' first")))
-          (tag (if ver
-                   (concat (and (string-match magit-release-tag-regexp ptag)
-                                (match-string 1 ptag))
-                           ver)
+          (tag (cond
+                ((not ptag)
+                 (read-string "Create first release tag: "
+                              (if (string-match-p "\\`[0-9]" ver)
+                                  (concat "v" ver)
+                                ver)))
+                (ver
+                 (concat (and (string-match magit-release-tag-regexp ptag)
+                              (match-string 1 ptag))
+                         ver))
+                (t
                  (read-string
                   (format "Create release tag (previous was %s): " ptag)
-                  ptag)))
+                  ptag))))
           (ver (and (string-match magit-release-tag-regexp tag)
                     (match-string 2 tag)))
           (args (magit-tag-arguments)))