[nongnu] elpa/scroll-on-drag d6257b2fb7 05/35: Prevent cursor changing over text

[ELPA Syncer]

branch: elpa/scroll-on-drag
commit d6257b2fb70a3a8722ddf5e182fe2f3ff36f3603
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Prevent cursor changing over text
---
 scroll-on-drag.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index d46c493cee..cce0f34edb 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -92,6 +92,9 @@
       (restore-window-start (window-start))
       (restore-point (point))
 
+      ;; X11 cursor.
+      (restore-x-pointer-shape (and (boundp 'x-pointer-shape) x-pointer-shape))
+
       ;; Restore indent (lost when scrolling).
       (restore-indent (- (point) (save-excursion (back-to-indentation) 
(point))))
 
@@ -284,6 +287,11 @@
           (goto-char restore-point)
           (set-window-start this-window restore-window-start t))))
 
+    ;; Set arrow cursor (avoids annoying flicker on scroll).
+    (when (display-graphic-p)
+      (setq x-pointer-shape x-pointer-top-left-arrow)
+      (set-mouse-color nil))
+
     ;; ---------------
     ;; Main Event Loop
 
@@ -328,6 +336,11 @@
           restore-indent
           (- (save-excursion (move-end-of-line nil) (point)) (point)))))
 
+    ;; Restore pointer.
+    (when (display-graphic-p)
+      (setq x-pointer-shape restore-x-pointer-shape)
+      (set-mouse-color nil))
+
     ;; Result so we know if any scrolling occurred,
     ;; allowing a fallback action on 'click'.
     has-scrolled))