branch: elpa/git-commit
commit ea1d09e0a788543ed958579bd3da8c4c04b4532a
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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)))
