diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-25 00:19:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-25 00:19:25 +0000 |
| commit | 03a84c34c29b497e731ee645328e1ae6435d94c9 (patch) | |
| tree | 792a4b6c0fdb8a13915124bf52803de2d68d19cb /lisp/font-lock.el | |
| parent | bc15ba424c74d7bfdfef793cc344300db02b01a0 (diff) | |
| download | emacs-03a84c34c29b497e731ee645328e1ae6435d94c9.tar.gz | |
(font-lock-make-faces): Add special code for ms-dos.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 5d0afbddd95..c3aaa17f13a 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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)) |