853 |
:help "Describe this buffer's major and minor mode")) |
:help "Describe this buffer's major and minor mode")) |
854 |
|
|
855 |
(defvar menu-bar-apropos-menu (make-sparse-keymap "Apropos")) |
(defvar menu-bar-apropos-menu (make-sparse-keymap "Apropos")) |
856 |
|
(defun menu-bar-read-lispref () |
857 |
|
"Display the Emacs Lisp Reference manual in Info mode." |
858 |
|
(interactive) |
859 |
|
(info "elisp")) |
860 |
|
|
861 |
|
(defun menu-bar-read-lispintro () |
862 |
|
"Display the Introduction to Emacs Lisp Programming in Info mode." |
863 |
|
(interactive) |
864 |
|
(info "eintr")) |
865 |
|
|
866 |
|
(defun menu-bar-read-emacs-man () |
867 |
|
"Display Emacs User Manual in Info mode." |
868 |
|
(interactive) |
869 |
|
(info "emacs")) |
870 |
|
|
871 |
|
(defun search-emacs-glossary () |
872 |
|
"Display the Glossary node of the Emacs manual in Info mode." |
873 |
|
(interactive) |
874 |
|
(info "(emacs)Glossary")) |
875 |
|
|
876 |
|
(defun emacs-index-search (topic) |
877 |
|
"Look up TOPIC in the indices of the Emacs User Manual." |
878 |
|
(interactive "sSubject to look up: ") |
879 |
|
(info "emacs") |
880 |
|
(Info-index topic)) |
881 |
|
|
882 |
|
(defun elisp-index-search (topic) |
883 |
|
"Look up TOPIC in the indices of the Emacs Lisp Reference Manual." |
884 |
|
(interactive "sSubject to look up: ") |
885 |
|
(info "elisp") |
886 |
|
(Info-index topic)) |
887 |
|
|
888 |
(define-key menu-bar-apropos-menu [apropos-documentation] |
(define-key menu-bar-apropos-menu [apropos-documentation] |
889 |
'(menu-item "Apropos Documentation..." apropos-documentation |
'(menu-item "Search Documentation Strings..." apropos-documentation |
890 |
:help "List variables whose doc strings match a regexp")) |
:help |
891 |
|
"Find functions and variables whose doc strings match a regexp")) |
892 |
(define-key menu-bar-apropos-menu [apropos] |
(define-key menu-bar-apropos-menu [apropos] |
893 |
'(menu-item "Apropos Symbol..." apropos |
'(menu-item "Find Any Object by Name..." apropos |
894 |
:help "List symbols whose names match a regexp")) |
:help "Find symbols of any kind whose names match a regexp")) |
895 |
(define-key menu-bar-apropos-menu [apropos-value] |
(define-key menu-bar-apropos-menu [apropos-value] |
896 |
'(menu-item "Apropos Value..." apropos-value |
'(menu-item "Find Options by Value..." apropos-value |
897 |
:help "List variables whose values match a regexp")) |
:help "Find variables whose values match a regexp")) |
898 |
(define-key menu-bar-apropos-menu [apropos-variables] |
(define-key menu-bar-apropos-menu [apropos-variables] |
899 |
'(menu-item "Apropos Variables..." apropos-variable |
'(menu-item "Find Options by Name..." apropos-variable |
900 |
:help "List variables whose names match a regexp")) |
:help "Find variables whose names match a regexp")) |
901 |
(define-key menu-bar-apropos-menu [apropos-commands] |
(define-key menu-bar-apropos-menu [apropos-commands] |
902 |
'(menu-item "Apropos Commands..." apropos-command |
'(menu-item "Find Commands by Name..." apropos-command |
903 |
:help "List commands whose names match a regexp")) |
:help "Find commands whose names match a regexp")) |
904 |
|
(define-key menu-bar-apropos-menu [sep1] |
905 |
|
'("--")) |
906 |
|
(define-key menu-bar-apropos-menu [elisp-index-search] |
907 |
|
'(menu-item "Look Up Subject in ELisp Manual..." elisp-index-search |
908 |
|
:help "Find description of a subject in Emacs Lisp manual")) |
909 |
|
(define-key menu-bar-apropos-menu [emacs-index-search] |
910 |
|
'(menu-item "Look Up Subject in User Manual..." emacs-index-search |
911 |
|
:help "Find description of a subject in Emacs User manual")) |
912 |
|
(define-key menu-bar-apropos-menu [emacs-glossary] |
913 |
|
'(menu-item "Emacs Terminology" search-emacs-glossary |
914 |
|
:help "Display the Glossary section of the Emacs manual")) |
915 |
|
|
916 |
(defvar menu-bar-manuals-menu (make-sparse-keymap "Manuals")) |
(defvar menu-bar-manuals-menu (make-sparse-keymap "More Manuals")) |
917 |
|
|
918 |
(define-key menu-bar-manuals-menu [man] |
(define-key menu-bar-manuals-menu [man] |
919 |
'(menu-item "Read Man Page..." manual-entry |
'(menu-item "Read Man Page..." manual-entry |
920 |
:help "Man-page docs for external commands and libraries")) |
:help "Man-page docs for external commands and libraries")) |
921 |
(define-key menu-bar-manuals-menu [sep2] |
(define-key menu-bar-manuals-menu [sep2] |
922 |
'("--")) |
'("--")) |
923 |
|
(define-key menu-bar-manuals-menu [order-emacs-manuals] |
924 |
|
'(menu-item "Ordering Manuals" view-order-manuals |
925 |
|
:help "How to order manuals from the Free Software Foundation")) |
926 |
(define-key menu-bar-manuals-menu [info] |
(define-key menu-bar-manuals-menu [info] |
927 |
'(menu-item "Browse Manuals with Info" Info-directory |
'(menu-item "All Other Manuals (Info)" Info-directory |
928 |
:help "Read any of the installed manuals")) |
:help "Read any of the installed manuals")) |
929 |
|
(define-key menu-bar-manuals-menu [info-elisp] |
930 |
|
'(menu-item "Emacs Lisp Reference" menu-bar-read-lispref |
931 |
|
:help "Read the Emacs Lisp Reference manual")) |
932 |
|
(define-key menu-bar-manuals-menu [info-elintro] |
933 |
|
'(menu-item "Introduction to Emacs Lisp" menu-bar-read-lispintro |
934 |
|
:help "Read the Introduction to Emacs Lisp Programming")) |
935 |
|
(define-key menu-bar-manuals-menu [sep3] |
936 |
|
'("--")) |
937 |
(define-key menu-bar-manuals-menu [command] |
(define-key menu-bar-manuals-menu [command] |
938 |
'(menu-item "Find Command in Manual" Info-goto-emacs-command-node |
'(menu-item "Find Command in Manual" Info-goto-emacs-command-node |
939 |
:help "Display manual section that describes a command")) |
:help "Display manual section that describes a command")) |
944 |
(define-key menu-bar-help-menu [eliza] |
(define-key menu-bar-help-menu [eliza] |
945 |
'(menu-item "Emacs Psychiatrist" doctor |
'(menu-item "Emacs Psychiatrist" doctor |
946 |
:help "Our doctor will help you feel better")) |
:help "Our doctor will help you feel better")) |
947 |
(define-key menu-bar-help-menu [sep3] |
(define-key menu-bar-help-menu [sep4] |
948 |
'("--")) |
'("--")) |
949 |
(define-key menu-bar-help-menu [describe-no-warranty] |
(define-key menu-bar-help-menu [describe-no-warranty] |
950 |
'(menu-item "(Non)Warranty" describe-no-warranty |
'(menu-item "(Non)Warranty" describe-no-warranty |
971 |
(define-key menu-bar-help-menu [finder-by-keyword] |
(define-key menu-bar-help-menu [finder-by-keyword] |
972 |
'(menu-item "Find Emacs Packages..." finder-by-keyword |
'(menu-item "Find Emacs Packages..." finder-by-keyword |
973 |
:help "Find packages and features by keyword")) |
:help "Find packages and features by keyword")) |
974 |
(define-key menu-bar-help-menu [apropos] |
(define-key menu-bar-help-menu [manuals] |
975 |
(list 'menu-item "Apropos" menu-bar-apropos-menu |
(list 'menu-item "More Manuals" menu-bar-manuals-menu |
976 |
:help "Find commands, variables, keys")) |
:help "Search and browse on-line manuals")) |
977 |
|
(define-key menu-bar-help-menu [emacs-manual] |
978 |
|
'(menu-item "Read the Emacs Manual" menu-bar-read-emacs-man |
979 |
|
:help "Full documentation of Emacs features")) |
980 |
(define-key menu-bar-help-menu [describe] |
(define-key menu-bar-help-menu [describe] |
981 |
(list 'menu-item "Describe" menu-bar-describe-menu |
(list 'menu-item "Describe" menu-bar-describe-menu |
982 |
:help "Describe commands, variables, keys")) |
:help "Describe commands, variables, keys")) |
983 |
(define-key menu-bar-help-menu [manuals] |
(define-key menu-bar-help-menu [apropos] |
984 |
(list 'menu-item "Manuals" menu-bar-manuals-menu |
(list 'menu-item "Search Documentation" menu-bar-apropos-menu |
985 |
:help "Lookup commands and keys in docs, read manuals")) |
:help "Look up terms, find commands, options, etc. (Apropos)")) |
986 |
(define-key menu-bar-help-menu [sep1] |
(define-key menu-bar-help-menu [sep1] |
987 |
'("--")) |
'("--")) |
988 |
(define-key menu-bar-help-menu [report-emacs-bug] |
(define-key menu-bar-help-menu [report-emacs-bug] |
989 |
'(menu-item "Send Bug Report..." report-emacs-bug |
'(menu-item "Send Bug Report..." report-emacs-bug |
990 |
:help "Send e-mail to Emacs maintainers")) |
:help "Send e-mail to Emacs maintainers")) |
|
(define-key menu-bar-help-menu [order-emacs-manuals] |
|
|
'(menu-item "Ordering Manuals" view-order-manuals |
|
|
:help "How to order manuals from the Free Software Foundation")) |
|
|
(define-key menu-bar-help-menu [emacs-manual] |
|
|
'(menu-item "Read the Emacs Manual" |
|
|
(lambda () (interactive) (info "emacs")))) |
|
991 |
(define-key menu-bar-help-menu [emacs-problems] |
(define-key menu-bar-help-menu [emacs-problems] |
992 |
'(menu-item "Emacs Known Problems" view-emacs-problems)) |
'(menu-item "Emacs Known Problems" view-emacs-problems)) |
993 |
(define-key menu-bar-help-menu [emacs-news] |
(define-key menu-bar-help-menu [emacs-news] |