aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJason Rumney2000-01-30 19:02:51 +0000
committerJason Rumney2000-01-30 19:02:51 +0000
commit429fc14fe5a49f8dc7e551f0e2517dbe7ec18431 (patch)
tree62f29c2932b1d0bc92088efc921de4d57edfb9d7
parent5e568214953104bca07601687bb50b25afa32ce4 (diff)
downloademacs-429fc14fe5a49f8dc7e551f0e2517dbe7ec18431.tar.gz
emacs-429fc14fe5a49f8dc7e551f0e2517dbe7ec18431.zip
(command-line): Use w32-tty-standard-colors when in w32 console mode.
-rw-r--r--lisp/startup.el8
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))