# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 966777995 0
# Node ID dd71356a722afa7a7db4539b7a2798c5b0760465
# Parent  2f3dc355bcafc336e7165eef238ef622684656fd
(command-line): Clear realized faces after
modifying TTY color mappings.

diff -r 2f3dc355bcaf -r dd71356a722a lisp/startup.el
--- a/lisp/startup.el	Sun Aug 20 13:23:01 2000 +0000
+++ b/lisp/startup.el	Sun Aug 20 13:26:35 2000 +0000
@@ -787,7 +787,10 @@
 	     (color (car colors)))
 	(while colors
 	  (tty-color-define (car color) (cadr color) (cddr color))
-	  (setq colors (cdr colors) color (car colors)))))
+	  (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)))
   
   ;; Load library for our terminal type.
   ;; User init file can set term-file-prefix to nil to prevent this.