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

efd19407 · Richard M. Stallman · 5a41ab94 · efd19407
Commit efd19407 authored Jul 26, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

lisp/startup.el lisp/startup.el +5 -0

No files found.
--- 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)))))