diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2016-01-02 17:24:48 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2016-01-02 17:24:48 +0200 |
| commit | fe903ef7cf1b1efdeede7128fb75f464eb72bdda (patch) | |
| tree | d9f12ec3ba363cb0d73b81c0c1473c18650fd84a /lisp | |
| parent | 55a28d8a1b1981d8469b39c68488f1848e8601b2 (diff) | |
| download | emacs-fe903ef7cf1b1efdeede7128fb75f464eb72bdda.tar.gz | |
Fix xref-find-references on MS-Windows
* lisp/cedet/semantic/symref/grep.el
(semantic-symref-derive-find-filepatterns): Use
'shell-quote-argument' instead of manually quoting in a way that
only works with Posix shells. (Bug#22289)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cedet/semantic/symref/grep.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el index 52c8d3b972c..54b538345ab 100644 --- a/lisp/cedet/semantic/symref/grep.el +++ b/lisp/cedet/semantic/symref/grep.el @@ -75,14 +75,14 @@ Optional argument MODE specifies the `major-mode' to test." ))) ;; Convert the list into some find-flags. (cond ((= (length pat) 1) - (concat "-name \"" (car pat) "\"")) + (concat "-name " (shell-quote-argument (car pat)))) ((consp pat) - (concat "\\( " + (concat (shell-quote-argument "(") " " (mapconcat (lambda (s) - (concat "-name \"" s "\"")) + (concat "-name " (shell-quote-argument s))) pat " -o ") - " \\)")) + " " (shell-quote-argument ")"))) (t (error "Customize `semantic-symref-filepattern-alist' for %s" major-mode)) ))) |