From 3606b4da9ace3582039071f6212a634b77eb5f49 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 30 Jul 1999 08:45:36 +0000 Subject: [PATCH] (command-line): Don't register default colors for MSDOS window-system. --- lisp/startup.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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. -- 2.39.5