Skip to content

Commit e72afa9

Browse files
committed
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).
1 parent 6510899 commit e72afa9

File tree

5 files changed

+13
-9
lines changed

5 files changed

+13
-9
lines changed

lisp/cedet/semantic/decorate/include.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@
4848
;;; Includes that are in a happy state!
4949
;;
5050
(defface semantic-decoration-on-includes
51-
nil
51+
'((t (:inherit default)))
5252
"Overlay Face used on includes that are not in some other state.
5353
Used by the decoration style: `semantic-decoration-on-includes'."
5454
:group 'semantic-faces)

lisp/net/shr.el

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -217,14 +217,17 @@ temporarily blinks with this face."
217217
:version "28.1")
218218

219219
(defface shr-h4 nil
220+
'((t (:inherit default)))
220221
"Face for <h4> elements."
221222
:version "28.1")
222223

223224
(defface shr-h5 nil
225+
'((t (:inherit default)))
224226
"Face for <h5> elements."
225227
:version "28.1")
226228

227229
(defface shr-h6 nil
230+
'((t (:inherit default)))
228231
"Face for <h6> elements."
229232
:version "28.1")
230233

lisp/nxml/nxml-mode.el

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -151,17 +151,17 @@ This is not used directly, but only via inheritance by other faces."
151151
This is not used directly, but only via inheritance by other faces."
152152
:group 'nxml-faces)
153153

154+
(defface nxml-text
155+
'((t (:inherit default)))
156+
"Face used to highlight text."
157+
:group 'nxml-faces)
158+
154159
(defface nxml-delimiter
155-
nil
160+
'((t (:inherit nxml-text)))
156161
"Face used to highlight delimiters.
157162
This is not used directly, but only via inheritance by other faces."
158163
:group 'nxml-faces)
159164

160-
(defface nxml-text
161-
nil
162-
"Face used to highlight text."
163-
:group 'nxml-faces)
164-
165165
(defface nxml-processing-instruction-delimiter
166166
'((t (:inherit nxml-delimiter)))
167167
"Face used for the delimiters of processing instructions, i.e., <? and ?>."
@@ -230,7 +230,7 @@ This includes the `x' in hex references."
230230
:group 'nxml-faces)
231231

232232
(defface nxml-element-colon
233-
nil
233+
'((t (:inherit nxml-delimiter)))
234234
"Face used for the colon in element names."
235235
:group 'nxml-faces)
236236

lisp/progmodes/make-mode.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -105,7 +105,7 @@
105105
:version "22.1")
106106

107107
(defface makefile-shell
108-
()
108+
'((t (:inherit default)))
109109
;;'((((class color) (min-colors 88) (background light)) (:background "seashell1"))
110110
;; (((class color) (min-colors 88) (background dark)) (:background "seashell4")))
111111
"Face to use for additionally highlighting Shell commands in Font-Lock mode."

lisp/time.el

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -141,6 +141,7 @@ make the mail indicator stand out on a color display."
141141

142142
(defface display-time-date-and-time nil
143143
"Face for `display-time-format'."
144+
'((t (:inherit mode-line)))
144145
:group 'mode-line-faces
145146
:version "30.1")
146147

0 commit comments

Comments
 (0)