diff options
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 21495b32f5d..13319f41269 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -660,6 +660,8 @@ by \"Save Options\" in Custom buffers.") (custom-push-theme 'theme-face 'default 'user 'set spec) (put 'default 'face-modified nil)))) + + ;;; Assemble all the top-level items of the "Options" menu (define-key menu-bar-options-menu [customize] `(menu-item ,(purecopy "Customize Emacs") ,menu-bar-custom-menu)) @@ -713,6 +715,14 @@ by \"Save Options\" in Custom buffers.") :visible (display-multi-font-p) :help ,(purecopy "Select a default font"))) +(if (featurep 'system-font-setting) + (define-key menu-bar-options-menu [menu-system-font] + (menu-bar-make-toggle toggle-use-system-font font-use-system-font + "Use system font" + "Use system font: %s" + "Use the monospaced font defined by the system"))) + + ;; The "Show/Hide" submenu of menu "Options" (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |