changeset 63861:63a4d25b8e9e

(rxvt-set-background-mode): Set default-frame-background-mode instead of frame-background-mode.
author Juri Linkov <juri@jurta.org>
date Wed, 29 Jun 2005 20:56:34 +0000
parents 07f8d532fe8b
children 28f7f3114ebd
files lisp/term/rxvt.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/rxvt.el	Wed Jun 29 20:56:09 2005 +0000
+++ b/lisp/term/rxvt.el	Wed Jun 29 20:56:34 2005 +0000
@@ -150,7 +150,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))))
@@ -163,7 +163,7 @@
 	     ;; 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!