]> code.delx.au - gnu-emacs-elpa/commitdiff
With 'at-full style, use full len to check for overlap
authorOleh Krehel <ohwoeowho@gmail.com>
Tue, 12 May 2015 08:52:39 +0000 (10:52 +0200)
committerOleh Krehel <ohwoeowho@gmail.com>
Tue, 12 May 2015 08:52:39 +0000 (10:52 +0200)
avy.el (avy--overlay-at-full): Update.

avy.el

diff --git a/avy.el b/avy.el
index 17caaf5eef36197ce222e48328372992c0749582..229ce811a99b9416866d773d45a53a1f80c9ef5a 100644 (file)
--- a/avy.el
+++ b/avy.el
@@ -424,7 +424,8 @@ LEAF is normally ((BEG . END) . WND)."
         (goto-char beg)
         (when (cl-some (lambda (o)
                          (eq (overlay-get o 'category) 'avy))
-                       (overlays-at (1+ (point))))
+                       (overlays-in (point) (min (+ (point) len)
+                                                 (line-end-position))))
           (setq str (substring str 0 1))
           (setq len 1))
         (let* ((end (if (= beg (line-end-position))