Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Have 'package-find-news-file' handle built-in packages

Browse source 
* lisp/emacs-lisp/package.el (package-find-news-file): Abort
early if the package is built-in.
(describe-package-1): Do not invoke 'package-find-news-file' if
missing a package descriptor.
This commit is contained in:
Philip Kaludercic 2026-01-18 22:14:54 +01:00
parent 9d3c68ab94
commit aff85304d9
No known key found for this signature in database
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2640,7 +2640,9 @@ The description is read from the installed package files."
(defun package-find-news-file (pkg-desc)
"Return the file name of a news file of PKG-DESC.
If no such file exists, the function returns nil."
(let ((default-directory (package-desc-dir pkg-desc)))
(and-let* ((pkg-dir (package-desc-dir pkg-desc))
(_ (not (eq pkg-dir 'builtin)))
(default-directory pkg-dir))
(catch 'success
(dolist (file '("NEWS-elpa" "news") nil) ;TODO: add user option?
(when (and (file-readable-p file) (file-regular-p file))
@ -2675,7 +2677,7 @@ Helper function for `describe-package'."
(maintainers (or (cdr (assoc :maintainer extras))
(cdr (assoc :maintainers extras))))
(authors (cdr (assoc :authors extras)))
(news (package-find-news-file desc)))
(news (and desc (package-find-news-file desc))))
(when (string= status "avail-obso")
(setq status "available obsolete"))
(when incompatible-reason