(xterm-rxvt-set-background-mode):

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

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index b55f18f688365652a5e3779270a542e216714c50..2a2df2564e4ee714d01af76d1b9600f915e5d588 100644 (file)
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -366,7 +366,7 @@ versions of xterm."
   "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))))
@@ -379,7 +379,7 @@ versions of xterm."
             ;; The following line assumes that white is the 15th
             ;; color in xterm-standard-colors.
             (* (apply '+ (car (cddr (nth 15 xterm-standard-colors)))) 0.6))
-         (setq frame-background-mode 'dark)))
+         (setq default-frame-background-mode 'dark)))
     (frame-set-background-mode (selected-frame))))
 
 ;; Do it!