Add avy-goto-subword-1 variant for Grep mode

1 files changed, 10 insertions, 0 deletions

diff --git a/lisp/init-files.el b/lisp/init-files.el
index de06fdd..4ed0d4d 100644
--- a/lisp/init-files.el
+++ b/lisp/init-files.el
@@ -111,6 +111,16 @@ entering `ch' is equivalent to `*.[ch]'.")
                              (line-beginning-position 5))))
     (narrow-to-region beg (point-max))))
 
+(defun km/grep-avy-goto-subword-1 ()
+  "Like `avy-goto-subword-1', but call `compilation-display-error'."
+  (interactive)
+  (let (avy-all-windows)
+    (call-interactively #'avy-goto-subword-1))
+  (compilation-display-error))
+
+(after 'grep
+  (define-key grep-mode-map "j" 'km/grep-avy-goto-subword-1))
+
 (define-prefix-command 'km/file-search-map)
 (define-key km/file-map "s" 'km/file-search-map)