From 0dfea4562e19f5cc90c77ff5f9a96f9e94caf57c Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Tue, 30 Jun 2015 19:19:30 +0100 Subject: [PATCH] * lisp/emacs-lisp/package.el (package--remove-hidden): Fix logic (Bug#20930) --- lisp/emacs-lisp/package.el | 6 ++++-- 1 file 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)))))) -- 2.39.5