From 03a84c34c29b497e731ee645328e1ae6435d94c9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Nov 1995 00:19:25 +0000 Subject: [PATCH] (font-lock-make-faces): Add special code for ms-dos. --- lisp/font-lock.el | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- 2.39.2