From 1aab77d3fe1cb8dfac81b58e5e8ae894c3383fc9 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Thu, 23 Jul 2020 19:42:34 +0200 Subject: git: Use grep-read-regexp to read regexp --- lisp/init-git.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/init-git.el') diff --git a/lisp/init-git.el b/lisp/init-git.el index 8e7f996..d95483a 100644 --- a/lisp/init-git.el +++ b/lisp/init-git.el @@ -52,16 +52,17 @@ ;; follow symlinks to files under version control (setq vc-follow-symlinks t) -(defun vc-git-grep-all () +(defun vc-git-grep-root () (interactive) - (let ((search-regexp (read-from-minibuffer "Search for: "))) - (vc-git-grep search-regexp "" (vc-git-root default-directory)))) + (let ((search-regexp (grep-read-regexp)) + (root (vc-git-root default-directory))) + (vc-git-grep search-regexp "" root))) (use-package vc-git :ensure nil ;; package is bundled with emacs :bind (;; C-c g runs git grep in repository - "C-c g" . vc-git-grep-all)) + "C-c g" . vc-git-grep-root)) (use-package smerge-mode :ensure nil ;; package is bundled with emacs -- cgit v1.2.3