Commit 433ec660 authored by Juri Linkov's avatar Juri Linkov
Browse files

(xterm-rxvt-set-background-mode):

Set default-frame-background-mode instead of frame-background-mode.
parent 61b91ad1
......@@ -366,7 +366,7 @@ versions of xterm."
"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))))
......@@ -379,7 +379,7 @@ versions of xterm."
;; The following line assumes that white is the 15th
;; color in xterm-standard-colors.
(* (apply '+ (car (cddr (nth 15 xterm-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