(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index dba3d58d9a7d041dabbc37ebd2978aa16f7fc490..5764330bcce9164f7e4fd49e7da7bf3a00be51e1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,27 @@
+2008-02-28  Juri Linkov  <juri@jurta.org>
+
+       * cus-edit.el (custom-mode-map, custom-mode-link-map):
+       Rename `custom-mode' to `Custom-mode' in docstrings.
+       (custom-buffer-create-internal, customize-browse):
+       Rename `custom-mode' to `Custom-mode'.
+       (custom-mode-hook): Rename to `Custom-mode-hook'.
+       (Custom-mode-hook): Renamed from `custom-mode-hook'.
+       (custom-mode): Rename to `Custom-mode'.
+       (Custom-mode): Renamed from `custom-mode'.  Doc fix.
+       (custom-mode): Add backward-compatible non-interactive variant of
+       `Custom-mode' that simply calls `Custom-mode'.  Mark it obsoleted.
+       (custom-mode-hook): Mark it as obsolete alias of `Custom-mode-hook'.
+
+       * info-look.el: Rename `custom-mode' to `Custom-mode'.
+
+       * emulation/viper.el (viper-emacs-state-mode-list):
+       Rename `custom-mode' to `Custom-mode'.
+
+       * menu-bar.el (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.
+
 2008-02-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * uniquify.el (uniquify-buffer-base-name): Undo last change.  Should be

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 9d6303314cd7f5dd92bcd55d5db422514f44cdb4..2ad77ce4e46ff253352958a4777fb4f0db726c76 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -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")))
 \f
 ;;;###autoload
 ;; This comment is taken from tool-bar.el near