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)
This commit is contained in:
parent
55a28d8a1b
commit
fe903ef7cf
1 changed files with 4 additions and 4 deletions
|
@ -75,14 +75,14 @@ Optional argument MODE specifies the `major-mode' to test."
|
||||||
)))
|
)))
|
||||||
;; Convert the list into some find-flags.
|
;; Convert the list into some find-flags.
|
||||||
(cond ((= (length pat) 1)
|
(cond ((= (length pat) 1)
|
||||||
(concat "-name \"" (car pat) "\""))
|
(concat "-name " (shell-quote-argument (car pat))))
|
||||||
((consp pat)
|
((consp pat)
|
||||||
(concat "\\( "
|
(concat (shell-quote-argument "(") " "
|
||||||
(mapconcat (lambda (s)
|
(mapconcat (lambda (s)
|
||||||
(concat "-name \"" s "\""))
|
(concat "-name " (shell-quote-argument s)))
|
||||||
pat
|
pat
|
||||||
" -o ")
|
" -o ")
|
||||||
" \\)"))
|
" " (shell-quote-argument ")")))
|
||||||
(t
|
(t
|
||||||
(error "Customize `semantic-symref-filepattern-alist' for %s" major-mode))
|
(error "Customize `semantic-symref-filepattern-alist' for %s" major-mode))
|
||||||
)))
|
)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue