emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 7880d30: ; * lisp/cedet/semantic/symref/grep.el: Use grep quoting


From: Mattias Engdegård
Subject: master 7880d30: ; * lisp/cedet/semantic/symref/grep.el: Use grep quoting, not egrep.
Date: Sun, 19 Sep 2021 03:34:23 -0400 (EDT)

branch: master
commit 7880d3079d0de5844b519652d7a54adf98f658e1
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    ; * lisp/cedet/semantic/symref/grep.el: Use grep quoting, not egrep.
    
    Kindly noticed by Dmitry Gutov.
---
 lisp/cedet/semantic/symref/grep.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/cedet/semantic/symref/grep.el 
b/lisp/cedet/semantic/symref/grep.el
index 1e282c3..077a2d4 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]