emacs-lisp/package.el (describe-package-1): Fix "incompat" handling.
This commit is contained in:
parent
3b8b549fff
commit
a03ab7eaf5
2 changed files with 4 additions and 3 deletions
|
@ -4,6 +4,7 @@
|
|||
(package--add-to-compatibility-table): New function.
|
||||
(package-read-all-archive-contents): Populate compatibility table.
|
||||
(package--incompatible-p): Also look in dependencies.
|
||||
(describe-package-1): Fix "incompat" handling.
|
||||
|
||||
2015-02-13 Lars Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
|
|
|
@ -1811,6 +1811,8 @@ the table."
|
|||
(installable (and archive (not built-in)))
|
||||
(status (if desc (package-desc-status desc) "orphan"))
|
||||
(signed (if desc (package-desc-signed desc))))
|
||||
(when (string= status "incompat")
|
||||
(setq status "incompatible"))
|
||||
(prin1 name)
|
||||
(princ " is ")
|
||||
(princ (if (memq (aref status 0) '(?a ?e ?i ?o ?u)) "an " "a "))
|
||||
|
@ -1825,9 +1827,7 @@ the table."
|
|||
(pkg-dir
|
||||
(insert (propertize (if (member status '("unsigned" "dependency"))
|
||||
"Installed"
|
||||
(if (equal status "incompat")
|
||||
"Incompatible"
|
||||
(capitalize status))) ;FIXME: Why comment-face?
|
||||
(capitalize status)) ;FIXME: Why comment-face?
|
||||
'font-lock-face 'font-lock-comment-face))
|
||||
(insert " in `")
|
||||
;; Todo: Add button for uninstalling.
|
||||
|
|
Loading…
Add table
Reference in a new issue