# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 971946242 0
# Node ID bd6de75143820f309d1cb95bb17dec7a7568b1e8
# Parent  f0e772824ae938fc711db3e6b61aa557896ddb55
(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 -r f0e772824ae9 -r bd6de7514382 lisp/startup.el
--- a/lisp/startup.el	Thu Oct 19 08:37:11 2000 +0000
+++ b/lisp/startup.el	Thu Oct 19 09:04:02 2000 +0000
@@ -473,6 +473,13 @@
 	;; ...-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))