diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-26 20:03:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-26 20:03:00 +0000 |
| commit | efd19407f250d540d1319e89a23559a63dfa4286 (patch) | |
| tree | 2bda9dc3c0ba9d1a9239ed45481eb1144f24bb91 /lisp/startup.el | |
| parent | 5a41ab94d9b500763b8571973375c2b2202a93cc (diff) | |
| download | emacs-efd19407f250d540d1319e89a23559a63dfa4286.tar.gz emacs-efd19407f250d540d1319e89a23559a63dfa4286.tar.bz2 emacs-efd19407f250d540d1319e89a23559a63dfa4286.zip | |
(normal-top-level): Call font-menu-add-default.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 5 insertions, 0 deletions
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))))) |