diff options
| author | Eli Zaretskii | 2002-01-25 17:29:34 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2002-01-25 17:29:34 +0000 |
| commit | 818cd248c3a22df7517554a00fa065e77eecf788 (patch) | |
| tree | 7bc939dc9e503e8e82b0bca15de8f92fb69a8a56 | |
| parent | e47cd3c4e2a137839698dc046e0745b57b02ae1d (diff) | |
| download | emacs-818cd248c3a22df7517554a00fa065e77eecf788.tar.gz emacs-818cd248c3a22df7517554a00fa065e77eecf788.zip | |
Explain in a comment why the default background-setting code is still
here, although xterm.l and rxvt.el do that better.
| -rw-r--r-- | lisp/startup.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 12097f5fe8f..932f12bf9b9 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -514,6 +514,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 514 | (or (null bg) | 514 | (or (null bg) |
| 515 | (member bg '(unspecified "unspecified-bg"))))) | 515 | (member bg '(unspecified "unspecified-bg"))))) |
| 516 | (setq term (getenv "TERM")) | 516 | (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. | ||
| 517 | (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" | 520 | (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" |
| 518 | term) | 521 | term) |
| 519 | (setq frame-background-mode 'light))) | 522 | (setq frame-background-mode 'light))) |