From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 2 Jan 2016 15:24:48 +0000 (+0200)
Subject: Fix xref-find-references on MS-Windows
X-Git-Tag: emacs-25.0.90~290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe903ef7cf1b1efdeede7128fb75f464eb72bdda;p=emacs.git

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)
---

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))
 	  )))