# HG changeset patch # User Juri Linkov # Date 1204231572 0 # Node ID 0801285155e7bdd6c6a4185322960769eedf3cc6 # Parent 2072b3089074332c360471d1b9d43b6a6adc1b64 (menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files". (minibuffer-local-map): Add menu items for next/previous history elements and isearch history forward/backward. diff -r 2072b3089074 -r 0801285155e7 lisp/menu-bar.el --- a/lisp/menu-bar.el Thu Feb 28 20:46:02 2008 +0000 +++ b/lisp/menu-bar.el Thu Feb 28 20:46:12 2008 +0000 @@ -309,7 +309,7 @@ '(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 @@ '(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 @@ :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