diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-22 16:51:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-22 16:51:43 +0000 |
| commit | f42b62e4b86ee20a01cb089340ae5996e64a8b43 (patch) | |
| tree | 02988117efceb747f40bac4d4d5e46f72dbbc2d5 /lisp | |
| parent | 74d0290b36986699af7933a19699ee768f6256ea (diff) | |
| download | emacs-f42b62e4b86ee20a01cb089340ae5996e64a8b43.tar.gz | |
(font-lock-make-faces): Set threshold for "light color"
at .6 of the total for white.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/font-lock.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |