Mercurial > emacs

changeset 13641:1233bea2cb02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-make-faces): Add special code for ms-dos.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Nov 1995 00:19:25 +0000
parents ee453099e188
children 12e79efc1450
files lisp/font-lock.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Fri Nov 24 23:18:22 1995 +0000
+++ b/lisp/font-lock.el	Sat Nov 25 00:19:25 1995 +0000
@@ -904,6 +904,11 @@
 					       "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))