Commit 9b07ab0a authored by Juri Linkov's avatar Juri Linkov
Browse files

(rxvt-set-background-mode):

Set default-frame-background-mode instead of frame-background-mode.
parent 433ec660
2005-06-29 Juri Linkov <juri@jurta.org>
* faces.el (default-frame-background-mode): New internal variable.
(frame-set-background-mode): Use it.
* startup.el (normal-top-level): Set default-frame-background-mode
instead of frame-background-mode. Before setting it, test for its
nil value. Remove tests for frame-background-mode and frame
parameter `reverse'. Add test for "unspecified-fg".
* term/xterm.el (xterm-rxvt-set-background-mode):
* term/rxvt.el (rxvt-set-background-mode):
Set default-frame-background-mode instead of frame-background-mode.
2005-06-29 Juanma Barranquero <lekktu@gmail.com>
 
* imenu.el (imenu--completion-buffer):
......
......@@ -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!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment