diff options
| -rw-r--r-- | 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 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)) ))) |