mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 14:01:47 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Set default-frame-background-mode instead of frame-background-mode.
This commit is contained in:
Juri Linkov 2005-06-29 20:56:09 +00:00
parent 61b91ad13b
commit 433ec66025
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/term/xterm.el
View file

@ -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!