Mercurial > emacs

changeset 92310:0801285155e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Juri Linkov <juri@jurta.org>
date Thu, 28 Feb 2008 20:46:12 +0000
parents 2072b3089074
children 0b6dc19a2e70
files lisp/menu-bar.el
diffstat 1 files changed, 15 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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