From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 30 Jun 2015 18:19:30 +0000 (+0100)
Subject: * lisp/emacs-lisp/package.el (package--remove-hidden): Fix logic
X-Git-Tag: emacs-25.0.90~1597
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0dfea4562e19f5cc90c77ff5f9a96f9e94caf57c;p=emacs.git

* lisp/emacs-lisp/package.el (package--remove-hidden): Fix logic

(Bug#20930)
---

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))))))