diff options
Diffstat (limited to 'lisp/cedet/semantic/symref')
| -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 1e282c3052c..077a2d48615 100644 --- a/lisp/cedet/semantic/symref/grep.el +++ b/lisp/cedet/semantic/symref/grep.el @@ -133,9 +133,9 @@ This shell should support pipe redirect syntax." :group 'semantic :type 'string) -(defun semantic-symref-grep--quote-extended (string) - "Quote STRING as an extended-syntax regexp." - (replace-regexp-in-string (rx (in ".^$*+?|{}[]()|\\")) +(defun semantic-symref-grep--quote-grep (string) + "Quote STRING as a grep-syntax regexp." + (replace-regexp-in-string (rx (in ".^$*[\\")) (lambda (s) (concat "\\" s)) string nil t)) @@ -160,7 +160,7 @@ This shell should support pipe redirect syntax." (searchfor (oref tool searchfor)) (greppat (if (eq (oref tool searchtype) 'regexp) searchfor - (semantic-symref-grep--quote-extended searchfor))) + (semantic-symref-grep--quote-grep searchfor))) ;; Misc (b (get-buffer-create "*Semantic SymRef*")) (ans nil) |