From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 30 Jul 1999 08:45:36 +0000 (+0000)
Subject: (command-line): Don't register default colors for
X-Git-Tag: emacs-pretest-21.0.90~7321
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3606b4da9ace3582039071f6212a634b77eb5f49;p=emacs.git

(command-line): Don't register default colors for
MSDOS window-system.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 38b9b1b8afd..d2b2afd57fe 100644
--- 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.