wilderjds
/
avy
1
0
Fork 0
Code Issues Pull Requests 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
master
Oleh Krehel 10 years ago
parent a9119039ee
commit 0f5e99b5e9
1 changed files with 2 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      avy.el

4
avy.el
Unescape 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))

Write Preview
Loading…
Cancel
Save