From: Juri Linkov Date: Wed, 29 Jun 2005 20:57:16 +0000 (+0000) Subject: (rxvt-set-background-mode): X-Git-Tag: emacs-pretest-22.0.90~8560 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b07ab0a51714a3685308d7c8e6900e37e1fe415;p=emacs.git (rxvt-set-background-mode): Set default-frame-background-mode instead of frame-background-mode. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 27663abdaf8..c5b8f56c074 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2005-06-29 Juri Linkov + + * faces.el (default-frame-background-mode): New internal variable. + (frame-set-background-mode): Use it. + + * startup.el (normal-top-level): Set default-frame-background-mode + instead of frame-background-mode. Before setting it, test for its + nil value. Remove tests for frame-background-mode and frame + parameter `reverse'. Add test for "unspecified-fg". + + * term/xterm.el (xterm-rxvt-set-background-mode): + * term/rxvt.el (rxvt-set-background-mode): + Set default-frame-background-mode instead of frame-background-mode. + 2005-06-29 Juanma Barranquero * imenu.el (imenu--completion-buffer): diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el index 7839ebba95d..a47b6787913 100644 --- a/lisp/term/rxvt.el +++ b/lisp/term/rxvt.el @@ -150,7 +150,7 @@ for the currently selected frame." "Set background mode as appropriate for the default rxvt colors." (let ((fgbg (getenv "COLORFGBG")) bg rgb) - (setq frame-background-mode 'light) ; default + (setq default-frame-background-mode 'light) (when (and fgbg (string-match ".*;\\([0-9][0-9]?\\)\\'" fgbg)) (setq bg (string-to-number (substring fgbg (match-beginning 1)))) @@ -163,7 +163,7 @@ for the currently selected frame." ;; The following line assumes that white is the 15th ;; color in rxvt-standard-colors. (* (apply '+ (car (cddr (nth 15 rxvt-standard-colors)))) 0.6)) - (setq frame-background-mode 'dark))) + (setq default-frame-background-mode 'dark))) (frame-set-background-mode (selected-frame)))) ;; Do it!