mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Avoid installing VC package dependencies multiple times

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-install-dependencies):
Check if two package names are eq, instead checking the structural
equality of package-desc objects.
This commit is contained in:
Philip Kaludercic 2023-02-16 11:38:51 +01:00
parent 1c9d81a2b4
commit 40f4bc4e0a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/package-vc.el
View file

@ -440,7 +440,7 @@ version of that package."
(package-desc-version a))) (package-desc-version a)))
(duplicate-p (a b) (duplicate-p (a b)
"Are A and B the same package?" "Are A and B the same package?"
(equal a (car b))) (eq (package-desc-name a) (package-desc-name b)))
(depends-on-p (target package) (depends-on-p (target package)
"Does PACKAGE depend on TARGET?" "Does PACKAGE depend on TARGET?"
(or (eq target package) (or (eq target package)
@ -457,7 +457,7 @@ version of that package."
(depends-on-p desc-a desc-b))))) (depends-on-p desc-a desc-b)))))
(mapc #'search requirements) (mapc #'search requirements)
(cl-callf sort to-install #'version-order) (cl-callf sort to-install #'version-order)
(cl-callf seq-uniq to-install) (cl-callf seq-uniq to-install #'duplicate-p)
(cl-callf sort to-install #'dependent-order)) (cl-callf sort to-install #'dependent-order))
(mapc #'package-install-from-archive to-install) (mapc #'package-install-from-archive to-install)
missing)) missing))