procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* package.el (describe-package-1): Add news if avaliable

Browse source
This commit is contained in:
Philip Kaludercic 2022-08-11 14:05:01 +02:00
parent fb87d5008e
commit dd98fedd0c
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2658,7 +2658,10 @@ Helper function for `describe-package'."
(incompatible-reason (package--incompatible-p desc))
(signed (if desc (package-desc-signed desc)))
(maintainer (cdr (assoc :maintainer extras)))
(authors (cdr (assoc :authors extras))))
(authors (cdr (assoc :authors extras)))
(news (and-let* ((file (expand-file-name "news" pkg-dir))
((file-readable-p file)))
file)))
(when (string= status "avail-obso")
(setq status "available obsolete"))
(when incompatible-reason
@ -2857,6 +2860,14 @@ Helper function for `describe-package'."
t)
(insert (or readme-string
"This package does not provide a description.")))))
;; Insert news if available.
(when news
(insert "\n" (make-separator-line) "\n"
(propertize "* News" 'face 'package-help-section-name)
"\n\n")
(insert-file-contents news))
;; Make library descriptions into links.
(goto-char start-of-description)
(package--describe-add-library-links)