[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7880d30: ; * lisp/cedet/semantic/symref/grep.el: Use grep quoting, not egrep.,
Mattias Engdegård <=