Commit fe903ef7 authored by Eli Zaretskii's avatar Eli Zaretskii

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)
parent 55a28d8a
...@@ -75,14 +75,14 @@ Optional argument MODE specifies the `major-mode' to test." ...@@ -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))
))) )))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment