# 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.