Mercurial > emacs
changeset 42745:00370dd7111e
(command-line): Register the default tty colors even
if the terminal doesn't seem to support colors.
<tty-long-option-alist>: New option --color.
(tty-handle-args): Parse the --color arg.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 14 Jan 2002 13:49:32 +0000 |
| parents | ecb614567352 |
| children | 5c684d670187 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 19 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Mon Jan 14 13:47:56 2002 +0000 +++ b/lisp/startup.el Mon Jan 14 13:49:32 2002 +0000 @@ -545,11 +545,12 @@ ;; Command-line options supported by tty's: (defconst tty-long-option-alist - '(("--name" . "-name") - ("--title" . "-T") - ("--reverse-video" . "-reverse") + '(("--name" . "-name") + ("--title" . "-T") + ("--reverse-video" . "-reverse") ("--foreground-color" . "-fg") - ("--background-color" . "-bg"))) + ("--background-color" . "-bg") + ("--color" . "-color"))) (defconst tool-bar-images-pixel-height 24 "Height in pixels of images in the tool bar.") @@ -619,6 +620,17 @@ (setq default-frame-alist (cons '(reverse . t) default-frame-alist))) + ((string= this "-color") + (if (null argval) + (setq argval 8)) ; default --color means 8 ANSI colors + (setq default-frame-alist + (cons (cons 'tty-color-mode + (cond + ((numberp argval) argval) + ((string-match "-?[0-9]+" argval) + (string-to-number argval)) + (t (intern argval)))) + default-frame-alist))) (t (setq rest (cons this rest)))))) (nreverse rest))) @@ -818,7 +830,9 @@ ;; Register default TTY colors for the case the terminal hasn't a ;; terminal init file. (or (memq window-system '(x w32)) - (not (tty-display-color-p)) + ;; We do this regardles of whether the terminal supports colors + ;; or not, since they can switch that support on or off in + ;; mid-session by setting the tty-color-mode frame parameter. (let* ((colors (cond ((eq window-system 'pc) msdos-color-values) ((eq system-type 'windows-nt)