emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-25 fe903ef: Fix xref-find-references on MS-Windows


From: Eli Zaretskii
Subject: [Emacs-diffs] emacs-25 fe903ef: Fix xref-find-references on MS-Windows
Date: Sat, 02 Jan 2016 15:27:17 +0000

branch: emacs-25
commit fe903ef7cf1b1efdeede7128fb75f464eb72bdda
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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)
---
 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 52c8d3b..54b5383 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))
          )))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]