diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-30 19:19:30 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-30 19:20:12 +0100 |
| commit | 0dfea4562e19f5cc90c77ff5f9a96f9e94caf57c (patch) | |
| tree | 4bde58ded147653abc85dca23f535006244f6890 /lisp/emacs-lisp/package.el | |
| parent | 79310d736c59d0fce1ad28e4a5f2d8996fefb210 (diff) | |
| download | emacs-0dfea4562e19f5cc90c77ff5f9a96f9e94caf57c.tar.gz | |
* lisp/emacs-lisp/package.el (package--remove-hidden): Fix logic
(Bug#20930)
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -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)))))) |