diff options
| author | Robert Pluim <rpluim@gmail.com> | 2017-11-28 19:46:38 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-11-28 19:46:38 +0200 |
| commit | 6067f0c702e3652a9d489852752f038320cb91ae (patch) | |
| tree | 4cddbbdd75acd11cc04062e027f523a1ebf79ef1 | |
| parent | 0540df10e63ba624a775cfe1bba4124456591cf5 (diff) | |
| download | emacs-6067f0c702e3652a9d489852752f038320cb91ae.tar.gz | |
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)
| -rw-r--r-- | lisp/vc/vc-git.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)))))) |