(rxvt-set-background-mode):

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27663ab..c5b8f56 100644 (file)
--- 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 7839ebb..a47b678 100644 (file)
--- 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!