procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Regexp-quote literal symbols when grepping

Browse source 
`xref-find-references` was unable to find symbols like
`backquote-list*-macro`.

* lisp/cedet/semantic/symref/grep.el
(semantic-symref-grep--quote-extended): New function.
(semantic-symref-perform-search): Call it.
This commit is contained in:
Mattias Engdegård 2021-09-18 13:39:09 +02:00
parent dd1220b969
commit 031e1c28f9
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/cedet/semantic/symref/grep.el
View file

@ -133,6 +133,12 @@ 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 ".^$*+?|{}[]()|\\"))
(lambda (s) (concat "\\" s))
string nil t))
(cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-grep))
"Perform a search with Grep."
;; Grep doesn't support some types of searches.
@ -151,7 +157,10 @@ This shell should support pipe redirect syntax."
((eq (oref tool searchtype) 'regexp)
"-nE ")
(t "-nw ")))
(greppat (oref tool searchfor))
(searchfor (oref tool searchfor))
(greppat (if (eq (oref tool searchtype) 'regexp)
searchfor
(semantic-symref-grep--quote-extended searchfor)))
;; Misc
(b (get-buffer-create "*Semantic SymRef*"))
(ans nil)