From: Robert Pluim <rpluim@gmail.com>
Date: Tue, 28 Nov 2017 17:46:38 +0000 (+0200)
Subject: Shell-quote wildcards when invoking 'vc-git-grep'
X-Git-Tag: emacs-26.0.91~227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6067f0c702;p=emacs.git

Shell-quote wildcards when invoking 'vc-git-grep'

* lisp/vc/vc-git.el (vc-git-grep): Apply shell quoting to
filename wildcards to ensure globbing is done by git rather
than the shell.  (Bug#29303)
---

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 6b6f0f8d12c..8b18c0add08 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -1430,7 +1430,9 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
 				   nil nil 'grep-history)
 	     nil))
       (t (let* ((regexp (grep-read-regexp))
-		(files (grep-read-files regexp))
+		(files
+                 (mapconcat #'shell-quote-argument
+                            (split-string (grep-read-files regexp)) " "))
 		(dir (read-directory-name "In directory: "
 					  nil default-directory t)))
 	   (list regexp files dir))))))