diff options
| author | Juri Linkov | 2005-03-28 01:16:44 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-03-28 01:16:44 +0000 |
| commit | bd649ca3ce53473b21e10678f03dccad7655bb1a (patch) | |
| tree | 8982fc46b582ba1e1d913068140f96da914d575c /lisp | |
| parent | 11782fd64969a22bd54aa2e49932a7c98acf33ae (diff) | |
| download | emacs-bd649ca3ce53473b21e10678f03dccad7655bb1a.tar.gz emacs-bd649ca3ce53473b21e10678f03dccad7655bb1a.zip | |
(menu-bar-file-menu): Remove ellipsis from "Recover Crashed Session".
(menu-bar-search-menu): Add ellipsis to "Search tagged files".
(menu-bar-replace-menu): Add ellipsis to "Replace in tagged files".
(menu-bar-goto-menu): Add ellipsis to "Set Tags File Name".
(menu-bar-goto-menu): Add ellipsis to "Tags Apropos".
(menu-bar-options-menu): Add ellipsis to "Set Font/Fontset".
(menu-bar-manuals-menu): Add ellipsis to "Find Command in Manual".
(menu-bar-manuals-menu): Add ellipsis to "Find Key in Manual".
(menu-bar-help-menu): Remove ellipsis from "Find Emacs Packages".
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/menu-bar.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index d988cae1260..273d4739b4d 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -136,7 +136,7 @@ A large number or nil slows down menu responsiveness." | |||
| 136 | '(menu-item "--")) | 136 | '(menu-item "--")) |
| 137 | 137 | ||
| 138 | (define-key menu-bar-file-menu [recover-session] | 138 | (define-key menu-bar-file-menu [recover-session] |
| 139 | '(menu-item "Recover Crashed Session..." recover-session | 139 | '(menu-item "Recover Crashed Session" recover-session |
| 140 | :enable (and auto-save-list-file-prefix | 140 | :enable (and auto-save-list-file-prefix |
| 141 | (file-directory-p | 141 | (file-directory-p |
| 142 | (file-name-directory auto-save-list-file-prefix)) | 142 | (file-name-directory auto-save-list-file-prefix)) |
| @@ -298,7 +298,7 @@ A large number or nil slows down menu responsiveness." | |||
| 298 | '(menu-item "Continue Tags Search" tags-loop-continue | 298 | '(menu-item "Continue Tags Search" tags-loop-continue |
| 299 | :help "Continue last tags search operation")) | 299 | :help "Continue last tags search operation")) |
| 300 | (define-key menu-bar-search-menu [tags-srch] | 300 | (define-key menu-bar-search-menu [tags-srch] |
| 301 | '(menu-item "Search tagged files" tags-search | 301 | '(menu-item "Search tagged files..." tags-search |
| 302 | :help "Search for a regexp in all tagged files")) | 302 | :help "Search for a regexp in all tagged files")) |
| 303 | (define-key menu-bar-search-menu [separator-tag-search] | 303 | (define-key menu-bar-search-menu [separator-tag-search] |
| 304 | '(menu-item "--")) | 304 | '(menu-item "--")) |
| @@ -342,7 +342,7 @@ A large number or nil slows down menu responsiveness." | |||
| 342 | '(menu-item "Continue Replace" tags-loop-continue | 342 | '(menu-item "Continue Replace" tags-loop-continue |
| 343 | :help "Continue last tags replace operation")) | 343 | :help "Continue last tags replace operation")) |
| 344 | (define-key menu-bar-replace-menu [tags-repl] | 344 | (define-key menu-bar-replace-menu [tags-repl] |
| 345 | '(menu-item "Replace in tagged files" tags-query-replace | 345 | '(menu-item "Replace in tagged files..." tags-query-replace |
| 346 | :help "Interactively replace a regexp in all tagged files")) | 346 | :help "Interactively replace a regexp in all tagged files")) |
| 347 | (define-key menu-bar-replace-menu [separator-replace-tags] | 347 | (define-key menu-bar-replace-menu [separator-replace-tags] |
| 348 | '(menu-item "--")) | 348 | '(menu-item "--")) |
| @@ -377,14 +377,14 @@ A large number or nil slows down menu responsiveness." | |||
| 377 | (defvar menu-bar-goto-menu (make-sparse-keymap "Go To")) | 377 | (defvar menu-bar-goto-menu (make-sparse-keymap "Go To")) |
| 378 | 378 | ||
| 379 | (define-key menu-bar-goto-menu [set-tags-name] | 379 | (define-key menu-bar-goto-menu [set-tags-name] |
| 380 | '(menu-item "Set Tags File Name" visit-tags-table | 380 | '(menu-item "Set Tags File Name..." visit-tags-table |
| 381 | :help "Tell Tags commands which tag table file to use")) | 381 | :help "Tell Tags commands which tag table file to use")) |
| 382 | 382 | ||
| 383 | (define-key menu-bar-goto-menu [separator-tag-file] | 383 | (define-key menu-bar-goto-menu [separator-tag-file] |
| 384 | '(menu-item "--")) | 384 | '(menu-item "--")) |
| 385 | 385 | ||
| 386 | (define-key menu-bar-goto-menu [apropos-tags] | 386 | (define-key menu-bar-goto-menu [apropos-tags] |
| 387 | '(menu-item "Tags Apropos" tags-apropos | 387 | '(menu-item "Tags Apropos..." tags-apropos |
| 388 | :help "Find function/variables whose names match regexp")) | 388 | :help "Find function/variables whose names match regexp")) |
| 389 | (define-key menu-bar-goto-menu [next-tag-otherw] | 389 | (define-key menu-bar-goto-menu [next-tag-otherw] |
| 390 | '(menu-item "Next Tag in Other Window" | 390 | '(menu-item "Next Tag in Other Window" |
| @@ -673,7 +673,7 @@ by \"Save Options\" in Custom buffers.") | |||
| 673 | '("--")) | 673 | '("--")) |
| 674 | 674 | ||
| 675 | (define-key menu-bar-options-menu [mouse-set-font] | 675 | (define-key menu-bar-options-menu [mouse-set-font] |
| 676 | '(menu-item "Set Font/Fontset" mouse-set-font | 676 | '(menu-item "Set Font/Fontset..." mouse-set-font |
| 677 | :visible (display-multi-font-p) | 677 | :visible (display-multi-font-p) |
| 678 | :help "Select a font from list of known fonts/fontsets")) | 678 | :help "Select a font from list of known fonts/fontsets")) |
| 679 | 679 | ||
| @@ -1332,10 +1332,10 @@ key (or menu-item)")) | |||
| 1332 | (define-key menu-bar-manuals-menu [sep3] | 1332 | (define-key menu-bar-manuals-menu [sep3] |
| 1333 | '("--")) | 1333 | '("--")) |
| 1334 | (define-key menu-bar-manuals-menu [command] | 1334 | (define-key menu-bar-manuals-menu [command] |
| 1335 | '(menu-item "Find Command in Manual" Info-goto-emacs-command-node | 1335 | '(menu-item "Find Command in Manual..." Info-goto-emacs-command-node |
| 1336 | :help "Display manual section that describes a command")) | 1336 | :help "Display manual section that describes a command")) |
| 1337 | (define-key menu-bar-manuals-menu [key] | 1337 | (define-key menu-bar-manuals-menu [key] |
| 1338 | '(menu-item "Find Key in Manual" Info-goto-emacs-key-command-node | 1338 | '(menu-item "Find Key in Manual..." Info-goto-emacs-key-command-node |
| 1339 | :help "Display manual section that describes a key")) | 1339 | :help "Display manual section that describes a key")) |
| 1340 | 1340 | ||
| 1341 | (define-key menu-bar-help-menu [eliza] | 1341 | (define-key menu-bar-help-menu [eliza] |
| @@ -1369,7 +1369,7 @@ key (or menu-item)")) | |||
| 1369 | (define-key menu-bar-help-menu [sep2] | 1369 | (define-key menu-bar-help-menu [sep2] |
| 1370 | '("--")) | 1370 | '("--")) |
| 1371 | (define-key menu-bar-help-menu [finder-by-keyword] | 1371 | (define-key menu-bar-help-menu [finder-by-keyword] |
| 1372 | '(menu-item "Find Emacs Packages..." finder-by-keyword | 1372 | '(menu-item "Find Emacs Packages" finder-by-keyword |
| 1373 | :help "Find packages and features by keyword")) | 1373 | :help "Find packages and features by keyword")) |
| 1374 | (define-key menu-bar-help-menu [manuals] | 1374 | (define-key menu-bar-help-menu [manuals] |
| 1375 | (list 'menu-item "More Manuals" menu-bar-manuals-menu | 1375 | (list 'menu-item "More Manuals" menu-bar-manuals-menu |