[elpa] 01/14: Fix #54: New command ggtags-find-tag-mouse

[Leo Liu]

leoliu pushed a commit to branch master
in repository elpa.

commit a7a3c8102010ca9e945d2df5f29b4c88e6ce722f
Author: Leo Liu <address@hidden>
Date:   Wed May 7 10:35:58 2014 +0800

    Fix #54: New command ggtags-find-tag-mouse
---
 README.rst |    5 +++++
 ggtags.el  |   12 +++++++++---
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/README.rst b/README.rst
index ceaf69d..60af593 100644
--- a/README.rst
+++ b/README.rst
@@ -283,6 +283,11 @@ Integration with other packages
 NEWS
 ~~~~
 
+[devel] 0.8.5
++++++++++++++
+
+#. New command ``ggtags-find-tag-mouse`` for mouse support.
+
 [2014-05-06 Tue] 0.8.4
 ++++++++++++++++++++++
 
diff --git a/ggtags.el b/ggtags.el
index 52ec670..a450461 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013-2014  Free Software Foundation, Inc.
 
 ;; Author: Leo Liu <address@hidden>
-;; Version: 0.8.4
+;; Version: 0.8.5
 ;; Keywords: tools, convenience
 ;; Created: 2013-01-29
 ;; URL: https://github.com/leoliu/ggtags
@@ -875,8 +875,7 @@ definition tags."
     (ggtags-find-file name))
    ((or (eq what 'definition)
         (not buffer-file-name)
-        (and (ggtags-find-project)
-             (not (ggtags-project-has-refs (ggtags-find-project))))
+        (not (ggtags-project-has-refs (ggtags-find-project)))
         (not (ggtags-project-file-p buffer-file-name)))
     (ggtags-find-tag 'definition (shell-quote-argument name)))
    (t (ggtags-find-tag (format "--from-here=%d:%s"
@@ -887,6 +886,13 @@ definition tags."
                                 (ggtags-project-relative-file 
buffer-file-name)))
                        (shell-quote-argument name)))))
 
+(defun ggtags-find-tag-mouse (event)
+  (interactive "e")
+  (with-selected-window (posn-window (event-start event))
+    (save-excursion
+      (goto-char (posn-point (event-start event)))
+      (call-interactively #'ggtags-find-tag-dwim))))
+
 (defun ggtags-setup-libpath-search (type name)
   (pcase (and ggtags-global-search-libpath-for-reference
               (ggtags-get-libpath))