Mercurial > emacs
diff lisp/term/rxvt.el @ 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 | 695cf19ef79e |
| children | a8fa7c632ee4 efa9e4606e7e bb71c6cf2009 |
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!