ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 13:33:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix subword commands with custom order.

Browse Source
This commit is contained in:
Daniel H. Leidisch 2019-10-25 00:51:29 +02:00
parent 87394c9a88
commit f9c15c573c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
avy.el
View File

@ -1540,13 +1540,15 @@ BEG and END narrow the scope where candidates are searched."
(when (or (null predicate) (when (or (null predicate)
(and predicate (funcall predicate))) (and predicate (funcall predicate)))
(unless (not (avy--visible-p (point))) (unless (not (avy--visible-p (point)))
(push (cons (point) (selected-window)) window-cands))) (push (cons (cons (point) (1+ (point)))
(selected-window)) window-cands)))
(subword-backward)) (subword-backward))
(and (= (point) ws) (and (= (point) ws)
(or (null predicate) (or (null predicate)
(and predicate (funcall predicate))) (and predicate (funcall predicate)))
(not (get-char-property (point) 'invisible)) (not (get-char-property (point) 'invisible))
(push (cons (point) (selected-window)) window-cands))) (push (cons (cons (point) (1+ (point)))
(selected-window)) window-cands)))
(setq candidates (nconc candidates window-cands)))))) (setq candidates (nconc candidates window-cands))))))
(avy-process candidates)))) (avy-process candidates))))