emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master e72afa9dbf9: Fix defface's with no customization data


From: Eli Zaretskii
Subject: master e72afa9dbf9: Fix defface's with no customization data
Date: Thu, 20 Jul 2023 12:26:21 -0400 (EDT)

branch: master
commit e72afa9dbf92f45d00c87c90ead364d52f73024f
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Fix defface's with no customization data
    
    * lisp/net/shr.el (shr-h4, shr-h5, shr-h6):
    * lisp/cedet/semantic/decorate/include.el
    (semantic-decoration-on-includes):
    * lisp/progmodes/make-mode.el (makefile-shell):
    * lisp/time.el (display-time-date-and-time):
    * lisp/nxml/nxml-mode.el (nxml-text, nxml-delimiter)
    (nxml-element-colon): Add face definitions (bug#64655).
---
 lisp/cedet/semantic/decorate/include.el |  2 +-
 lisp/net/shr.el                         |  3 +++
 lisp/nxml/nxml-mode.el                  | 14 +++++++-------
 lisp/progmodes/make-mode.el             |  2 +-
 lisp/time.el                            |  1 +
 5 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/lisp/cedet/semantic/decorate/include.el 
b/lisp/cedet/semantic/decorate/include.el
index c83de66ef0c..96bf8cec3b2 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -48,7 +48,7 @@
 ;;; Includes that are in a happy state!
 ;;
 (defface semantic-decoration-on-includes
-  nil
+  '((t (:inherit default)))
   "Overlay Face used on includes that are not in some other state.
 Used by the decoration style: `semantic-decoration-on-includes'."
   :group 'semantic-faces)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9b19a1b3980..0daeafe13ca 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -217,14 +217,17 @@ temporarily blinks with this face."
   :version "28.1")
 
 (defface shr-h4 nil
+  '((t (:inherit default)))
   "Face for <h4> elements."
   :version "28.1")
 
 (defface shr-h5 nil
+  '((t (:inherit default)))
   "Face for <h5> elements."
   :version "28.1")
 
 (defface shr-h6 nil
+  '((t (:inherit default)))
   "Face for <h6> elements."
   :version "28.1")
 
diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index 3869d0327fd..67d136b5a66 100644
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -151,17 +151,17 @@ This is not used directly, but only via inheritance by 
other faces."
 This is not used directly, but only via inheritance by other faces."
   :group 'nxml-faces)
 
+(defface nxml-text
+  '((t (:inherit default)))
+  "Face used to highlight text."
+  :group 'nxml-faces)
+
 (defface nxml-delimiter
-  nil
+  '((t (:inherit nxml-text)))
   "Face used to highlight delimiters.
 This is not used directly, but only via inheritance by other faces."
   :group 'nxml-faces)
 
-(defface nxml-text
-  nil
-  "Face used to highlight text."
-  :group 'nxml-faces)
-
 (defface nxml-processing-instruction-delimiter
   '((t (:inherit nxml-delimiter)))
   "Face used for the delimiters of processing instructions, i.e., <? and ?>."
@@ -230,7 +230,7 @@ This includes the `x' in hex references."
   :group 'nxml-faces)
 
 (defface nxml-element-colon
-  nil
+  '((t (:inherit nxml-delimiter)))
   "Face used for the colon in element names."
   :group 'nxml-faces)
 
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index 5ea03b9e852..308ba69cb9a 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -105,7 +105,7 @@
   :version "22.1")
 
 (defface makefile-shell
-  ()
+  '((t (:inherit default)))
   ;;'((((class color) (min-colors 88) (background light)) (:background  
"seashell1"))
   ;;  (((class color) (min-colors 88) (background dark)) (:background  
"seashell4")))
   "Face to use for additionally highlighting Shell commands in Font-Lock mode."
diff --git a/lisp/time.el b/lisp/time.el
index 522bec46ac6..0184f96fcc2 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -141,6 +141,7 @@ make the mail indicator stand out on a color display."
 
 (defface display-time-date-and-time nil
   "Face for `display-time-format'."
+  '((t (:inherit mode-line)))
   :group 'mode-line-faces
   :version "30.1")
 



reply via email to

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