[elpa] master 03ddd52 16/50: after-scroll: don't remove highlighting when called in succession

[Michael Heerdegen]

branch: master
commit 03ddd52388ab393585acc634ad04832522b67964
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    after-scroll: don't remove highlighting when called in succession
    
    avoid removing highlighting when `window-scroll-functions' is
    called multiple times in succession (follow-mode does that)
---
 on-screen.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/on-screen.el b/on-screen.el
index f89fcd3..898829d 100644
--- a/on-screen.el
+++ b/on-screen.el
@@ -458,7 +458,12 @@ This should normally go to `window-scroll-functions'."
                  (overlays (caddr win-data))
                  (s1       (car area))
                  (s2       (cadr area)))
-            (when (and on-screen-auto-update (timerp timer))
+            (when (and
+                  on-screen-auto-update
+                  (timerp timer)
+                  ;; avoid removing highlighting when 
`window-scroll-functions' is
+                  ;; called multiple times in succession (follow-mode does 
that)
+                  (not (eq (car-safe area) (on-screen-window-start win))))
               ;; do what the timer would do, and cancel timer
               (on-screen-remove-highlighting win)
               (cancel-timer timer)