diff options
| author | Richard M. Stallman | 1996-06-22 16:53:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-22 16:53:35 +0000 |
| commit | 52175688917c99686962b19e039c50f7338528c3 (patch) | |
| tree | 53bca5b1908697e6cdad701bd11156528158c275 /lisp | |
| parent | f42b62e4b86ee20a01cb089340ae5996e64a8b43 (diff) | |
| download | emacs-52175688917c99686962b19e039c50f7338528c3.tar.gz emacs-52175688917c99686962b19e039c50f7338528c3.zip | |
(gnus-background-mode): Set threshold for "light color"
at .6 of the total for white.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus-ems.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 04a32e039c0..a759acfc3bc 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el | |||
| @@ -127,7 +127,7 @@ pounce directly on the real variables themselves.") | |||
| 127 | ((and (cdr (assq 'background-color params)) | 127 | ((and (cdr (assq 'background-color params)) |
| 128 | (< (apply '+ (x-color-values | 128 | (< (apply '+ (x-color-values |
| 129 | (cdr (assq 'background-color params)))) | 129 | (cdr (assq 'background-color params)))) |
| 130 | (/ (apply '+ (x-color-values "white")) 3))) | 130 | (* (apply '+ (x-color-values "white")) .6))) |
| 131 | 'dark) | 131 | 'dark) |
| 132 | (t 'light))) | 132 | (t 'light))) |
| 133 | (error 'light)) | 133 | (error 'light)) |