Mercurial > hg > xemacs-beta

diff lisp/x11/x-mouse.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 376386a54a3c
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/x11/x-mouse.el	Mon Aug 13 08:47:56 2007 +0200
+++ b/lisp/x11/x-mouse.el	Mon Aug 13 08:48:16 2007 +0200
@@ -143,9 +143,11 @@
     (set-glyph-image gc-pointer-glyph
 	  (or (x-get-resource "gcPointer" "Cursor" 'string device)
 	      "watch"))
-    (set-glyph-image scrollbar-pointer-glyph
-	  (or (x-get-resource "scrollbarPointer" "Cursor" 'string device)
-	      "top_left_arrow"))
+    (when (featurep 'scrollbar)
+      (set-glyph-image
+       scrollbar-pointer-glyph
+       (or (x-get-resource "scrollbarPointer" "Cursor" 'string device)
+	   "top_left_arrow")))
     (set-glyph-image busy-pointer-glyph
 	  (or (x-get-resource "busyPointer" "Cursor" 'string device)
 	      "watch"))