mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files".

Browse source 
(minibuffer-local-map): Add menu items for next/previous
history elements and isearch history forward/backward.
This commit is contained in:
Juri Linkov 2008-02-28 20:46:30 +00:00
parent 27eb24a355
commit 56a8f9c532
2 changed files with 39 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/menu-bar.el
View file

@ -309,7 +309,7 @@ A large number or nil slows down menu responsiveness."
'(menu-item "Continue Tags Search" tags-loop-continue
:help "Continue last tags search operation"))
(define-key menu-bar-search-menu [tags-srch]
'(menu-item "Search tagged files..." tags-search
'(menu-item "Search Tagged Files..." tags-search
:help "Search for a regexp in all tagged files"))
(define-key menu-bar-search-menu [separator-tag-search]
'(menu-item "--"))
@ -353,7 +353,7 @@ A large number or nil slows down menu responsiveness."
'(menu-item "Continue Replace" tags-loop-continue
:help "Continue last tags replace operation"))
(define-key menu-bar-replace-menu [tags-repl]
'(menu-item "Replace in tagged files..." tags-query-replace
'(menu-item "Replace in Tagged Files..." tags-query-replace
:help "Interactively replace a regexp in all tagged files"))
(define-key menu-bar-replace-menu [separator-replace-tags]
'(menu-item "--"))
@ -1741,7 +1741,19 @@ Buffers menu is regenerated."
:help "Abort input and exit minibuffer"))
(define-key map [menu-bar minibuf return]
(list 'menu-item "Enter" 'exit-minibuffer
:help "Terminate input and exit minibuffer")))
:help "Terminate input and exit minibuffer"))
(define-key map [menu-bar minibuf isearch-forward]
(list 'menu-item "Isearch History Forward" 'isearch-forward
:help "Incrementally search minibuffer history forward"))
(define-key map [menu-bar minibuf isearch-backward]
(list 'menu-item "Isearch History Backward" 'isearch-backward
:help "Incrementally search minibuffer history backward"))
(define-key map [menu-bar minibuf next]
(list 'menu-item "Next History Item" 'next-history-element
:help "Put next minibuffer history element in the minibuffer"))
(define-key map [menu-bar minibuf previous]
(list 'menu-item "Previous History Item" 'previous-history-element
:help "Put previous minibuffer history element in the minibuffer")))
;;;###autoload
;; This comment is taken from tool-bar.el near