diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2023-02-16 11:38:51 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2023-02-16 11:38:51 +0100 |
| commit | 40f4bc4e0aa1d215136259f6ea497147e4311aed (patch) | |
| tree | d2e2148e6af62e1861f97f86df56a3324788d52b /lisp/emacs-lisp | |
| parent | 1c9d81a2b4272200082fc185880856866c0588e1 (diff) | |
| download | emacs-40f4bc4e0aa1d215136259f6ea497147e4311aed.tar.gz emacs-40f4bc4e0aa1d215136259f6ea497147e4311aed.tar.bz2 emacs-40f4bc4e0aa1d215136259f6ea497147e4311aed.zip | |
; 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package-vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index 05df89d264e..b753adcb8a0 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -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)) |