Commit 03a84c34 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(font-lock-make-faces): Add special code for ms-dos.

parent bc15ba42
......@@ -904,6 +904,11 @@ See `font-lock-make-face' and `list-faces-display'."
"BackgroundMode"))
(params (frame-parameters)))
(cond (bg-resource (intern (downcase bg-resource)))
((eq system-type 'ms-dos)
(if (string-match "light"
(cdr (assq 'background-color params)))
'light
'dark))
((< (apply '+ (x-color-values
(cdr (assq 'background-color params))))
(/ (apply '+ (x-color-values "white")) 3))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment