[nongnu] elpa/scroll-on-drag 31c3baed1d 08/35: Check x-pointer-shape is available before setting

[ELPA Syncer]

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

    Check x-pointer-shape is available before setting
    
    This is only available in X11
---
 scroll-on-drag.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index df69e9d294..74433b2daa 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -386,7 +386,7 @@ Returns true when scrolling took place, otherwise nil."
           (- (save-excursion (move-end-of-line nil) (point)) (point)))))
 
     ;; Restore pointer.
-    (when (display-graphic-p)
+    (when (boundp 'x-pointer-shape)
       (setq x-pointer-shape restore-x-pointer-shape)
       (set-mouse-color nil))