From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Nov 1995 00:19:25 +0000 (+0000)
Subject: (font-lock-make-faces): Add special code for ms-dos.
X-Git-Tag: emacs-19.34~2219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03a84c34c29b497e731ee645328e1ae6435d94c9;p=emacs.git

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

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