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

avy.el: Use next-char-property-change, not next-overlay-change

Browse Source 
* avy.el (avy--next-visible-point):
(avy--next-invisible-point): Update.

Fixes #168
This commit is contained in:
Oleh Krehel 2016-08-14 11:50:36 +02:00
parent a9119039ee
commit 0f5e99b5e9
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

@ -632,14 +632,14 @@ Use OVERLAY-FN to visualize the decision overlay."
(defun avy--next-visible-point () (defun avy--next-visible-point ()
"Return the next closest point without 'invisible property." "Return the next closest point without 'invisible property."
(let ((s (point))) (let ((s (point)))
(while (and (not (= (point-max) (setq s (next-overlay-change s)))) (while (and (not (= (point-max) (setq s (next-char-property-change s))))
(get-char-property s 'invisible))) (get-char-property s 'invisible)))
s)) s))
(defun avy--next-invisible-point () (defun avy--next-invisible-point ()
"Return the next closest point with 'invisible property." "Return the next closest point with 'invisible property."
(let ((s (point))) (let ((s (point)))
(while (and (not (= (point-max) (setq s (next-overlay-change s)))) (while (and (not (= (point-max) (setq s (next-char-property-change s))))
(not (get-char-property s 'invisible)))) (not (get-char-property s 'invisible))))
s)) s))