From 4f0490a3e47e3df2848d552022e0db1601e227aa Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Tue, 12 Nov 2013 21:55:31 +0900
Subject: [PATCH] add my-grep-* funcs

---
 emacs.el | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/emacs.el b/emacs.el
index 4b3c8f6..d5c6103 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1963,12 +1963,33 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
 
 (defun my-rgrep (command-args)
   "My recursive grep."
-  (interactive (list (read-shell-command "sgrep command: "
+  (interactive (list (read-shell-command "grep command: "
                                          (my-rgrep-grep-command)
                                          'grep-find-history)))
   (compilation-start command-args
                      'grep-mode))
 
+(defun my-rgrep-ack (command-args)
+  "My recursive grep."
+  (interactive (list (read-shell-command "grep command: "
+                                         my-rgrep-ack
+                                         'grep-find-history)))
+  (my-rgrep command-args))
+
+(defun my-rgrep-ag (command-args)
+  "My recursive grep."
+  (interactive (list (read-shell-command "grep command: "
+                                         my-rgrep-ag
+                                         'grep-find-history)))
+  (my-rgrep command-args))
+
+(defun my-rgrep-grep (command-args)
+  "My recursive grep."
+  (interactive (list (read-shell-command "grep command: "
+                                         my-rgrep-grep
+                                         'grep-find-history)))
+  (my-rgrep command-args))
+
 (define-key ctl-x-map "s" 'my-rgrep)
 
 ;; (defun make ()