; Avoid installing VC package dependencies multiple times

* 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

View file

@ -440,7 +440,7 @@ version of that package."
(package-desc-version a)))
(duplicate-p (a b)
"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)
"Does PACKAGE depend on TARGET?"
(or (eq target package)
@ -457,7 +457,7 @@ version of that package."
(depends-on-p desc-a desc-b)))))
(mapc #'search requirements)
(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))
(mapc #'package-install-from-archive to-install)
missing))