From: Juri Linkov <juri@jurta.org>
Date: Mon, 28 Jul 2008 14:28:59 +0000 (+0000)
Subject: (dired-do-isearch, dired-do-isearch-regexp): New functions.
X-Git-Tag: emacs-pretest-23.0.90~3842
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=160c8be62334146f475096cdae003da6597675f1;p=emacs.git

(dired-do-isearch, dired-do-isearch-regexp): New functions.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 3950b783bd3..523f29e1b63 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2281,6 +2281,20 @@ Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
 
 ;; Functions for searching in tags style among marked files.
 
+;;;###autoload
+(defun dired-do-isearch ()
+  "Search for a string through all marked files using Isearch."
+  (interactive)
+  (multi-isearch-files
+   (dired-get-marked-files nil nil 'dired-nondirectory-p)))
+
+;;;###autoload
+(defun dired-do-isearch-regexp ()
+  "Search for a regexp through all marked files using Isearch."
+  (interactive)
+  (multi-isearch-files-regexp
+   (dired-get-marked-files nil nil 'dired-nondirectory-p)))
+
 ;;;###autoload
 (defun dired-do-search (regexp)
   "Search through all marked files for a match for REGEXP.