show result buffer continually, completion message

diff --git a/egrep.el b/egrep.el
index 0b943a0..c8b84ab 100644 (file)
--- a/egrep.el
+++ b/egrep.el
@@ -24,11 +24,11 @@
       (let ((inhibit-read-only t))
         (grep-mode)
         (erase-buffer)
-        (insert (format "; Searching for '%s' ...\n" regexp))))
+        (insert (format "; Searching for '%s' ...\n" regexp))
+        (pop-to-buffer result-buffer)))
     result-buffer))
 
 (defun egrep-finalize-result-buffer (result-buffer)
-  (pop-to-buffer result-buffer)
   (goto-char (point-min)))
 
 (defun egrep-regexps (regexp &optional predicate &rest args)
@@ -57,7 +57,8 @@
                  (sit-for .1)
                  (if prepare (funcall prepare))
                  (egrep-regexps-1 result-buffer regexp predicate args))))
-    (egrep-finalize-result-buffer result-buffer)))
+    (egrep-finalize-result-buffer result-buffer)
+    (message "Search complete.")))
 
 (defun egrep-string-startswith (string start)
   (and (> (length string) (length start))