andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Recursively check dependencies for package compatibility

Browse source 
* lisp/emacs-lisp/package.el (package--compatible-packages): Add
new function.
(package-install): Use new function to restrict suggestions to
not include incompatible packages.
(package--incompatible-p): Check all dependencies to determine
package compatibility.
* etc/NEWS: Mention change.  (Bug#80695)
This commit is contained in:
Philip Kaludercic 2026-04-03 01:50:48 +02:00
parent 4e65e05ea4
commit 6a15c02a59
No known key found for this signature in database
2 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -3176,6 +3176,9 @@ presentation style of these suggestions using
This user option controls what previous packages versions to keep on
upgrade. By default, this is set to nil, to keep the previous behavior.
---
*** Packages check recursive dependencies before installing.
** Rcirc
+++

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

@ -2015,6 +2015,16 @@ package archive."
:type 'boolean
:version "29.1")
(defun package--compatible-packages ()
"Return list of packages that can be installed.
This excludes packages that are listed in the archives, but have
incompatible dependencies (either not available at all or too old)."
(package-read-all-archive-contents)
(package--build-compatibility-table)
(cl-loop for (name . desc) in package-archive-contents
unless (any #'package--incompatible-p desc)
collect name))
;;;###autoload
(defun package-install (pkg &optional dont-select interactive)
"Install the package PKG.
@ -2042,7 +2052,7 @@ had been enabled."
(package--archives-initialize)
(list (intern (completing-read
"Install package: "
package-archive-contents
(package--compatible-packages)
nil t))
nil
'interactive)))
@ -3267,7 +3277,7 @@ of these dependencies, similar to the list returned by
(package-version-join version)
(unless shallow
(let (out)
(dolist (dep (package-desc-reqs pkg) out)
(dolist (dep (package--dependencies pkg) out)
(let ((dep-name (car dep)))
(unless (eq 'emacs dep-name)
(let ((cv (gethash dep-name package--compatibility-table)))