diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index a148783d0c2..7894aafe20d 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -2596,9 +2596,11 @@ to their archives." (out)) (while pkg-list (let ((p (pop pkg-list))) - (if (>= (package-desc-priority p) max-priority) + (let ((priority (package-desc-priority p))) + (if (< priority max-priority) + (setq pkg-list nil) (push p out) - (setq pkg-list nil)))) + (setq max-priority priority))))) (nreverse out))) (pkg-list (list (car pkg-list)))))) |