mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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)
This commit is contained in:
Robert Pluim 2017-11-28 19:46:38 +02:00 • committed by Eli Zaretskii
parent 0540df10e6
commit 6067f0c702
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/vc-git.el
View file

@ -1430,7 +1430,9 @@ This command shares argument histories with \\[rgrep] and \\[grep]."
nil nil 'grep-history) nil nil 'grep-history)
nil)) nil))
(t (let* ((regexp (grep-read-regexp)) (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: " (dir (read-directory-name "In directory: "
nil default-directory t))) nil default-directory t)))
(list regexp files dir)))))) (list regexp files dir))))))