514 |
(or (null bg) |
(or (null bg) |
515 |
(member bg '(unspecified "unspecified-bg"))))) |
(member bg '(unspecified "unspecified-bg"))))) |
516 |
(setq term (getenv "TERM")) |
(setq term (getenv "TERM")) |
517 |
|
;; Some files in lisp/term do a better job with the |
518 |
|
;; background mode, but we leave this here anyway, in |
519 |
|
;; case they remove those files. |
520 |
(if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" |
(if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" |
521 |
term) |
term) |
522 |
(setq frame-background-mode 'light))) |
(setq frame-background-mode 'light))) |