From: Stefan Bund <stefan@j32.de>
Date: Tue, 13 Sep 2011 08:00:39 +0000 (+0200)
Subject: add progress indicator, requires
X-Git-Url: http://g0dil.de/git?a=commitdiff_plain;h=907cab62418defd59631316b84a2431d50a29053;p=emacs-egrep.git

add progress indicator, requires
---

diff --git a/egrep.el b/egrep.el
index ddeaf06..dda5644 100644
--- a/egrep.el
+++ b/egrep.el
@@ -1,3 +1,6 @@
+(require 'cl)
+(require 'htmlize)
+
 (defun egrep-regexps-1 (result-buffer regexp predicate args)
   (let ((file-name (buffer-file-name)))
     (save-excursion
@@ -49,6 +52,8 @@
     (loop for file-name in (dired-get-marked-files nil current-prefix-arg)
           do (let ((buffer (find-file-noselect file-name)))
                (with-current-buffer buffer
+                 (message (format "Search '%s'" file-name))
+                 (sit-for .1)
                  (if prepare (funcall prepare))
                  (egrep-regexps-1 result-buffer regexp predicate args))))
     (egrep-finalize-result-buffer result-buffer)))