diff options
| author | Juri Linkov <juri@jurta.org> | 2005-06-29 20:57:16 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2005-06-29 20:57:16 +0000 |
| commit | 9b07ab0a51714a3685308d7c8e6900e37e1fe415 (patch) | |
| tree | 99dbfbe8a4f77fcc6cca7cfb675978c1c1010b7a /lisp/term/rxvt.el | |
| parent | 433ec6602558f4e6557b20dcb9824af5a329603b (diff) | |
| download | emacs-9b07ab0a51714a3685308d7c8e6900e37e1fe415.tar.gz | |
(rxvt-set-background-mode):
Set default-frame-background-mode instead of frame-background-mode.
Diffstat (limited to 'lisp/term/rxvt.el')
| -rw-r--r-- | lisp/term/rxvt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el index 7839ebba95d..a47b6787913 100644 --- 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! |