From d4bc31e91a0bbffa7973f3f99c2fd01561fdc17f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 25 Jan 2002 13:20:18 +0000 Subject: [PATCH] (command-line): Call tty-register-default-colors. --- lisp/startup.el | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 18e33f2e3e9..12097f5fe8f 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -835,18 +835,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." ;; We do this regardles of whether the terminal supports colors ;; or not, since they can switch that support on or off in ;; mid-session by setting the tty-color-mode frame parameter. - (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)) - (setq colors (cdr colors) color (car colors))) - ;; Modifying color mappings means realized faces don't - ;; use the right colors, so clear them. - (clear-face-cache))) + (tty-register-default-colors)) ;; Record whether the tool-bar is present before the user and site ;; init files are processed. frame-notice-user-settings uses this -- 2.39.2