Tweak which duplicate packages to select

This helps with replacements, as the original package is usually higher up in
the file.
This commit is contained in:
Christopher Baines 2023-07-17 13:28:42 +01:00
parent ed974ebf3b
commit de6d38016d

View file

@ -970,7 +970,7 @@ WHERE job_id = $1")
;; location. ;; location.
(let ((a-location (inferior-package-location a)) (let ((a-location (inferior-package-location a))
(b-location (inferior-package-location b))) (b-location (inferior-package-location b)))
(< (location-line a-location) (> (location-line a-location)
(location-line b-location))) (location-line b-location)))
(string<? a-version (string<? a-version
b-version))) b-version)))