/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.187 by sds, Sun Nov 25 05:46:35 2001 UTC revision 1.188 by eliz, Fri Nov 30 10:22:00 2001 UTC
# Line 853  key (or menu-item)")) Line 853  key (or menu-item)"))
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"))
# Line 890  key (or menu-item)")) Line 944  key (or menu-item)"))
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
# Line 917  key (or menu-item)")) Line 971  key (or menu-item)"))
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]

Legend:
Removed from v.1.187  
changed lines
  Added in v.1.188

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26