aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2005-03-28 01:16:44 +0000
committerJuri Linkov2005-03-28 01:16:44 +0000
commitbd649ca3ce53473b21e10678f03dccad7655bb1a (patch)
tree8982fc46b582ba1e1d913068140f96da914d575c
parent11782fd64969a22bd54aa2e49932a7c98acf33ae (diff)
downloademacs-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".
-rw-r--r--lisp/menu-bar.el18
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