Mercurial > emacs
changeset 63858:379e37eca752
(default-frame-background-mode): New internal variable.
(frame-set-background-mode): Use it.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 29 Jun 2005 20:55:15 +0000 |
| parents | fe881431ae4f |
| children | 250dde129264 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Wed Jun 29 13:58:00 2005 +0000 +++ b/lisp/faces.el Wed Jun 29 20:55:15 2005 +0000 @@ -1575,6 +1575,13 @@ (choice-item light) (choice-item :tag "default" nil))) +(defvar default-frame-background-mode nil + "Internal variable for the default brightness of the background. +Emacs sets it automatically depending on the terminal type. +The value `nil' means `dark'. If Emacs runs in non-windowed +mode from `xterm' or a similar terminal emulator, the value is +`light'. On rxvt terminals, the value depends on the environment +variable COLORFGBG.") (defun frame-set-background-mode (frame) "Set up display-dependent faces on FRAME. @@ -1590,13 +1597,13 @@ (intern (downcase bg-resource))) ((and (null window-system) (null bg-color)) ;; No way to determine this automatically (?). - 'dark) + (or default-frame-background-mode 'dark)) ;; Unspecified frame background color can only happen ;; on tty's. ((member bg-color '(unspecified "unspecified-bg")) - 'dark) + (or default-frame-background-mode 'dark)) ((equal bg-color "unspecified-fg") ; inverted colors - 'light) + (if (eq default-frame-background-mode 'light) 'dark 'light)) ((>= (apply '+ (x-color-values bg-color frame)) ;; Just looking at the screen, colors whose ;; values add up to .6 of the white total