From 675de1606e400406ed90da297d8b2f9c79320b99 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sat, 25 Jul 2020 13:05:19 +0200 Subject: project: Add custom grep command --- lisp/init-git.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/init-git.el') diff --git a/lisp/init-git.el b/lisp/init-git.el index 3dcfc34..68eb2b4 100644 --- a/lisp/init-git.el +++ b/lisp/init-git.el @@ -55,11 +55,11 @@ ;; follow symlinks to files under version control (setq vc-follow-symlinks t) -(defun vc-git-grep-root () +(defun vc-git-grep-root (&optional dir) (interactive) (let ((search-regexp (grep-read-regexp)) - (root (vc-git-root default-directory))) - (vc-git-grep search-regexp "" root))) + (dir (or dir (vc-git-root default-directory)))) + (vc-git-grep search-regexp "" dir))) (use-package vc-git :after grep -- cgit v1.2.3