From 5ebc02b3656890d1d110c671129c64547bdbcdd6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 28 Oct 2000 18:48:08 +0000 Subject: [PATCH] (normal-top-level): If the value of $TERM indicates that we are running from xterm or one of its work-alikes, default to a light background mode. --- lisp/ChangeLog | 4 ++++ lisp/startup.el | 17 ++++++++++++++++- 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b63b2e2464..6d8da4be223 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2000-10-28 Eli Zaretskii + * startup.el (normal-top-level): If the value of $TERM indicates + we are running from xterm or one of its work-alikes, default to a + light background mode. + Support for -fg, -bg, and -rv command-line arguments for TTYs: * faces.el (tty-handle-reverse-video): New function. (tty-create-frame-with-faces): Call it. diff --git a/lisp/startup.el b/lisp/startup.el index 51a6778f834..0a0919958f3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -478,7 +478,22 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; frame-notice-user-settings didn't (such as on a tty). ;; frame-set-background-mode is idempotent, so it won't ;; cause any harm if it's already been done. - (frame-set-background-mode (selected-frame))) + (let ((frame-background-mode frame-background-mode) + (frame (selected-frame)) + term) + (when (and (null window-system) + ;; Don't override a possibly customized value. + (null frame-background-mode) + ;; Don't override user specifications. + (null (frame-parameter frame 'reverse)) + (let ((bg (frame-parameter frame 'background-color))) + (or (null bg) + (member bg '(unspecified "unspecified-bg"))))) + (setq term (getenv "TERM")) + (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)" + term) + (setq frame-background-mode 'light))) + (frame-set-background-mode (selected-frame)))) ;; Now we know the user's default font, so add it to the menu. (if (fboundp 'font-menu-add-default) -- 2.39.5