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 | e4061c5c87908b5c746bb176de71f3c89490aab5 (patch) | |
| tree | 4149f0c656c077f77f8c092d900b03abf46e2c01 /lisp | |
| parent | ebe90ae18eef445e231891ff9b58fb4f5cd24c46 (diff) | |
| download | emacs-e4061c5c87908b5c746bb176de71f3c89490aab5.tar.gz | |
(font-lock-make-faces): Add special code for ms-dos.
Diffstat (limited to 'lisp')
| -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)) |