# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743716980 0
# Node ID 99e31e531877074bf0e964d026c2acb35b95f8bf
# Parent  990f6ee7f5279c5d0a08980b9c6d0a1da6ba7bd4
(normal-top-level): Call font-menu-add-default.

diff -r 990f6ee7f527 -r 99e31e531877 lisp/startup.el
--- a/lisp/startup.el	Mon Jul 26 19:14:26 1993 +0000
+++ b/lisp/startup.el	Mon Jul 26 20:03:00 1993 +0000
@@ -148,8 +148,13 @@
       (run-hooks 'emacs-startup-hook)
       (and term-setup-hook
 	   (run-hooks 'term-setup-hook))
+      ;; Modify the initial frame based on what .emacs puts into
+      ;; ...-frame-alist.
       (if (fboundp 'frame-notice-user-settings)
 	  (frame-notice-user-settings))
+      ;; Now we know the user's default font, so add it to the menu.
+      (if (fboundp 'font-menu-add-default)
+	  (font-menu-add-default))
       (and window-setup-hook
 	   (run-hooks 'window-setup-hook)))))