Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Use 'ensure-proper-list' to get uniform maintainer lists

Browse source 
* lisp/emacs-lisp/package.el (describe-package-1)
(package-maintainers): Remove manual checks that :maintainer is
not just a cons-cell.
This commit is contained in:
Philip Kaludercic 2026-04-05 14:27:48 +02:00
parent 4473f76261
commit 5589d44ce6
No known key found for this signature in database
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/package.el
View file

@ -2712,8 +2712,8 @@ Helper function for `describe-package'."
(status (if desc (package-desc-status desc) "orphan"))
(incompatible-reason (package--incompatible-p desc))
(signed (if desc (package-desc-signed desc)))
(maintainers (or (cdr (assoc :maintainer extras))
(cdr (assoc :maintainers extras))))
(maintainers (ensure-proper-list (or (cdr (assoc :maintainer extras))
(cdr (assoc :maintainers extras)))))
(authors (cdr (assoc :authors extras)))
(news (and desc (package-find-news-file desc))))
(when (string= status "avail-obso")
@ -2847,8 +2847,6 @@ Helper function for `describe-package'."
(insert " "))
(insert "\n"))
(when maintainers
(unless (and (listp (car maintainers)) (listp (cdr maintainers)))
(setq maintainers (list maintainers)))
(package--print-help-section
(if (cdr maintainers) "Maintainers" "Maintainer"))
(dolist (maintainer maintainers)
@ -4869,9 +4867,8 @@ will be signaled in that case."
(error "Invalid package description: %S" pkg-desc))
(let* ((name (package-desc-name pkg-desc))
(extras (package-desc-extras pkg-desc))
(maint (ensure-list
(or (and-let* ((list (cdr (assoc :maintainer extras))))
(if (consp (car-safe list)) list (list list)))
(maint (ensure-proper-list
(or (cdr (assoc :maintainer extras))
(cdr (assoc :maintainers extras))
;; If no maintainers are listed, contact authors
;; instead (bug#80478)