[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 e393d4f: * lisp/emacs-lisp/package.el (describe-p
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-25 e393d4f: * lisp/emacs-lisp/package.el (describe-package-1) |
Date: |
Wed, 13 Jul 2016 15:55:10 +0000 (UTC) |
branch: emacs-25
commit e393d4f4ce64498408bd82f88eeab182c18457e4
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/emacs-lisp/package.el (describe-package-1)
(package-status-external): Fix face references. (Bug#23927)
---
lisp/emacs-lisp/package.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 14626e2..e4bb561 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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 e393d4f: * lisp/emacs-lisp/package.el (describe-package-1),
Glenn Morris <=