mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1995-11-25 00:19:25 +00:00
parent bc15ba424c
commit 03a84c34c2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/font-lock.el
View File

@ -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))