diff options
| author | Jason Rumney | 2000-01-30 19:02:51 +0000 |
|---|---|---|
| committer | Jason Rumney | 2000-01-30 19:02:51 +0000 |
| commit | 429fc14fe5a49f8dc7e551f0e2517dbe7ec18431 (patch) | |
| tree | 62f29c2932b1d0bc92088efc921de4d57edfb9d7 | |
| parent | 5e568214953104bca07601687bb50b25afa32ce4 (diff) | |
| download | emacs-429fc14fe5a49f8dc7e551f0e2517dbe7ec18431.tar.gz emacs-429fc14fe5a49f8dc7e551f0e2517dbe7ec18431.zip | |
(command-line): Use w32-tty-standard-colors when in w32 console mode.
| -rw-r--r-- | lisp/startup.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index f910ea62fea..e0fac712788 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -749,9 +749,11 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 749 | ;; terminal init file. | 749 | ;; terminal init file. |
| 750 | (or (memq window-system '(x w32)) | 750 | (or (memq window-system '(x w32)) |
| 751 | (not (tty-display-color-p)) | 751 | (not (tty-display-color-p)) |
| 752 | (let* ((colors (if (eq window-system 'pc) | 752 | (let* ((colors (cond ((eq window-system 'pc) |
| 753 | msdos-color-values | 753 | msdos-color-values) |
| 754 | tty-standard-colors)) | 754 | ((eq system-type 'windows-nt) |
| 755 | w32-tty-standard-colors) | ||
| 756 | (t tty-standard-colors))) | ||
| 755 | (color (car colors))) | 757 | (color (car colors))) |
| 756 | (while colors | 758 | (while colors |
| 757 | (tty-color-define (car color) (cadr color) (cddr color)) | 759 | (tty-color-define (car color) (cadr color) (cddr color)) |