From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 20 Jul 2023 16:25:43 +0000 (+0300)
Subject: Fix defface's with no customization data
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e72afa9dbf92f45d00c87c90ead364d52f73024f;p=emacs.git

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).
---

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")