diff options
| author | Richard M. Stallman | 2003-06-28 11:54:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-06-28 11:54:09 +0000 |
| commit | 3f9f1c1fba5a86d29330d2128e8d41b25be9541a (patch) | |
| tree | 63239945ca11ceb734c7ab7cb726a15b361fd65e | |
| parent | 349bd9eda28e50b2645cb0d589ccf30e93e69e71 (diff) | |
| download | emacs-3f9f1c1fba5a86d29330d2128e8d41b25be9541a.tar.gz emacs-3f9f1c1fba5a86d29330d2128e8d41b25be9541a.zip | |
(menu-bar-options-menu): Move mouse-set-fonts item here.
| -rw-r--r-- | lisp/menu-bar.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 469d0b09a42..783dbb9ec87 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -654,6 +654,11 @@ PROPS are additional properties." | |||
| 654 | (define-key menu-bar-options-menu [custom-separator] | 654 | (define-key menu-bar-options-menu [custom-separator] |
| 655 | '("--")) | 655 | '("--")) |
| 656 | 656 | ||
| 657 | (define-key menu-bar-options-menu [mouse-set-font] | ||
| 658 | '(menu-item "Set Font/Fontset" mouse-set-font | ||
| 659 | :visible (display-multi-font-p) | ||
| 660 | :help "Select a font from list of known fonts/fontsets")) | ||
| 661 | |||
| 657 | ;; The "Show/Hide" submenu of menu "Options" | 662 | ;; The "Show/Hide" submenu of menu "Options" |
| 658 | 663 | ||
| 659 | (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) | 664 | (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |