# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1217255362 0
# Node ID a84502b647f04779ec95e036f5671f353405aeef
# Parent  2104d5663cddc2e80b74939a5d9978b7a9325974
(dired-mode-map): Bind dired-do-isearch to `M-s a C-s'
and dired-do-isearch-regexp to `M-s a M-C-s'.  Add menu items.

diff -r 2104d5663cdd -r a84502b647f0 lisp/dired.el
--- a/lisp/dired.el	Mon Jul 28 14:28:59 2008 +0000
+++ b/lisp/dired.el	Mon Jul 28 14:29:22 2008 +0000
@@ -1295,6 +1295,9 @@
     ;; hiding
     (define-key map "$" 'dired-hide-subdir)
     (define-key map "\M-$" 'dired-hide-all)
+    ;; isearch
+    (define-key map (kbd "M-s a C-s")   'dired-do-isearch)
+    (define-key map (kbd "M-s a M-C-s") 'dired-do-isearch-regexp)
     ;; misc
     (define-key map "\C-x\C-q" 'dired-toggle-read-only)
     (define-key map "?" 'dired-summary)
@@ -1560,6 +1563,12 @@
     (define-key map [menu-bar operate search]
       '(menu-item "Search Files..." dired-do-search
 		  :help "Search marked files for regexp"))
+    (define-key map [menu-bar operate isearch-regexp]
+      '(menu-item "Isearch Regexp Files..." dired-do-isearch-regexp
+		  :help "Incrementally search marked files for regexp"))
+    (define-key map [menu-bar operate isearch]
+      '(menu-item "Isearch Files..." dired-do-isearch
+		  :help "Incrementally search marked files for string"))
     (define-key map [menu-bar operate chown]
       '(menu-item "Change Owner..." dired-do-chown
 		  :visible (not (memq system-type '(ms-dos windows-nt)))