Function: occur-symbol-at-mouse
occur-symbol-at-mouse is an interactive and byte-compiled function
defined in replace.el.gz.
Signature
(occur-symbol-at-mouse EVENT)
Documentation
Display an occur buffer for the symbol at EVENT.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/replace.el.gz
(defun occur-symbol-at-mouse (event)
"Display an occur buffer for the symbol at EVENT."
(interactive "e")
(let ((symbol (thing-at-mouse event 'symbol t)))
(occur (concat "\\_<" (regexp-quote symbol) "\\_>"))))