[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 96f5871 3/3: Correct the :inherit property on some faces
From: |
Robert Pluim |
Subject: |
master 96f5871 3/3: Correct the :inherit property on some faces |
Date: |
Thu, 25 Nov 2021 12:12:54 -0500 (EST) |
branch: master
commit 96f58718a043bb50408592aa1975721396de274e
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>
Correct the :inherit property on some faces
Otherwise M-x customize-face will show them as lisp-expressions rather
than nice widgets.
* lisp/ansi-color.el (ansi-color-bold):
(ansi-color-italic):
(ansi-color-underline):
* lisp/faces.el (mode-line): Don't quote the face we're inheriting
from.
---
lisp/ansi-color.el | 6 +++---
lisp/faces.el | 4 ++--
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el
index 2e51264..c962cbd 100644
--- a/lisp/ansi-color.el
+++ b/lisp/ansi-color.el
@@ -91,7 +91,7 @@ as a PDF file."
:group 'processes)
(defface ansi-color-bold
- '((t :inherit 'bold))
+ '((t :inherit bold))
"Face used to render bold text."
:group 'ansi-colors
:version "28.1")
@@ -103,13 +103,13 @@ as a PDF file."
:version "28.1")
(defface ansi-color-italic
- '((t :inherit 'italic))
+ '((t :inherit italic))
"Face used to render italic text."
:group 'ansi-colors
:version "28.1")
(defface ansi-color-underline
- '((t :inherit 'underline))
+ '((t :inherit underline))
"Face used to render underlined text."
:group 'ansi-colors
:version "28.1")
diff --git a/lisp/faces.el b/lisp/faces.el
index e9f795c..38feefb 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2611,11 +2611,11 @@ non-nil."
(defface mode-line
'((((class color) (min-colors 88))
:box (:line-width -1 :style released-button)
- :inherit 'variable-pitch
+ :inherit variable-pitch
:background "grey75" :foreground "black")
(t
:inverse-video t
- :inherit 'variable-pitch))
+ :inherit variable-pitch))
"Basic mode line face for selected window."
:version "21.1"
:group 'mode-line-faces