(rxvt-set-background-mode):

Set default-frame-background-mode instead of frame-background-mode.

2 files changed, 16 insertions, 2 deletions

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  <juri@jurta.org>
+
+        * 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  <lekktu@gmail.com>
 
         * 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!