/[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.186 by rms, Sat Nov 17 22:30:16 2001 UTC revision 1.187 by sds, Sun Nov 25 05:46:35 2001 UTC
# Line 809  Do the same for the keys of the same nam Line 809  Do the same for the keys of the same nam
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))
# Line 827  Do the same for the keys of the same nam Line 831  Do the same for the keys of the same nam
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"))
# Line 841  Do the same for the keys of the same nam Line 848  Do the same for the keys of the same nam
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    
# Line 898  key (or menu-item)")) Line 917  key (or menu-item)"))
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"))

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

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