diff options
author | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-10 17:27:16 +0300 |
---|---|---|
committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-10 20:45:38 +0300 |
commit | f37d86ed0bd0857cfb5c606e9d5b5611d02783aa (patch) | |
tree | 5f4e160223c2edb0998e06fd6922960132bb717d /lisp/cedet/semantic/symref.el | |
parent | cc64f157883030c443b24692ca4304e047e2aaf9 (diff) | |
download | emacs-f37d86ed0bd0857cfb5c606e9d5b5611d02783aa.tar.gz |
semantic/symref/grep: Support regexp search
* lisp/cedet/semantic/symref.el
(semantic-symref-hit-to-tag-via-buffer): Don't regexp-quote when
the search type is regexp.
* lisp/cedet/semantic/symref/grep.el
(semantic-symref-perform-search): Support the regexp search type.
Pass -E to Grep when it's used.
Diffstat (limited to 'lisp/cedet/semantic/symref.el')
-rw-r--r-- | lisp/cedet/semantic/symref.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el index 10293d9496c..2c5e3ba1805 100644 --- a/lisp/cedet/semantic/symref.el +++ b/lisp/cedet/semantic/symref.el @@ -472,8 +472,12 @@ buffers that were opened." (goto-char (point-min)) (forward-line (1- line)) - ;; Search forward for the matching text - (when (re-search-forward (regexp-quote searchtxt) + ;; Search forward for the matching text. + ;; FIXME: This still fails if the regexp uses something specific + ;; to the extended syntax, like grouping. + (when (re-search-forward (if (memq searchtype '(regexp tagregexp)) + searchtxt + (regexp-quote searchtxt)) (point-at-eol) t) (goto-char (match-beginning 0)) |