From bc9ad5e2bd9f71e90346cae63992665ed38d853b Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Wed, 29 Aug 2018 14:41:12 +0900
Subject: [PATCH] Fix rgrep definitions

---
 emacs.el | 91 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 46 insertions(+), 45 deletions(-)

diff --git a/emacs.el b/emacs.el
index 3c8f14f..089b7b2 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1387,53 +1387,54 @@ ARG is num to show, or defaults to 7."
                                                "")
                                              "memo.txt"))))
 
-(defvar my-rgrep-alist
-  `(
-    ;; git grep
-    ("gitgrep"
-     (eq 0
-         (shell-command "git rev-parse --git-dir"))
-     "git --no-pager -c color.grep=false grep -nH -e ")
-
-    ;; ripgrep
-    ("rg"
-     (executable-find "rg")
-     "rg --no-heading --color=never --smart-case ")
-
-    ;; sift
-    ("sift"
-     (executable-find "sift")
-     ("sift --no-color --binary-skip --filename --line-number --git --smart-case "))
-
-    ;; the silver searcher
-    ("ag"
-     (executable-find "ag")
-     "ag --nocolor --nogroup --nopager --filename ")
-
-    ;; ack
-    ("ack"
-     (executable-find "ack")
-     "ack --nocolor --nogroup --nopager --with-filename ")
-
-    ;; gnu global
-    ("global"
-     (and (require 'gtags nil t)
-          (executable-find "global")
-          (gtags-get-rootpath))
-     "global --result grep ")
-
-    ;; grep
-    ("grep"
-     t
-     ,(concat "find . "
-              "-path '*/.git' -prune -o "
-              "-path '*/.svn' -prune -o "
-              "-type f -print0 | "
-              "xargs -0 grep -nH -e "))
-    )
-  "Alist of rgrep command.
+(set (defvar my-rgrep-alist nil
+       "Alist of rgrep command.
 Each element is in the form like (NAME SEXP COMMAND), where SEXP returns the
 condition to choose COMMAND when evaluated.")
+     `(
+       ;; git grep
+       ("gitgrep"
+        (eq 0
+            (shell-command "git rev-parse --git-dir"))
+        "git --no-pager -c color.grep=false grep -nH -e ")
+
+       ;; ripgrep
+       ("rg"
+        (executable-find "rg")
+        "rg --no-heading --color=never --smart-case ")
+
+       ;; sift
+       ("sift"
+        (executable-find "sift")
+        ("sift --no-color --binary-skip --filename --line-number --git --smart-case "))
+
+       ;; the silver searcher
+       ("ag"
+        (executable-find "ag")
+        "ag --nocolor --nogroup --nopager --filename ")
+
+       ;; ack
+       ("ack"
+        (executable-find "ack")
+        "ack --nocolor --nogroup --nopager --with-filename ")
+
+       ;; gnu global
+       ("global"
+        (and (require 'gtags nil t)
+             (executable-find "global")
+             (gtags-get-rootpath))
+        "global --result grep ")
+
+       ;; grep
+       ("grep"
+        t
+        ,(concat "find . "
+                 "-path '*/.git' -prune -o "
+                 "-path '*/.svn' -prune -o "
+                 "-type f -print0 | "
+                 "xargs -0 grep -nH -e "))
+       )
+     )
 
 (defvar my-rgrep-default nil
   "Default command name for my-rgrep.")