Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-ems.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
122 (params (frame-parameters))) 122 (params (frame-parameters)))
123 (cond (bg-resource (intern (downcase bg-resource))) 123 (cond (bg-resource (intern (downcase bg-resource)))
124 ((and (cdr (assq 'background-color params)) 124 ((and (cdr (assq 'background-color params))
125 (< (apply '+ (x-color-values 125 (< (apply '+ (x-color-values
126 (cdr (assq 'background-color params)))) 126 (cdr (assq 'background-color params))))
127 (/ (apply '+ (x-color-values "white")) 3))) 127 (* (apply '+ (x-color-values "white")) .6)))
128 'dark) 128 'dark)
129 (t 'light))) 129 (t 'light)))
130 (error 'light)) 130 (error 'light))
131 "A symbol indicating the Emacs background brightness. 131 "A symbol indicating the Emacs background brightness.
132 The symbol should be one of `light' or `dark'. 132 The symbol should be one of `light' or `dark'.