diff options
| -rw-r--r-- | lisp/emacs-lisp/package.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index bbe2b8bb4af..c684840ab7e 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -3731,7 +3731,7 @@ corresponding to the newer version." | |||
| 3731 | ;; ENTRY is (PKG-DESC [NAME VERSION STATUS DOC]) | 3731 | ;; ENTRY is (PKG-DESC [NAME VERSION STATUS DOC]) |
| 3732 | (let ((pkg-desc (car entry)) | 3732 | (let ((pkg-desc (car entry)) |
| 3733 | (status (aref (cadr entry) 2))) | 3733 | (status (aref (cadr entry) 2))) |
| 3734 | (cond ((member status '("installed" "dependency" "unsigned" "external")) | 3734 | (cond ((member status '("installed" "dependency" "unsigned" "external" "built-in")) |
| 3735 | (push pkg-desc installed)) | 3735 | (push pkg-desc installed)) |
| 3736 | ((member status '("available" "new")) | 3736 | ((member status '("available" "new")) |
| 3737 | (setq available (package--append-to-alist pkg-desc available)))))) | 3737 | (setq available (package--append-to-alist pkg-desc available)))))) |
| @@ -3742,6 +3742,8 @@ corresponding to the newer version." | |||
| 3742 | (and avail-pkg | 3742 | (and avail-pkg |
| 3743 | (version-list-< (package-desc-priority-version pkg-desc) | 3743 | (version-list-< (package-desc-priority-version pkg-desc) |
| 3744 | (package-desc-priority-version avail-pkg)) | 3744 | (package-desc-priority-version avail-pkg)) |
| 3745 | (xor (not package-install-upgrade-built-in) | ||
| 3746 | (package--active-built-in-p pkg-desc)) | ||
| 3745 | (push (cons name avail-pkg) upgrades)))) | 3747 | (push (cons name avail-pkg) upgrades)))) |
| 3746 | upgrades)) | 3748 | upgrades)) |
| 3747 | 3749 | ||