branch: elpa/magit
commit 8cee322fcdc12028b5149dcb831fea49a19966a7
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Avoid t condition in more final match-all cond clauses
---
lisp/git-rebase.el | 9 ++++-----
lisp/magit-tag.el | 7 +++----
2 files changed, 7 insertions(+), 9 deletions(-)
diff --git a/lisp/git-rebase.el b/lisp/git-rebase.el
index a2c89be5c44..c5b7989ed46 100644
--- a/lisp/git-rebase.el
+++ b/lisp/git-rebase.el
@@ -412,11 +412,10 @@ of its action type."
(delete-region beg (+ beg 2))
(insert comment-start " ")))
(forward-line))
- (t
- ;; In the case of --rebase-merges, commit lines may have
- ;; other lines with other action types, empty lines, and
- ;; "Branch" comments interspersed. Move along.
- (forward-line)))))
+ ;; In the case of --rebase-merges, commit lines may have
+ ;; other lines with other action types, empty lines, and
+ ;; "Branch" comments interspersed. Move along.
+ ((forward-line)))))
(goto-char
(if git-rebase-auto-advance
end-marker
diff --git a/lisp/magit-tag.el b/lisp/magit-tag.el
index 0cb7517bc8b..b73b29b7fcd 100644
--- a/lisp/magit-tag.el
+++ b/lisp/magit-tag.el
@@ -187,10 +187,9 @@ that is not the case, propose a message using a reasonable
format."
(concat (and (string-match magit-release-tag-regexp ptag)
(match-str 1 ptag))
ver))
- (t
- (read-string
- (format "Create release tag (previous was %s): " ptag)
- ptag))))
+ ((read-string (format "Create release tag (previous was %s): "
+ ptag)
+ ptag))))
(ver (and (string-match magit-release-tag-regexp tag)
(match-str 2 tag))))
(list tag
