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: How to Set Mouse Buttons

Liket it? Put $5 at patreon. Or Buy Xah Emacs Tutorial. Thanks.