Emacs: Setup Mouse Click to Highlight Matching Words

By Xah Lee. Date: . Last updated: .

You can set mouse right-click to call isearch-forward-symbol-at-point (highlight clicked word).

Here's the command.

(defun xah-mouse-click-to-search (@click)
  "Mouse click to start `isearch-forward-symbol-at-point' (emacs 24.4) at clicked point.
URL `http://ergoemacs.org/emacs/emacs_mouse_click_highlight_word.html'
Version 2016-07-18"
  (interactive "e")
  (let ((p1 (posn-point (event-start @click))))
    (goto-char p1)

Here's the code to set the mouse (this example is for Linux only):

;; set mouse
 ((string-equal system-type "windows-nt") ; Windows
 ((string-equal system-type "gnu/linux")
  (global-set-key (kbd "<mouse-3>") 'xah-click-to-search) ; right button
 ((string-equal system-type "darwin") ; Mac
  ) )

Note: mouse button and wheel have different syntax on {Microsoft Windows, Mac OS X, Linux}. To find the syntax, Alt+x describe-key, then press the button or wheel. [see Emacs: Mouse Config]

Put $5 at https://www.patreon.com/xahlee , or goto paypal.com and pay to Xah@XahLee.org . Message me on XahLee discord, say so, ask me questions.
Or Buy Xah Emacs Tutorial

Emacs Tutorial

Emacs Init

Emacs Keys


ELisp Examples

ELisp Write Major Mode

ELisp Examples

Text Transform Under Cursor

Commands Do thing-at-point

Command to Insert Things

Script Examples