809 |
'(menu-item "Show All of Mule Status" mule-diag |
'(menu-item "Show All of Mule Status" mule-diag |
810 |
:visible default-enable-multibyte-characters |
:visible default-enable-multibyte-characters |
811 |
:help "Display multilingual environment settings")) |
:help "Display multilingual environment settings")) |
812 |
|
(define-key menu-bar-describe-menu [describe-coding-system-briefly] |
813 |
|
'(menu-item "Describe Coding System (Briefly)..." |
814 |
|
describe-current-coding-system-briefly |
815 |
|
:visible default-enable-multibyte-characters)) |
816 |
(define-key menu-bar-describe-menu [describe-coding-system] |
(define-key menu-bar-describe-menu [describe-coding-system] |
817 |
'(menu-item "Describe Coding System..." describe-coding-system |
'(menu-item "Describe Coding System..." describe-coding-system |
818 |
:visible default-enable-multibyte-characters)) |
:visible default-enable-multibyte-characters)) |
831 |
(define-key menu-bar-describe-menu [list-keybindings] |
(define-key menu-bar-describe-menu [list-keybindings] |
832 |
'(menu-item "List Key Bindings" describe-bindings |
'(menu-item "List Key Bindings" describe-bindings |
833 |
:help "Display a list of all current keybindings")) |
:help "Display a list of all current keybindings")) |
834 |
(define-key menu-bar-describe-menu [list-keybindings] |
(define-key menu-bar-describe-menu [describe-current-display-table] |
835 |
'(menu-item "List Key Bindings" describe-bindings |
'(menu-item "Describe Display Table" describe-current-display-table |
836 |
:help "Display a list of all current keybindings")) |
:help "Describe the current display table")) |
837 |
|
(define-key menu-bar-describe-menu [describe-face] |
838 |
|
'(menu-item "Describe Face..." describe-face |
839 |
|
:help "Display the properties of a face")) |
840 |
(define-key menu-bar-describe-menu [describe-variable] |
(define-key menu-bar-describe-menu [describe-variable] |
841 |
'(menu-item "Describe Variable..." describe-variable |
'(menu-item "Describe Variable..." describe-variable |
842 |
:help "Display documentation of variable/option")) |
:help "Display documentation of variable/option")) |
848 |
;; Users typically don't identify keys and menu items... |
;; Users typically don't identify keys and menu items... |
849 |
:help "Display documentation of command bound to a \ |
:help "Display documentation of command bound to a \ |
850 |
key (or menu-item)")) |
key (or menu-item)")) |
851 |
(define-key menu-bar-describe-menu [apropos-variables] |
(define-key menu-bar-describe-menu [describe-mode] |
852 |
|
'(menu-item "Describe Buffer Modes" describe-mode |
853 |
|
:help "Describe this buffer's major and minor mode")) |
854 |
|
|
855 |
|
(defvar menu-bar-apropos-menu (make-sparse-keymap "Apropos")) |
856 |
|
|
857 |
|
(define-key menu-bar-apropos-menu [apropos-documentation] |
858 |
|
'(menu-item "Apropos Documentation..." apropos-documentation |
859 |
|
:help "List variables whose doc strings match a regexp")) |
860 |
|
(define-key menu-bar-apropos-menu [apropos] |
861 |
|
'(menu-item "Apropos Symbol..." apropos |
862 |
|
:help "List symbols whose names match a regexp")) |
863 |
|
(define-key menu-bar-apropos-menu [apropos-value] |
864 |
|
'(menu-item "Apropos Value..." apropos-value |
865 |
|
:help "List variables whose values match a regexp")) |
866 |
|
(define-key menu-bar-apropos-menu [apropos-variables] |
867 |
'(menu-item "Apropos Variables..." apropos-variable |
'(menu-item "Apropos Variables..." apropos-variable |
868 |
:help "List variables whose names match a regexp")) |
:help "List variables whose names match a regexp")) |
869 |
(define-key menu-bar-describe-menu [apropos-commands] |
(define-key menu-bar-apropos-menu [apropos-commands] |
870 |
'(menu-item "Apropos Commands..." apropos-command |
'(menu-item "Apropos Commands..." apropos-command |
871 |
:help "List commands whose names match a regexp")) |
:help "List commands whose names match a regexp")) |
|
(define-key menu-bar-describe-menu [describe-mode] |
|
|
'(menu-item "Describe Buffer Modes" describe-mode |
|
|
:help "Describe this buffer's major and minor mode")) |
|
872 |
|
|
873 |
(defvar menu-bar-manuals-menu (make-sparse-keymap "Manuals")) |
(defvar menu-bar-manuals-menu (make-sparse-keymap "Manuals")) |
874 |
|
|
917 |
(define-key menu-bar-help-menu [finder-by-keyword] |
(define-key menu-bar-help-menu [finder-by-keyword] |
918 |
'(menu-item "Find Emacs Packages..." finder-by-keyword |
'(menu-item "Find Emacs Packages..." finder-by-keyword |
919 |
:help "Find packages and features by keyword")) |
:help "Find packages and features by keyword")) |
920 |
|
(define-key menu-bar-help-menu [apropos] |
921 |
|
(list 'menu-item "Apropos" menu-bar-apropos-menu |
922 |
|
:help "Find commands, variables, keys")) |
923 |
(define-key menu-bar-help-menu [describe] |
(define-key menu-bar-help-menu [describe] |
924 |
(list 'menu-item "Describe" menu-bar-describe-menu |
(list 'menu-item "Describe" menu-bar-describe-menu |
925 |
:help "Describe commands, variables, keys")) |
:help "Describe commands, variables, keys")) |