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 c83de66ef0c5a0e14f44b090257e0d3325067b15..96bf8cec3b28508dfe651658eb0b26034b10775d 100644 (file)
--- 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 9b19a1b39808d88649a9b4212921d83ed5a56c5e..0daeafe13cad598bc5390c2f7e646a05b83d12be 100644 (file)
--- 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 3869d0327fd1ade624dcc0e5e571bef4b27a9667..67d136b5a668abe05abf30bae33b6a285c3c707f 100644 (file)
--- 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 5ea03b9e8529b173335ca70e99d94973a8f90ea9..308ba69cb9ab0a7d38b3370e1dd7fd2e94a43176 100644 (file)
--- 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 522bec46ac65f833dceb0ac2d65c182586ba6eb5..0184f96fcc25ce9c3069662c63fc11451725578f 100644 (file)
--- 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")