summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-12-19 19:05:42 -0500
committerKyle Meyer <kyle@kyleam.com>2015-12-19 19:05:42 -0500
commiteef82693f3b78c7e7c72909c9e89449f30a1b659 (patch)
tree5ac0f16c9ad2f3207644a75c0941e53c9dd64f8a
parent788ccd686f10a0382ec636afc9bb37e13d32fcd8 (diff)
downloademacs.d-eef82693f3b78c7e7c72909c9e89449f30a1b659.tar.gz
Add avy-goto-subword-1 variant for Grep mode
-rw-r--r--lisp/init-files.el10
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)