# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 949258971 0
# Node ID 65d84be1e92d92a942e16d304b923a04e93396b3
# Parent  719f644e7cecfa0d52bade1e42d3d7d622e812ec
(command-line): Use w32-tty-standard-colors when in w32 console mode.

diff -r 719f644e7cec -r 65d84be1e92d lisp/startup.el
--- a/lisp/startup.el	Sun Jan 30 19:01:08 2000 +0000
+++ b/lisp/startup.el	Sun Jan 30 19:02:51 2000 +0000
@@ -749,9 +749,11 @@
   ;; terminal init file.
   (or (memq window-system '(x w32))
       (not (tty-display-color-p))
-      (let* ((colors (if (eq window-system 'pc)
-			 msdos-color-values
-		       tty-standard-colors))
+      (let* ((colors (cond ((eq window-system 'pc)
+                            msdos-color-values)
+                           ((eq system-type 'windows-nt)
+                            w32-tty-standard-colors)
+                           (t tty-standard-colors)))
 	     (color (car colors)))
 	(while colors
 	  (tty-color-define (car color) (cadr color) (cddr color))