[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))
)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 fe903ef: Fix xref-find-references on MS-Windows,
Eli Zaretskii <=