From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Jul 1993 20:03:00 +0000 (+0000)
Subject: (normal-top-level): Call font-menu-add-default.
X-Git-Tag: emacs-19.34~11558
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efd19407f250d540d1319e89a23559a63dfa4286;p=emacs.git

(normal-top-level): Call font-menu-add-default.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index d6d984fc839..249c1d90715 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -148,8 +148,13 @@ directory name of the directory where the `.emacs' file was looked for.")
       (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)))))