Explain in a comment why the default background-setting code is still

here, although xterm.l and rxvt.el do that better.
This commit is contained in:
Eli Zaretskii
2002-01-25 17:29:34 +00:00
parent e47cd3c4e2
commit 818cd248c3

View File

@@ -514,6 +514,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(or (null bg)
(member bg '(unspecified "unspecified-bg")))))
(setq term (getenv "TERM"))
;; Some files in lisp/term do a better job with the
;; background mode, but we leave this here anyway, in
;; case they remove those files.
(if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
term)
(setq frame-background-mode 'light)))