[nongnu] elpa/scroll-on-jump 7b4d796627: Workaround choppy scrolling with PGTK on Wayland

[ELPA Syncer]

branch: elpa/scroll-on-jump
commit 7b4d7966275bdf8587c62ae9c203dfa068677d2c
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Workaround choppy scrolling with PGTK on Wayland
    
    For some reason a short sleep makes redisplay work as intended.
---
 scroll-on-jump.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/scroll-on-jump.el b/scroll-on-jump.el
index 6cb9006caf..3820dbc987 100644
--- a/scroll-on-jump.el
+++ b/scroll-on-jump.el
@@ -265,7 +265,9 @@ Moving the point when ALSO-MOVE-POINT is set."
             ;; the caller moves the point to the final location.
             (when (< lines-done-abs lines-scroll-abs)
               ;; Force `redisplay', without this redrawing can be a little 
choppy.
-              (redisplay t)))
+              (redisplay t)
+              ;; FIXME: for some reason a short sleep is needed to prevent 
choppy scrolling.
+              (sit-for 0.01)))
           (setq is-early-exit nil))
 
         ;; Re-enable when editing logic.
@@ -344,7 +346,10 @@ Argument ALSO-MOVE-POINT moves the point while scrolling."
             ;; the caller moves the point to the final location.
             (when (< px-done-abs px-scroll-abs)
               ;; Force `redisplay', without this redrawing can be a little 
choppy.
-              (redisplay t)))
+              (goto-char (1+ (point)))
+              (redisplay t)
+              ;; FIXME: for some reason a short sleep is needed to prevent 
choppy scrolling.
+              (sit-for 0.01)))
           (setq is-early-exit nil))
 
         (cond