# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 972758770 0
# Node ID 2eb3adfaa01f482f66928736fba21e110b2d4300
# Parent  b81a0bbc568274518789223028815b8e6e82823f
(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.

diff -r b81a0bbc5682 -r 2eb3adfaa01f lisp/startup.el
--- a/lisp/startup.el	Sat Oct 28 17:25:46 2000 +0000
+++ b/lisp/startup.el	Sat Oct 28 18:46:10 2000 +0000
@@ -478,7 +478,22 @@
 	    ;; 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)