mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-16 20:10:58 +01:00
16 lines
536 B
EmacsLisp
16 lines
536 B
EmacsLisp
;; *** Occur
|
|
;; https://oremacs.com/2015/01/26/occur-dwim/
|
|
;; https://github.com/abo-abo/hydra/wiki/Emacs
|
|
(defun occur-dwim ()
|
|
"Call `occur' with a sane default, chosen as the thing under point or selected region"
|
|
(interactive)
|
|
(push (if (region-active-p)
|
|
(buffer-substring-no-properties
|
|
(region-beginning)
|
|
(region-end))
|
|
(let ((sym (thing-at-point 'symbol)))
|
|
(when (stringp sym)
|
|
(regexp-quote sym))))
|
|
regexp-history)
|
|
(call-interactively 'occur))
|