From 936f837ef4097df55fe3b10b60a7f8bbc331f742 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 Jun 1996 16:51:43 +0000 Subject: (font-lock-make-faces): Set threshold for "light color" at .6 of the total for white. --- lisp/font-lock.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/font-lock.el') diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 388efef6d6c..f97722ac311 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1181,7 +1181,7 @@ See `font-lock-make-face' and `list-faces-display'." 'dark)) ((< (apply '+ (x-color-values (cdr (assq 'background-color params)))) - (/ (apply '+ (x-color-values "white")) 3)) + (* (apply '+ (x-color-values "white")) .6)) 'dark) (t 'light))))) (if (null font-lock-face-attributes) -- cgit v1.2.1