# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1120078569 0
# Node ID 07f8d532fe8baa61b0c7bb4799f92cfc3763478a
# Parent  250dde1292640f6f783bfce0b460fd9d868a1816
(xterm-rxvt-set-background-mode):
Set default-frame-background-mode instead of frame-background-mode.

diff -r 250dde129264 -r 07f8d532fe8b lisp/term/xterm.el
--- a/lisp/term/xterm.el	Wed Jun 29 20:55:30 2005 +0000
+++ b/lisp/term/xterm.el	Wed Jun 29 20:56:09 2005 +0000
@@ -366,7 +366,7 @@
   "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 @@
 	     ;; 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!