From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 30 Jan 2000 19:02:51 +0000 (+0000)
Subject: (command-line): Use w32-tty-standard-colors when in w32 console mode.
X-Git-Tag: emacs-pretest-21.0.90~5178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=429fc14fe5a49f8dc7e551f0e2517dbe7ec18431;p=emacs.git

(command-line): Use w32-tty-standard-colors when in w32 console mode.
---

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'."
   ;; 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))