(normal-top-level):

  Call `frame-set-background-mode' after `frame-notice-user-settings'
  because the latter doesn't call the former on a tty.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e08f40ecc9c167f2f7ccf48844825a8903aed48..1539e0df30f66e38fe0e6c9fd44942b00311c44a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2000-10-19  Miles Bader  <miles@lsi.nec.co.jp>
 
+       * startup.el (normal-top-level): Call `frame-set-background-mode'
+       after `frame-notice-user-settings' because the latter doesn't call
+       the former on a tty.
+
        * faces.el (frame-set-background-mode): `unspecified' &c are
        symbols, not strings.
 

diff --git a/lisp/startup.el b/lisp/startup.el
index 432715182d2ce7b96604bbbad44efffe6dd2e4f6..2d3b8a70d4e29d4383c1de75d773f56a5fcca710 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -473,6 +473,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
        ;; ...-frame-alist.
        (if (fboundp 'frame-notice-user-settings)
            (frame-notice-user-settings))
+       (if (fboundp 'frame-set-background-mode)
+           ;; Set the faces for the initial background mode even if
+           ;; frame-notice-user-settings didn't (such as on a tty).
+           ;; frame-set-background-mode is idempotent, so it won't
+           ;; cause any harm if it's already been done.
+           (frame-set-background-mode (selected-frame)))
+
        ;; Now we know the user's default font, so add it to the menu.
        (if (fboundp 'font-menu-add-default)
            (font-menu-add-default))