From 433ec6602558f4e6557b20dcb9824af5a329603b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 29 Jun 2005 20:56:09 +0000 Subject: (xterm-rxvt-set-background-mode): Set default-frame-background-mode instead of frame-background-mode. --- lisp/term/xterm.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/term') diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index b55f18f688..2a2df2564e 100644 --- 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! -- cgit v1.2.3