emacs.el: use macro to define my-rgrep-* functions

emacs.el

@@ -2265,46 +2265,24 @@ Commands are searched from ALIST."
 ;;   (compilation-start command-args
 ;;                      'grep-mode))
 
-(defun my-rgrep-ack ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "ack"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-ag ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "ag"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-gitgrep ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "gitgrep"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-grep ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "grep"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
-
-(defun my-rgrep-global ()
-  "My recursive grep by ack."
-  (interactive)
-  (let ((my-rgrep-default "global"))
-    (if (called-interactively-p 'any)
-        (call-interactively 'my-rgrep)
-      (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
+(defmacro define-my-rgrep (name)
+  "Define rgrep for NAME."
+  `(defun ,(intern (concat "my-rgrep-"
+                           name)) ()
+     ,(format "My recursive grep by %s."
+              name)
+     (interactive)
+     (let ((my-rgrep-default ,name))
+       (if (called-interactively-p 'any)
+           (call-interactively 'my-rgrep)
+         (error "Not intended to be called noninteractively. Use `my-rgrep'"))))
+  )
 
+(define-my-rgrep "ack")
+(define-my-rgrep "ag")
+(define-my-rgrep "gitgrep")
+(define-my-rgrep "grep")
+(define-my-rgrep "global")
 
 (define-key ctl-x-map "s" 'my-rgrep)