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

avy.el: More fixes to org-toggle-link-display

Browse Source 
Fix `avy-goto-subword-0', `avy-goto-subword-1', `avy-goto-char-timer'.

Re #261
This commit is contained in:
Oleh Krehel 2019-01-21 17:44:22 +01:00
parent 118a3d616e
commit 74501e1235
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
avy.el
View File

@ -1409,7 +1409,7 @@ BEG and END narrow the scope where candidates are searched."
(while (> (point) ws) (while (> (point) ws)
(when (or (null predicate) (when (or (null predicate)
(and predicate (funcall predicate))) (and predicate (funcall predicate)))
(unless (get-char-property (point) 'invisible) (unless (not (avy--visible-p (point)))
(push (cons (point) (selected-window)) window-cands))) (push (cons (point) (selected-window)) window-cands)))
(subword-backward)) (subword-backward))
(and (= (point) ws) (and (= (point) ws)
@ -1956,7 +1956,7 @@ Otherwise, the whole regex is highlighted."
(goto-char (car pair)) (goto-char (car pair))
(setq regex (funcall re-builder str)) (setq regex (funcall re-builder str))
(while (re-search-forward regex (cdr pair) t) (while (re-search-forward regex (cdr pair) t)
(unless (get-char-property (1- (point)) 'invisible) (unless (not (avy--visible-p (1- (point))))
(let* ((idx (if (= (length (match-data)) 4) 1 0)) (let* ((idx (if (= (length (match-data)) 4) 1 0))
(ov (make-overlay (ov (make-overlay
(match-beginning idx) (match-end idx)))) (match-beginning idx) (match-end idx))))