diff options
Diffstat (limited to 'lisp/progmodes/xref.el')
| -rw-r--r-- | lisp/progmodes/xref.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 32fe6b612b3..a8bab47ea25 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el @@ -1355,6 +1355,20 @@ This command is intended to be bound to a mouse event." (xref-find-definitions identifier) (user-error "No identifier here")))) +;;;###autoload +(defun xref-find-references-at-mouse (event) + "Find references to the identifier at or around mouse click. +This command is intended to be bound to a mouse event." + (interactive "e") + (let ((identifier + (save-excursion + (mouse-set-point event) + (xref-backend-identifier-at-point (xref-find-backend))))) + (if identifier + (let ((xref-prompt-for-identifier nil)) + (xref-find-references identifier)) + (user-error "No identifier here")))) + (declare-function apropos-parse-pattern "apropos" (pattern)) ;;;###autoload |