# HG changeset patch # User Eli Zaretskii # Date 1219510821 0 # Node ID 8e20ddb5288c234889124b72b6d3879e72005b51 # Parent 5c57ca53d968f820131d49179b6492e6f2e3b73a (tty-register-default-colors): Remove bogus code for using msdos-color-values. diff -r 5c57ca53d968 -r 8e20ddb5288c lisp/term/tty-colors.el --- a/lisp/term/tty-colors.el Sat Aug 23 16:59:51 2008 +0000 +++ b/lisp/term/tty-colors.el Sat Aug 23 17:00:21 2008 +0000 @@ -49,14 +49,16 @@ ;; color. ;; `tty-defined-color-alist' is created at startup by calling the -;; function `tty-color-define', defined below, passing it each -;; supported color, its index, and its RGB values. The standard list -;; of colors supported by many Unix color terminals, including xterm, -;; FreeBSD, and GNU/Linux, is supplied below in `tty-standard-colors'. -;; If your terminal supports different or additional colors, call -;; `tty-color-define' from your `.emacs' or `site-start.el'. For -;; more-or-less standard definitions of VGA text-mode colors, see the -;; beginning of lisp/term/pc-win.el. +;; function `tty-register-default-colors', defined below, which in +;; turn calls `tty-color-define', passing it each supported color, its +;; index, and its RGB values. The standard list of colors supported +;; by many Unix color terminals, including xterm, FreeBSD, and +;; GNU/Linux, is supplied below in `tty-standard-colors'. Some +;; terminal-specific files in lisp/term define their own standard +;; colors. If your terminal supports different or additional colors, +;; call `tty-color-define' from your `.emacs' or `site-start.el'. For +;; more-or-less standard definitions of VGA text-mode colors, see +;; lisp/term/pc-win.el. ;;; Code: @@ -811,9 +813,7 @@ (defun tty-register-default-colors () "Register the default set of colors for a character terminal." - (let* ((colors (cond ((eq window-system 'pc) - msdos-color-values) - (t tty-standard-colors))) + (let* ((colors tty-standard-colors) (color (car colors))) (while colors (tty-color-define (car color) (cadr color) (cddr color))