From: Stefan Bund <stefan@j32.de>
Date: Tue, 13 Sep 2011 10:39:50 +0000 (+0200)
Subject: show result buffer continually, completion message
X-Git-Url: http://g0dil.de/git?a=commitdiff_plain;h=e25887cb80c23df454cba5a2fa1a19aed423fdac;p=emacs-egrep.git

show result buffer continually, completion message
---

diff --git a/egrep.el b/egrep.el
index 0b943a0..c8b84ab 100644
--- 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))