Mercurial > emacs
comparison lisp/menu-bar.el @ 51687:64b052fa52ff
(menu-bar-options-menu): Move mouse-set-fonts item here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 Jun 2003 11:54:09 +0000 |
| parents | f13922c0480e |
| children | 1b765542e16e |
comparison
equal
deleted
inserted
replaced
| 51686:17c015f1f795 | 51687:64b052fa52ff |
|---|---|
| 652 :help "Save options set from the menu above")) | 652 :help "Save options set from the menu above")) |
| 653 | 653 |
| 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")) |
| 660 | 665 |
| 661 (define-key menu-bar-showhide-menu [column-number-mode] | 666 (define-key menu-bar-showhide-menu [column-number-mode] |