Mercurial > emacs

diff lisp/startup.el @ 27522:65d84be1e92d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Use w32-tty-standard-colors when in w32 console mode.
author Jason Rumney <jasonr@gnu.org>
date Sun, 30 Jan 2000 19:02:51 +0000
parents 56c304580b79
children 1e6a2d23b456
line wrap: on
line diff
--- 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))