add progress indicator, requires

[emacs-egrep.git] / egrep.el

diff --git a/egrep.el b/egrep.el
index ddeaf06..dda5644 100644 (file)
--- 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)))