diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-10 03:49:11 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-10 20:45:38 +0300 |
| commit | cc64f157883030c443b24692ca4304e047e2aaf9 (patch) | |
| tree | 6f46afdd4b10193bd878c4bd465a9eca33db5c09 /lisp/cedet | |
| parent | c7d601adefe130b773c1622a5aa8722d80709c1c (diff) | |
| download | emacs-cc64f157883030c443b24692ca4304e047e2aaf9.tar.gz | |
semantic-symref-regexp: Allow to input an arbitrary string
* lisp/cedet/semantic/symref/list.el (semantic-symref-regexp):
Allow to input an arbitrary string interactively.
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/semantic/symref/list.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index c99fc5f1932..f72499bf88e 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el @@ -84,9 +84,13 @@ This command uses the currently configured references tool within the current project to find references to the input SYM. The references are the organized by file and the name of the function they are used in. -Display the references in`semantic-symref-results-mode'." - (interactive (list (semantic-tag-name (semantic-complete-read-tag-buffer-deep - "Symrefs for: ")))) +Display the references in `semantic-symref-results-mode'." + (interactive (list (let ((tag (semantic-current-tag))) + (read-string " Symrefs for: " nil nil + (when tag + (regexp-quote (semantic-tag-name tag))))))) + ;; FIXME: Shouldn't the input be in Emacs regexp format, for + ;; consistency? Converting it to extended is not hard. (semantic-fetch-tags) (message "Gathering References...") ;; Gather results and tags |