Mercurial > emacs

changeset 42953:9071f84734d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line): Call tty-register-default-colors.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 25 Jan 2002 13:20:18 +0000
parents c73820c5ecbf
children e514d4931d6f
files lisp/startup.el
diffstat 1 files changed, 1 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Fri Jan 25 13:19:28 2002 +0000
+++ b/lisp/startup.el	Fri Jan 25 13:20:18 2002 +0000
@@ -835,18 +835,7 @@
       ;; 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