From 860f18a06d51d3a184e8d2901afa8749f3b9d6ab Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Fri, 5 Oct 2018 11:45:19 +0900
Subject: [PATCH] Add recently-excludes

---
 emacs.el | 46 +++++++++++++++++++++++++++++-----------------
 1 file changed, 29 insertions(+), 17 deletions(-)

diff --git a/emacs.el b/emacs.el
index c37362b..58e651d 100644
--- a/emacs.el
+++ b/emacs.el
@@ -1639,9 +1639,10 @@ and search from projectile root (if projectile is available)."
                           (error "No symbol at point")))
             (error "My-Rgrep: Command for rgrep not found"))))
     (if (safe-require-or-eval 'projectile)
-        (projectile-with-default-dir (projectile-project-root)
-                                     (compilation-start command-args
-                                                        'grep-mode))
+        (projectile-with-default-dir (or (projectile-project-root)
+                                         default-directory)
+          (compilation-start command-args
+                             'grep-mode))
       (compilation-start command-args
                          'grep-mode))))
 
@@ -1970,6 +1971,14 @@ Return that buffer."
   :type 'int
   :group 'recently)
 
+(defcustom recently-excludes
+  '()
+  "List of regexps for filenames excluded from the recent list."
+  :type '(repeat string)
+  :group 'recently)
+(add-to-list 'recently-excludes
+             (eval-when-compile (rx "/COMMIT_EDITMSG" eot)))
+
 (defvar recently-list
   '()
   "Recently list.")
@@ -2014,20 +2023,23 @@ Return that buffer."
   "Add PATH to list."
   (cl-assert (string= path
                       (expand-file-name path)))
-  (recently-reload)
-  (let* ((l (copy-list recently-list))
-         (l (delete path
-                    l))
-         (l (cl-loop for e in l
-                     unless (file-in-directory-p path e)
-                     collect e))
-         (l (recently-truncate (cons path
-                                     l)
-                               recently-max)))
-    (unless (equal recently-list
-                   l)
-      (setq recently-list l)
-      (recently-write))))
+  (when (cl-loop for re in recently-excludes
+                 if (string-match re path) return t
+                 finally return nil)
+    (recently-reload)
+    (let* ((l (copy-list recently-list))
+           (l (delete path
+                      l))
+           (l (cl-loop for e in l
+                       unless (file-in-directory-p path e)
+                       collect e))
+           (l (recently-truncate (cons path
+                                       l)
+                                 recently-max)))
+      (unless (equal recently-list
+                     l)
+        (setq recently-list l)
+        (recently-write)))))
 
 (defun recently-truncate (list len)
   "Truncate LIST to LEN."