Mercurial > emacs
changeset 25120:de7cab1fe991
(command-line): Don't register default colors for
MSDOS window-system.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 30 Jul 1999 08:45:36 +0000 |
| parents | 04c0fc908742 |
| children | 89064915a42f |
| files | lisp/startup.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri Jul 30 08:41:55 1999 +0000 +++ b/lisp/startup.el Fri Jul 30 08:45:36 1999 +0000 @@ -790,12 +790,13 @@ ;; 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.