[Emacs-diffs] Changes to emacs/lisp/startup.el

[Eli Zaretskii]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.286 emacs/lisp/startup.el:1.287
*** emacs/lisp/startup.el:1.286 Wed Jan 16 14:42:27 2002
--- emacs/lisp/startup.el       Fri Jan 25 08:20:18 2002
***************
*** 835,852 ****
        ;; 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)))
  
    ;; Record whether the tool-bar is present before the user and site
    ;; init files are processed.  frame-notice-user-settings uses this
--- 835,841 ----
        ;; 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.
!       (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