From: Juri Linkov <juri@jurta.org>
Date: Wed, 23 Jul 2008 23:53:03 +0000 (+0000)
Subject: (ibuffer-do-isearch, ibuffer-do-isearch-regexp): New functions.
X-Git-Tag: emacs-pretest-23.0.90~3940
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4962c603d05896204013bcc117fd301fb3675bda;p=emacs.git

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

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index f23a14adc35..2046c9a2b75 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -408,6 +408,24 @@ To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
    :modifier-p :maybe)
   (revert-buffer t t))
 
+;;;###autoload (autoload 'ibuffer-do-isearch "ibuf-ext")
+(define-ibuffer-op ibuffer-do-isearch ()
+  "Perform a `isearch-forward' in marked buffers."
+  (:interactive ()
+   :opstring "searched in"
+   :complex t
+   :modifier-p :maybe)
+  (multi-isearch-buffers (ibuffer-get-marked-buffers)))
+
+;;;###autoload (autoload 'ibuffer-do-isearch-regexp "ibuf-ext")
+(define-ibuffer-op ibuffer-do-isearch-regexp ()
+  "Perform a `isearch-forward-regexp' in marked buffers."
+  (:interactive ()
+   :opstring "searched regexp in"
+   :complex t
+   :modifier-p :maybe)
+  (multi-isearch-buffers-regexp (ibuffer-get-marked-buffers)))
+
 ;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext")
 (define-ibuffer-op replace-regexp (from-str to-str)
   "Perform a `replace-regexp' in marked buffers."