# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 933324336 0
# Node ID de7cab1fe991f56e41f5b977e2fef87cb889844b
# Parent  04c0fc90874212c9183f3cf302eacaa1576d38d0
(command-line): Don't register default colors for
MSDOS window-system.

diff -r 04c0fc908742 -r de7cab1fe991 lisp/startup.el
--- a/lisp/startup.el	Fri Jul 30 08:41:55 1999 +0000
+++ b/lisp/startup.el	Fri Jul 30 08:45:36 1999 +0000
@@ -790,12 +790,13 @@
   ;; 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.