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." | |||
| 75 | ))) | 75 | ))) |
| 76 | ;; Convert the list into some find-flags. | 76 | ;; Convert the list into some find-flags. |
| 77 | (cond ((= (length pat) 1) | 77 | (cond ((= (length pat) 1) |
| 78 | (concat "-name \"" (car pat) "\"")) | 78 | (concat "-name " (shell-quote-argument (car pat)))) |
| 79 | ((consp pat) | 79 | ((consp pat) |
| 80 | (concat "\\( " | 80 | (concat (shell-quote-argument "(") " " |
| 81 | (mapconcat (lambda (s) | 81 | (mapconcat (lambda (s) |
| 82 | (concat "-name \"" s "\"")) | 82 | (concat "-name " (shell-quote-argument s))) |
| 83 | pat | 83 | pat |
| 84 | " -o ") | 84 | " -o ") |
| 85 | " \\)")) | 85 | " " (shell-quote-argument ")"))) |
| 86 | (t | 86 | (t |
| 87 | (error "Customize `semantic-symref-filepattern-alist' for %s" major-mode)) | 87 | (error "Customize `semantic-symref-filepattern-alist' for %s" major-mode)) |
| 88 | ))) | 88 | ))) |