aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emacs-lisp/package.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 7968ecde127..615631383e7 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2457,7 +2457,9 @@ of these dependencies, similar to the list returned by
2457 (t "disabled")))) 2457 (t "disabled"))))
2458 (dir ;One of the installed packages. 2458 (dir ;One of the installed packages.
2459 (cond 2459 (cond
2460 ((not (file-exists-p (package-desc-dir pkg-desc))) "deleted") 2460 ((not (file-exists-p dir)) "deleted")
2461 ;; Not inside `package-user-dir'.
2462 ((not (file-in-directory-p dir package-user-dir)) "external")
2461 ((eq pkg-desc (cadr (assq name package-alist))) 2463 ((eq pkg-desc (cadr (assq name package-alist)))
2462 (if (not signed) "unsigned" 2464 (if (not signed) "unsigned"
2463 (if (package--user-selected-p name) 2465 (if (package--user-selected-p name)
@@ -2662,6 +2664,7 @@ Return (PKG-DESC [NAME VERSION STATUS DOC])."
2662 (let* ((status (package-desc-status pkg)) 2664 (let* ((status (package-desc-status pkg))
2663 (face (pcase status 2665 (face (pcase status
2664 (`"built-in" 'font-lock-builtin-face) 2666 (`"built-in" 'font-lock-builtin-face)
2667 (`"external" 'font-lock-builtin-face)
2665 (`"available" 'default) 2668 (`"available" 'default)
2666 (`"avail-obso" 'font-lock-comment-face) 2669 (`"avail-obso" 'font-lock-comment-face)
2667 (`"new" 'bold) 2670 (`"new" 'bold)
@@ -2977,6 +2980,8 @@ Optional argument NOQUERY non-nil means do not ask the user to confirm."
2977 ((string= sB "unsigned") nil) 2980 ((string= sB "unsigned") nil)
2978 ((string= sA "held") t) 2981 ((string= sA "held") t)
2979 ((string= sB "held") nil) 2982 ((string= sB "held") nil)
2983 ((string= sA "external") t)
2984 ((string= sB "external") nil)
2980 ((string= sA "built-in") t) 2985 ((string= sA "built-in") t)
2981 ((string= sB "built-in") nil) 2986 ((string= sB "built-in") nil)
2982 ((string= sA "obsolete") t) 2987 ((string= sA "obsolete") t)