diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-08-09 23:38:11 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-08-09 23:38:11 -0400 |
commit | e1193819370d6efdd2840325b40386963d4c69bb (patch) | |
tree | 2816df5ef8ab3113a09cf65fc9ab018c571b90e9 /lisp/init-ace.el | |
parent | 20863271fd69f2e06628d16ceba8d13a5c01cb06 (diff) | |
download | emacs.d-e1193819370d6efdd2840325b40386963d4c69bb.tar.gz |
Revert "Remove km/avy-goto-subword-1"
This reverts commit 808e4c576e1b751570ea8436bc89b697ea2fa35a.
I was mistaken about being mistaken. Calling avy-goto-subword-1 in Org
with folded headings assigns candidates to hidden text.
Diffstat (limited to 'lisp/init-ace.el')
-rw-r--r-- | lisp/init-ace.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/init-ace.el b/lisp/init-ace.el index 3417013..cc6eee3 100644 --- a/lisp/init-ace.el +++ b/lisp/init-ace.el @@ -2,7 +2,16 @@ (require 'avy) -(key-chord-define-global "jf" 'avy-goto-subword-1) +(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 |