Commit 5ebc02b3 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(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.
parent 45b84006
2000-10-28 Eli Zaretskii <eliz@is.elta.co.il>
* 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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment