daniel/emacs-conf
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2026-06-27 11:34:21 +02:00
parent 4be4f859c4
commit 1aaef48596
246 changed files with 7997 additions and 4359 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lisp/magit/magit-tag.el
+22 -19
View File
@@ -224,33 +224,36 @@ a tag qualifies as a release tag."
(save-match-data
(mapcar
#'cdr
(nreverse
(cl-sort (seq-keep
(lambda (line)
(and-let*
((_(string-match " +" line))
(tag (substring line 0 (match-beginning 0)))
(msg (substring line (match-end 0)))
(_(string-match magit-release-tag-regexp tag))
(ver (match-str 2 tag))
(version-regexp-alist magit-tag-version-regexp-alist))
(list (version-to-list ver) ver tag msg)))
;; Cannot rely on "--sort=-version:refname" because
;; that gets confused if the version prefix has changed.
(magit-git-lines "tag" "-n"))
;; The inverse of this function does not exist.
#'version-list-< :key #'car)))))
(compat-call
sort (seq-keep
(lambda (line)
(and-let*
((_(string-match " +" line))
(tag (substring line 0 (match-beginning 0)))
(msg (substring line (match-end 0)))
(_(string-match magit-release-tag-regexp tag))
(ver (match-str 2 tag))
(version-regexp-alist magit-tag-version-regexp-alist))
(list (version-to-list ver) ver tag msg)))
;; Cannot rely on "--sort=-version:refname" because
;; that gets confused if the version prefix has changed.
(magit-git-lines "tag" "-n"))
:lessp #'version-list-< :reverse t :key #'car))))
;;; _
(provide 'magit-tag)
;; Local Variables:
;; read-symbol-shorthands: (
;; ("and$" . "cond-let--and$")
;; ("and>" . "cond-let--and>")
;; ("and-let" . "cond-let--and-let")
;; ("if-let" . "cond-let--if-let")
;; ("thread$" . "cond-let--thread$")
;; ("when$" . "cond-let--when$")
;; ("and-let*" . "cond-let--and-let*")
;; ("and-let" . "cond-let--and-let")
;; ("if-let*" . "cond-let--if-let*")
;; ("if-let" . "cond-let--if-let")
;; ("when-let*" . "cond-let--when-let*")
;; ("when-let" . "cond-let--when-let")
;; ("while-let*" . "cond-let--while-let*")
;; ("while-let" . "cond-let--while-let")
;; ("match-string" . "match-string")
;; ("match-str" . "match-string-no-properties"))