Commit 0dfea456 authored by Artur Malabarba's avatar Artur Malabarba

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

(Bug#20930)
parent 79310d73
......@@ -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))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment