emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]