diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-07-13 08:54:57 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-07-13 08:54:57 -0700 |
| commit | e393d4f4ce64498408bd82f88eeab182c18457e4 (patch) | |
| tree | 328ada23858f7964b3d71e3eac387dcf921c0aac | |
| parent | 5e3888706a49f08acaf4e1754e762036493adb7a (diff) | |
| download | emacs-e393d4f4ce64498408bd82f88eeab182c18457e4.tar.gz | |
* lisp/emacs-lisp/package.el (describe-package-1)
(package-status-external): Fix face references. (Bug#23927)
| -rw-r--r-- | lisp/emacs-lisp/package.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 14626e2f28f..e4bb561a87a 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -2255,13 +2255,13 @@ Otherwise no newline is inserted." (package--print-help-section "Status") (cond (built-in (insert (propertize (capitalize status) - 'font-lock-face 'package-status-builtin-face) + 'font-lock-face 'package-status-built-in) ".")) (pkg-dir (insert (propertize (if (member status '("unsigned" "dependency")) "Installed" (capitalize status)) - 'font-lock-face 'package-status-builtin-face)) + 'font-lock-face 'package-status-built-in)) (insert (substitute-command-keys " in `")) (let ((dir (abbreviate-file-name (file-name-as-directory @@ -2274,7 +2274,7 @@ Otherwise no newline is inserted." (insert (substitute-command-keys "',\n shadowing a ") (propertize "built-in package" - 'font-lock-face 'package-status-builtin-face)) + 'font-lock-face 'package-status-built-in)) (insert (substitute-command-keys "'"))) (if signed (insert ".") @@ -2826,13 +2826,14 @@ Return (PKG-DESC [NAME VERSION STATUS DOC])." "Face used on package description summaries in the package menu." :version "25.1") +;; Shame this hyphenates "built-in", when "font-lock-builtin-face" doesn't. (defface package-status-built-in '((t :inherit font-lock-builtin-face)) "Face used on the status and version of built-in packages." :version "25.1") (defface package-status-external - '((t :inherit package-status-builtin-face)) + '((t :inherit package-status-built-in)) "Face used on the status and version of external packages." :version "25.1") |