[elpa] 04/14: New command ggtags-find-definition for #57

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit 7b196dd8982326438def26a2886cb3822c37d969
Author: Leo Liu <address@hidden>
Date:   Fri May 16 12:03:45 2014 +0800

    New command ggtags-find-definition for #57
---
 README.rst |   16 +++++++++++++---
 ggtags.el  |    7 ++++++-
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/README.rst b/README.rst
index 794e1cc..1c316ee 100644
--- a/README.rst
+++ b/README.rst
@@ -118,14 +118,23 @@ ggtags-find-tag-dwim
 
    To force finding a definition tag, call it with a prefix (``C-u``).
 
-ggtags-find-reference
+ggtags-find-tag-mouse
+
+   Like ``ggtags-find-tag-dwim`` but suitable for binding to mouse
+   events.
+
+ggtags-find-definition
 
-   Find references to a tag. With ``C-u`` ask for the tag name with
+   Find definition tags. With ``C-u`` ask for the tag name with
    completion.
 
+ggtags-find-reference
+
+   Find reference tags. With ``C-u`` ask for the tag name with completion.
+
 ggtags-find-other-symbol
 
-   Find a tag that has no definition. With ``C-u`` ask for the tag
+   Find tags that have no definitions. With ``C-u`` ask for the tag
    name with completion.
 
 ggtags-find-tag-regexp
@@ -289,6 +298,7 @@ NEWS
 +++++++++++++
 
 #. New command ``ggtags-find-tag-mouse`` for mouse support.
+#. New command ``ggtags-find-definition``.
 #. Variable ``ggtags-completing-read-function`` restored.
 
 [2014-05-06 Tue] 0.8.4
diff --git a/ggtags.el b/ggtags.el
index 97ba132..b78384f 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -894,7 +894,7 @@ definition tags."
         (not buffer-file-name)
         (not (ggtags-project-has-refs (ggtags-find-project)))
         (not (ggtags-project-file-p buffer-file-name)))
-    (ggtags-find-tag 'definition (shell-quote-argument name)))
+    (ggtags-find-definition name))
    (t (ggtags-find-tag (format "--from-here=%d:%s"
                                (line-number-at-pos)
                                (shell-quote-argument
@@ -910,6 +910,11 @@ definition tags."
       (goto-char (posn-point (event-start event)))
       (call-interactively #'ggtags-find-tag-dwim))))
 
+;; Another option for `M-.'.
+(defun ggtags-find-definition (name)
+  (interactive (list (ggtags-read-tag 'definition current-prefix-arg)))
+  (ggtags-find-tag 'definition (shell-quote-argument name)))
+
 (defun ggtags-setup-libpath-search (type name)
   (pcase (and ggtags-global-search-libpath-for-reference
               (ggtags-get-libpath))