aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/font-lock.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index d2dd20ab028..f451d3aecfa 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -275,21 +275,21 @@ See `font-lock-make-face' and `list-faces-display'."
275 grayshade greyshade)) 275 grayshade greyshade))
276 (list 276 (list
277 (list 'font-lock-comment-face 277 (list 'font-lock-comment-face
278 (if light-bg "DimGray" "Gray80") nil t t nil) 278 nil (if light-bg "Gray80" "DimGray") t t nil)
279 (list 'font-lock-string-face 279 (list 'font-lock-string-face
280 (if light-bg "Gray50" "LightGray") nil nil t nil) 280 nil (if light-bg "Gray50" "LightGray") nil t nil)
281 (list 'font-lock-keyword-face 281 (list 'font-lock-keyword-face
282 (if light-bg "DimGray" "Gray90") nil t nil nil) 282 nil (if light-bg "Gray90" "DimGray") t nil nil)
283 (list 'font-lock-function-name-face 283 (list 'font-lock-function-name-face
284 (cdr (assq 'background-color (frame-parameters))) 284 (cdr (assq 'background-color (frame-parameters)))
285 (cdr (assq 'foreground-color (frame-parameters))) 285 (cdr (assq 'foreground-color (frame-parameters)))
286 t nil nil) 286 t nil nil)
287 (list 'font-lock-variable-name-face 287 (list 'font-lock-variable-name-face
288 (if light-bg "DimGray" "Gray90") nil t t nil) 288 nil (if light-bg "Gray90" "DimGray") t t nil)
289 (list 'font-lock-type-face 289 (list 'font-lock-type-face
290 (if light-bg "DimGray" "Gray80") nil t nil t) 290 nil (if light-bg "Gray80" "DimGray") t nil t)
291 (list 'font-lock-reference-face 291 (list 'font-lock-reference-face
292 (if light-bg "Gray50" "LightGray") nil t nil t))) 292 nil (if light-bg "LightGray" "Gray50") t nil t)))
293 (light-bg ; light colour background 293 (light-bg ; light colour background
294 '((font-lock-comment-face "Firebrick") 294 '((font-lock-comment-face "Firebrick")
295 (font-lock-string-face "RosyBrown") 295 (font-lock-string-face "RosyBrown")