/[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.255 by monnier, Tue Mar 22 19:44:30 2005 UTC revision 1.256 by jurta, Mon Mar 28 01:16:44 2005 UTC
# Line 136  A large number or nil slows down menu re Line 136  A large number or nil slows down menu re
136    '(menu-item "--"))    '(menu-item "--"))
137    
138  (define-key menu-bar-file-menu [recover-session]  (define-key menu-bar-file-menu [recover-session]
139    '(menu-item "Recover Crashed Session..." recover-session    '(menu-item "Recover Crashed Session" recover-session
140                :enable (and auto-save-list-file-prefix                :enable (and auto-save-list-file-prefix
141                             (file-directory-p                             (file-directory-p
142                              (file-name-directory auto-save-list-file-prefix))                              (file-name-directory auto-save-list-file-prefix))
# Line 298  A large number or nil slows down menu re Line 298  A large number or nil slows down menu re
298    '(menu-item "Continue Tags Search" tags-loop-continue    '(menu-item "Continue Tags Search" tags-loop-continue
299                :help "Continue last tags search operation"))                :help "Continue last tags search operation"))
300  (define-key menu-bar-search-menu [tags-srch]  (define-key menu-bar-search-menu [tags-srch]
301    '(menu-item "Search tagged files" tags-search    '(menu-item "Search tagged files..." tags-search
302                :help "Search for a regexp in all tagged files"))                :help "Search for a regexp in all tagged files"))
303  (define-key menu-bar-search-menu [separator-tag-search]  (define-key menu-bar-search-menu [separator-tag-search]
304    '(menu-item "--"))    '(menu-item "--"))
# Line 342  A large number or nil slows down menu re Line 342  A large number or nil slows down menu re
342    '(menu-item "Continue Replace" tags-loop-continue    '(menu-item "Continue Replace" tags-loop-continue
343                :help "Continue last tags replace operation"))                :help "Continue last tags replace operation"))
344  (define-key menu-bar-replace-menu [tags-repl]  (define-key menu-bar-replace-menu [tags-repl]
345    '(menu-item "Replace in tagged files" tags-query-replace    '(menu-item "Replace in tagged files..." tags-query-replace
346                :help "Interactively replace a regexp in all tagged files"))                :help "Interactively replace a regexp in all tagged files"))
347  (define-key menu-bar-replace-menu [separator-replace-tags]  (define-key menu-bar-replace-menu [separator-replace-tags]
348    '(menu-item "--"))    '(menu-item "--"))
# Line 377  A large number or nil slows down menu re Line 377  A large number or nil slows down menu re
377  (defvar menu-bar-goto-menu (make-sparse-keymap "Go To"))  (defvar menu-bar-goto-menu (make-sparse-keymap "Go To"))
378    
379  (define-key menu-bar-goto-menu [set-tags-name]  (define-key menu-bar-goto-menu [set-tags-name]
380    '(menu-item "Set Tags File Name" visit-tags-table    '(menu-item "Set Tags File Name..." visit-tags-table
381                :help "Tell Tags commands which tag table file to use"))                :help "Tell Tags commands which tag table file to use"))
382    
383  (define-key menu-bar-goto-menu [separator-tag-file]  (define-key menu-bar-goto-menu [separator-tag-file]
384    '(menu-item "--"))    '(menu-item "--"))
385    
386  (define-key menu-bar-goto-menu [apropos-tags]  (define-key menu-bar-goto-menu [apropos-tags]
387    '(menu-item "Tags Apropos" tags-apropos    '(menu-item "Tags Apropos..." tags-apropos
388                :help "Find function/variables whose names match regexp"))                :help "Find function/variables whose names match regexp"))
389  (define-key menu-bar-goto-menu [next-tag-otherw]  (define-key menu-bar-goto-menu [next-tag-otherw]
390    '(menu-item "Next Tag in Other Window"    '(menu-item "Next Tag in Other Window"
# Line 673  by \"Save Options\" in Custom buffers.") Line 673  by \"Save Options\" in Custom buffers.")
673    '("--"))    '("--"))
674    
675  (define-key menu-bar-options-menu [mouse-set-font]  (define-key menu-bar-options-menu [mouse-set-font]
676    '(menu-item "Set Font/Fontset" mouse-set-font    '(menu-item "Set Font/Fontset..." mouse-set-font
677                 :visible (display-multi-font-p)                 :visible (display-multi-font-p)
678                 :help "Select a font from list of known fonts/fontsets"))                 :help "Select a font from list of known fonts/fontsets"))
679    
# Line 1332  key (or menu-item)")) Line 1332  key (or menu-item)"))
1332  (define-key menu-bar-manuals-menu [sep3]  (define-key menu-bar-manuals-menu [sep3]
1333    '("--"))    '("--"))
1334  (define-key menu-bar-manuals-menu [command]  (define-key menu-bar-manuals-menu [command]
1335    '(menu-item "Find Command in Manual" Info-goto-emacs-command-node    '(menu-item "Find Command in Manual..." Info-goto-emacs-command-node
1336                :help "Display manual section that describes a command"))                :help "Display manual section that describes a command"))
1337  (define-key menu-bar-manuals-menu [key]  (define-key menu-bar-manuals-menu [key]
1338    '(menu-item "Find Key in Manual" Info-goto-emacs-key-command-node    '(menu-item "Find Key in Manual..." Info-goto-emacs-key-command-node
1339                :help "Display manual section that describes a key"))                :help "Display manual section that describes a key"))
1340    
1341  (define-key menu-bar-help-menu [eliza]  (define-key menu-bar-help-menu [eliza]
# Line 1369  key (or menu-item)")) Line 1369  key (or menu-item)"))
1369  (define-key menu-bar-help-menu [sep2]  (define-key menu-bar-help-menu [sep2]
1370    '("--"))    '("--"))
1371  (define-key menu-bar-help-menu [finder-by-keyword]  (define-key menu-bar-help-menu [finder-by-keyword]
1372    '(menu-item "Find Emacs Packages..." finder-by-keyword    '(menu-item "Find Emacs Packages" finder-by-keyword
1373                :help "Find packages and features by keyword"))                :help "Find packages and features by keyword"))
1374  (define-key menu-bar-help-menu [manuals]  (define-key menu-bar-help-menu [manuals]
1375    (list 'menu-item "More Manuals" menu-bar-manuals-menu    (list 'menu-item "More Manuals" menu-bar-manuals-menu

Legend:
Removed from v.1.255  
changed lines
  Added in v.1.256

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