emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master cc64f15 3/5: semantic-symref-regexp: Allow to input


From: Dmitry Gutov
Subject: [Emacs-diffs] master cc64f15 3/5: semantic-symref-regexp: Allow to input an arbitrary string
Date: Sun, 10 May 2015 17:46:33 +0000

branch: master
commit cc64f157883030c443b24692ca4304e047e2aaf9
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    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.
---
 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 c99fc5f..f72499b 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]