From 788ccd686f10a0382ec636afc9bb37e13d32fcd8 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 19 Dec 2015 19:05:38 -0500 Subject: Add avy-goto-subword-1 variant for Occur mode --- lisp/init-editing.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp') diff --git a/lisp/init-editing.el b/lisp/init-editing.el index ce07354..0131a56 100644 --- a/lisp/init-editing.el +++ b/lisp/init-editing.el @@ -151,6 +151,13 @@ touches." (push it regexp-history)) (call-interactively 'occur)) +(defun km/occur-avy-goto-subword-1 () + "Like `avy-goto-subword-1', but display occurence." + (interactive) + (let (avy-all-windows) + (call-interactively #'avy-goto-subword-1)) + (occur-mode-display-occurrence)) + (global-set-key (kbd "C-x \\") 'align-regexp) (global-set-key (kbd "C-.") 'er/expand-region) @@ -175,6 +182,7 @@ touches." (define-key occur-mode-map "n" 'next-line) (define-key occur-mode-map "p" 'previous-line) +(define-key occur-mode-map "j" 'km/occur-avy-goto-subword-1) ;; Override default `occur'. (define-key search-map "o" 'km/occur) -- cgit v1.2.3