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).
This commit is contained in:
Eli Zaretskii 2023-07-20 19:25:43 +03:00
parent 65108998b1
commit e72afa9dbf
5 changed files with 14 additions and 10 deletions

View file

@ -48,7 +48,7 @@
;;; Includes that are in a happy state! ;;; Includes that are in a happy state!
;; ;;
(defface semantic-decoration-on-includes (defface semantic-decoration-on-includes
nil '((t (:inherit default)))
"Overlay Face used on includes that are not in some other state. "Overlay Face used on includes that are not in some other state.
Used by the decoration style: `semantic-decoration-on-includes'." Used by the decoration style: `semantic-decoration-on-includes'."
:group 'semantic-faces) :group 'semantic-faces)

View file

@ -217,14 +217,17 @@ temporarily blinks with this face."
:version "28.1") :version "28.1")
(defface shr-h4 nil (defface shr-h4 nil
'((t (:inherit default)))
"Face for <h4> elements." "Face for <h4> elements."
:version "28.1") :version "28.1")
(defface shr-h5 nil (defface shr-h5 nil
'((t (:inherit default)))
"Face for <h5> elements." "Face for <h5> elements."
:version "28.1") :version "28.1")
(defface shr-h6 nil (defface shr-h6 nil
'((t (:inherit default)))
"Face for <h6> elements." "Face for <h6> elements."
:version "28.1") :version "28.1")

View file

@ -151,15 +151,15 @@ This is not used directly, but only via inheritance by other faces."
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) :group 'nxml-faces)
(defface nxml-delimiter (defface nxml-text
nil '((t (:inherit default)))
"Face used to highlight delimiters. "Face used to highlight text."
This is not used directly, but only via inheritance by other faces."
:group 'nxml-faces) :group 'nxml-faces)
(defface nxml-text (defface nxml-delimiter
nil '((t (:inherit nxml-text)))
"Face used to highlight text." "Face used to highlight delimiters.
This is not used directly, but only via inheritance by other faces."
:group 'nxml-faces) :group 'nxml-faces)
(defface nxml-processing-instruction-delimiter (defface nxml-processing-instruction-delimiter
@ -230,7 +230,7 @@ This includes the `x' in hex references."
:group 'nxml-faces) :group 'nxml-faces)
(defface nxml-element-colon (defface nxml-element-colon
nil '((t (:inherit nxml-delimiter)))
"Face used for the colon in element names." "Face used for the colon in element names."
:group 'nxml-faces) :group 'nxml-faces)

View file

@ -105,7 +105,7 @@
:version "22.1") :version "22.1")
(defface makefile-shell (defface makefile-shell
() '((t (:inherit default)))
;;'((((class color) (min-colors 88) (background light)) (:background "seashell1")) ;;'((((class color) (min-colors 88) (background light)) (:background "seashell1"))
;; (((class color) (min-colors 88) (background dark)) (:background "seashell4"))) ;; (((class color) (min-colors 88) (background dark)) (:background "seashell4")))
"Face to use for additionally highlighting Shell commands in Font-Lock mode." "Face to use for additionally highlighting Shell commands in Font-Lock mode."

View file

@ -141,6 +141,7 @@ make the mail indicator stand out on a color display."
(defface display-time-date-and-time nil (defface display-time-date-and-time nil
"Face for `display-time-format'." "Face for `display-time-format'."
'((t (:inherit mode-line)))
:group 'mode-line-faces :group 'mode-line-faces
:version "30.1") :version "30.1")