diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/init-ace.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/init-ace.el b/lisp/init-ace.el index e971121..d033e52 100644 --- a/lisp/init-ace.el +++ b/lisp/init-ace.el @@ -1,6 +1,17 @@ ;;; Avy -(key-chord-define-global "jf" 'avy-goto-subword-1) +(require 'avy) + +(defun km/avy-goto-subword-1 (char arg) + "Like `avy-goto-subword-1', but don't consider invisible text." + (interactive (list (read-char "char: ") current-prefix-arg)) + (avy--with-avy-keys avy-goto-subword-1 + (let ((char (downcase char))) + (avy-goto-subword-0 + arg (lambda () (and (not (invisible-p (point))) + (eq (downcase (char-after)) char))))))) + +(key-chord-define-global "jf" 'km/avy-goto-subword-1) ;;; Ace Link |