(command-line): Don't register default colors for

MSDOS window-system.

diff --git a/lisp/startup.el b/lisp/startup.el
index 38b9b1b8afdd314e90b704c4be8bbe7ff5bbe9c4..d2b2afd57feb5425718a052ee7a9caef14248848 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -790,12 +790,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
   ;; terminal init file.  The colors are good for xterm-color and the
   ;; FreeBSD console (cons.*).  They should be sufficient for Linux
   ;; too, I guess.
-  (let ((colors '("black" "red" "green" "yellow" "blue" "magenta"
-                 "cyan" "white"))
-       (i 0))
-    (while colors
-      (face-register-tty-color (car colors) i)
-      (setq colors (cdr colors) i (1+ i))))
+  (or (eq window-system 'pc)   ; pc-win.el did this already
+      (let ((colors '("black" "red" "green" "yellow" "blue" "magenta"
+                     "cyan" "white"))
+           (i 0))
+       (while colors
+         (face-register-tty-color (car colors) i)
+         (setq colors (cdr colors) i (1+ i)))))
   
   ;; Load library for our terminal type.
   ;; User init file can set term-file-prefix to nil to prevent this.