[nongnu] elpa/scroll-on-drag 157637ba6b 26/35: Remove cursor setting code (resolving #1)

[ELPA Syncer]

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

    Remove cursor setting code (resolving #1)
---
 scroll-on-drag.el | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index cd78fc5fcd..92ced47b88 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -197,9 +197,6 @@ Returns true when scrolling took place, otherwise nil."
       (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-column (current-column))
 
@@ -347,12 +344,6 @@ Returns true when scrolling took place, otherwise nil."
                 (run-hooks 'scroll-on-drag-redisplay-hook)
                 (redisplay)))))))
 
-    ;; 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
 
@@ -409,11 +400,6 @@ Returns true when scrolling took place, otherwise nil."
     (when (and has-scrolled (> restore-column 0))
       (move-to-column restore-column))
 
-    ;; Restore pointer.
-    (when (boundp 'x-pointer-shape)
-      (setq x-pointer-shape restore-x-pointer-shape)
-      (set-mouse-color nil))
-
     (when has-scrolled-real
       (let ((inhibit-redisplay nil))
         (run-hooks 'scroll-on-drag-post-hook)