From 429fc14fe5a49f8dc7e551f0e2517dbe7ec18431 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Sun, 30 Jan 2000 19:02:51 +0000 Subject: [PATCH] (command-line): Use w32-tty-standard-colors when in w32 console mode. --- lisp/startup.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index f910ea62fea..e0fac712788 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -749,9 +749,11 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; 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)) -- 2.39.5