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> 2005-06-29 Juanma Barranquero <lekktu@gmail.com>
   
* imenu.el (imenu--completion-buffer): * imenu.el (imenu--completion-buffer):
......
...@@ -150,7 +150,7 @@ for the currently selected frame." ...@@ -150,7 +150,7 @@ for the currently selected frame."
"Set background mode as appropriate for the default rxvt colors." "Set background mode as appropriate for the default rxvt colors."
(let ((fgbg (getenv "COLORFGBG")) (let ((fgbg (getenv "COLORFGBG"))
bg rgb) bg rgb)
(setq frame-background-mode 'light) ; default (setq default-frame-background-mode 'light)
(when (and fgbg (when (and fgbg
(string-match ".*;\\([0-9][0-9]?\\)\\'" fgbg)) (string-match ".*;\\([0-9][0-9]?\\)\\'" fgbg))
(setq bg (string-to-number (substring fgbg (match-beginning 1)))) (setq bg (string-to-number (substring fgbg (match-beginning 1))))
...@@ -163,7 +163,7 @@ for the currently selected frame." ...@@ -163,7 +163,7 @@ for the currently selected frame."
;; The following line assumes that white is the 15th ;; The following line assumes that white is the 15th
;; color in rxvt-standard-colors. ;; color in rxvt-standard-colors.
(* (apply '+ (car (cddr (nth 15 rxvt-standard-colors)))) 0.6)) (* (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)))) (frame-set-background-mode (selected-frame))))
;; Do it! ;; 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