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)) |
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 "--")) |
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 "--")) |
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" |
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 |
|
|
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] |
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 |