+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):
"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))))
;; 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!