From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 19 Sep 2021 07:29:33 +0000 (+0200)
Subject: ; * lisp/cedet/semantic/symref/grep.el: Use grep quoting, not egrep.
X-Git-Tag: emacs-28.0.90~846
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7880d3079d0de5844b519652d7a54adf98f658e1;p=emacs.git

; * lisp/cedet/semantic/symref/grep.el: Use grep quoting, not egrep.

Kindly noticed by Dmitry Gutov.
---

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)