GNU bug report logs - #32029
PATCH: xref-find-definitions-at-mouse

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 32029 in the body.
You can then email your comments to 32029 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Tobias Gerdin <tgerdin <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: PATCH: xref-find-definitions-at-mouse
Date: Mon, 2 Jul 2018 01:18:50 +0200

Hello,

I find it convenient to be able to go to definitions using the mouse 
(especially when getting to know new code bases). I have the below 
function bound to C-mouse-1 like so:

(global-set-key [C-mouse-1] 'xref-find-definitions-at-mouse)
(global-set-key [C-down-mouse-1] nil)

I also find it convenient to be able to get back to where I was using 
only the mouse (enabling keyboard-free navigation):

(global-set-key [C-mouse-3] 'xref-pop-marker-stack)
(global-set-key [C-down-mouse-3] nil)

Finding suitable default keybindings (well, "mouse bindings") is beyond 
the scope of this patch, but what I have above is the same binding as 
other popular IDEs such as IntelliJ and VS Code.

Regards,

Tobias Gerdin

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 9a437b6f69..85a1bc6be4 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -873,6 +873,18 @@ With prefix argument, prompt for the identifier."
   (interactive (list (xref--read-identifier "Find references of: ")))
   (xref--find-xrefs identifier 'references identifier nil))

+;;;###autoload
+(defun xref-find-definitions-at-mouse (event)
+  "Find the definition of identifier around mouse click."
+  (interactive "e")
+  (let* ((backend (xref-find-backend))
+     (identifier (save-excursion
+              (mouse-set-point event)
+              (xref-backend-identifier-at-point backend))))
+    (if identifier
+    (xref--find-definitions identifier nil)
+      (user-error "No identifier here"))))
+
 (declare-function apropos-parse-pattern "apropos" (pattern))

 ;;;###autoload

Message #8 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dgutov <at> yandex.ru>
To: Tobias Gerdin <tgerdin <at> gmail.com>, 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: PATCH: xref-find-definitions-at-mouse
Date: Tue, 3 Jul 2018 16:15:31 +0300

On 7/2/18 2:18 AM, Tobias Gerdin wrote:

> +;;;###autoload
> +(defun xref-find-definitions-at-mouse (event)
> +  "Find the definition of identifier around mouse click."
> +  (interactive "e")
> +  (let* ((backend (xref-find-backend))
> +     (identifier (save-excursion
> +              (mouse-set-point event)
> +              (xref-backend-identifier-at-point backend))))
> +    (if identifier
> +    (xref--find-definitions identifier nil)
> +      (user-error "No identifier here"))))

You should call `mouse-set-point` before `xref-find-backend`, because 
the latter might conceivably depend on the value of point.

I think this can be written much shorter (call mouse-set-point, then 
interactively call xref-find-definitions), but I'm not sure how.

Message #11 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Tobias Gerdin <tgerdin <at> gmail.com>
To: Dmitry Gutov <dgutov <at> yandex.ru>, 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Tue, 3 Jul 2018 23:37:23 +0200

Den 2018-07-03 kl. 15:15, skrev Dmitry Gutov:

> On 7/2/18 2:18 AM, Tobias Gerdin wrote:
>
>> +;;;###autoload
>> +(defun xref-find-definitions-at-mouse (event)
>> +  "Find the definition of identifier around mouse click."
>> +  (interactive "e")
>> +  (let* ((backend (xref-find-backend))
>> +     (identifier (save-excursion
>> +              (mouse-set-point event)
>> +              (xref-backend-identifier-at-point backend))))
>> +    (if identifier
>> +    (xref--find-definitions identifier nil)
>> +      (user-error "No identifier here"))))
>
> You should call `mouse-set-point` before `xref-find-backend`, because 
> the latter might conceivably depend on the value of point.
>
> I think this can be written much shorter (call mouse-set-point, then 
> interactively call xref-find-definitions), but I'm not sure how.
A new version below. The initial version was modeled after 
`ffap-at-point`. Make using of call-interactively would be neat, but 
since we want to avoid making the call to xref-find-definitions inside 
the body of save-excursion I do not see how either (unless one woud 
actually move the point which I find a bit aggressive). I am not an 
overly experienced Elisp programmer so if you happen to come up with a 
way to do this I'm all ears. If not the below would do the job until then.

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 9a437b6f69..befebbb426 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -873,6 +873,16 @@ With prefix argument, prompt for the identifier."
   (interactive (list (xref--read-identifier "Find references of: ")))
   (xref--find-xrefs identifier 'references identifier nil))

+;;;###autoload
+(defun xref-find-definitions-at-mouse (event)
+  "Find the definition of identifier around mouse click."
+  (interactive "e")
+  (if-let ((identifier (save-excursion
+             (mouse-set-point event)
+             (xref-backend-identifier-at-point (xref-find-backend)))))
+      (xref-find-definitions identifier)
+    (user-error "No identifier here")))
+
 (declare-function apropos-parse-pattern "apropos" (pattern))

 ;;;###autoload

Message #14 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Tobias Gerdin <tgerdin <at> gmail.com>
To: Dmitry Gutov <dgutov <at> yandex.ru>, 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Wed, 4 Jul 2018 10:03:31 +0200

Den 2018-07-03 kl. 15:15, skrev Dmitry Gutov:
>> I think this can be written much shorter (call mouse-set-point, then 
>> interactively call xref-find-definitions), but I'm not sure how.
Actually, since the mark will be saved before the jump if one could 
arrange for saving the mark before the call to mouse-set-point and not 
saving it again before jumping the call to save-excursion would not be 
needed and xref-find-definitions could be called interactively. It 
appears that pushing the mark is set all the way down in 
`xref--show-xrefs` though, so unless setting this is parameterized 
somehow it does not look straigthforward to me. And not worth it in this 
case IMO.

Message #17 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dgutov <at> yandex.ru>
To: Tobias Gerdin <tgerdin <at> gmail.com>, 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Wed, 4 Jul 2018 15:24:25 +0300

On 7/4/18 11:03 AM, Tobias Gerdin wrote:
> Den 2018-07-03 kl. 15:15, skrev Dmitry Gutov:
>>> I think this can be written much shorter (call mouse-set-point, then 
>>> interactively call xref-find-definitions), but I'm not sure how.
> Actually, since the mark will be saved before the jump if one could 
> arrange for saving the mark before the call to mouse-set-point and not 
> saving it again before jumping the call to save-excursion would not be 
> needed and xref-find-definitions could be called interactively.
Would that really be a desired behavior, though?

Regarding the patch, I'm fine with it, but I'd like someone else to 
confirm that the name of the new function makes sense.

Message #20 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Dmitry Gutov <dgutov <at> yandex.ru>
Cc: tgerdin <at> gmail.com, 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Wed, 04 Jul 2018 18:17:16 +0300

> From: Dmitry Gutov <dgutov <at> yandex.ru>
> Date: Wed, 4 Jul 2018 15:24:25 +0300
> 
> Regarding the patch, I'm fine with it, but I'd like someone else to 
> confirm that the name of the new function makes sense.

Someone else here.  We have already several functions called
SOMETHING-at-mouse, so I think the proposed name does make sense.

Thanks.

Message #23 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Tobias Gerdin <tgerdin <at> gmail.com>
Cc: 32029 <at> debbugs.gnu.org, dgutov <at> yandex.ru
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Fri, 06 Jul 2018 11:55:41 +0300

> From: Tobias Gerdin <tgerdin <at> gmail.com>
> Date: Tue, 3 Jul 2018 23:37:23 +0200
> 
> > You should call `mouse-set-point` before `xref-find-backend`, because 
> > the latter might conceivably depend on the value of point.
> >
> > I think this can be written much shorter (call mouse-set-point, then 
> > interactively call xref-find-definitions), but I'm not sure how.
> A new version below.

Dmitry, are you okay with having this on master?  Or is there
something else that should be done about this?

Thanks.

Message #26 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dgutov <at> yandex.ru>
To: Eli Zaretskii <eliz <at> gnu.org>, Tobias Gerdin <tgerdin <at> gmail.com>
Cc: 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Fri, 6 Jul 2018 12:03:33 +0300

On 7/6/18 11:55 AM, Eli Zaretskii wrote:

> Dmitry, are you okay with having this on master?  Or is there
> something else that should be done about this?

Yes.

A NEWS entry, I guess.

I mistakenly sent my last reply to emacs-devel instead of this bug thread.

Message #29 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Tobias Gerdin <tgerdin <at> gmail.com>
To: Dmitry Gutov <dgutov <at> yandex.ru>, Eli Zaretskii <eliz <at> gnu.org>
Cc: 32029 <at> debbugs.gnu.org
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Fri, 6 Jul 2018 22:23:19 +0200

Den 2018-07-06 kl. 11:03, skrev Dmitry Gutov:

> On 7/6/18 11:55 AM, Eli Zaretskii wrote:
>
>> Dmitry, are you okay with having this on master?  Or is there
>> something else that should be done about this?
>
> Yes.
>
> A NEWS entry, I guess.
diff --git a/etc/NEWS b/etc/NEWS
index c92ee6e680..2bfe884987 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -165,6 +165,12 @@ from a remote host.
 This triggers to search the program on the remote host as indicated by
 'default-directory'.

++++
+** New function 'xref-find-definitions-at-mouse'.
+Allows jumping to a definition by clicking on the identifier. Needs to be
+bound to a mouse event. See the node "Mouse Buttons" in the Emacs manual
+for details.
+
 
 * Editing Changes in Emacs 27.1

Message #34 received at 32029-done <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Tobias Gerdin <tgerdin <at> gmail.com>
Cc: 32029-done <at> debbugs.gnu.org, dgutov <at> yandex.ru
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Sat, 07 Jul 2018 12:02:43 +0300

> From: Tobias Gerdin <tgerdin <at> gmail.com>
> Date: Tue, 3 Jul 2018 23:37:23 +0200
> 
> A new version below.

Thanks, pushed to the master branch.

Message #37 received at 32029 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Tobias Gerdin <tgerdin <at> gmail.com>
Cc: 32029 <at> debbugs.gnu.org, dgutov <at> yandex.ru
Subject: Re: bug#32029: [PATCH] xref-find-definitions-at-mouse
Date: Sat, 07 Jul 2018 12:04:38 +0300

> Cc: 32029 <at> debbugs.gnu.org
> From: Tobias Gerdin <tgerdin <at> gmail.com>
> Date: Fri, 6 Jul 2018 22:23:19 +0200
> 
> Den 2018-07-06 kl. 11:03, skrev Dmitry Gutov:
> 
> > On 7/6/18 11:55 AM, Eli Zaretskii wrote:
> >
> >> Dmitry, are you okay with having this on master?  Or is there
> >> something else that should be done about this?
> >
> > Yes.
> >
> > A NEWS entry, I guess.
> diff --git a/etc/NEWS b/etc/NEWS
> index c92ee6e680..2bfe884987 100644
> --- a/etc/NEWS
> +++ b/etc/NEWS
> @@ -165,6 +165,12 @@ from a remote host.
>   This triggers to search the program on the remote host as indicated by
>   'default-directory'.
> 
> ++++
> +** New function 'xref-find-definitions-at-mouse'.
> +Allows jumping to a definition by clicking on the identifier. Needs to be
> +bound to a mouse event. See the node "Mouse Buttons" in the Emacs manual
> +for details.
> +

Thanks, I preferred to write the NEWS entry (and a suitable manual
change) myself, so as not to exhaust the amount of changes we can
accept from you without legal paperwork.

Would you like to start the copyright assignment paperwork at this
time, so that future contributions could be unlimited?

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.