From 7880d3079d0de5844b519652d7a54adf98f658e1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 19 Sep 2021 09:29:33 +0200 Subject: [PATCH] ; * 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 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) -- 2.39.5