Mercurial > hg > xemacs-beta

diff lisp/x11/x-mouse.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 25f70ba0133c
line wrap: on
line diff
--- a/lisp/x11/x-mouse.el	Mon Aug 13 09:05:11 2007 +0200
+++ b/lisp/x11/x-mouse.el	Mon Aug 13 09:05:42 2007 +0200
@@ -144,9 +144,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"))