Mercurial > hg > xemacs-beta

comparison lisp/x-mouse.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c5d627a313b1
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
163 (or (x-get-resource "busyPointer" "Cursor" 'string device) 163 (or (x-get-resource "busyPointer" "Cursor" 'string device)
164 "watch")) 164 "watch"))
165 (set-glyph-image toolbar-pointer-glyph 165 (set-glyph-image toolbar-pointer-glyph
166 (or (x-get-resource "toolBarPointer" "Cursor" 'string device) 166 (or (x-get-resource "toolBarPointer" "Cursor" 'string device)
167 "left_ptr")) 167 "left_ptr"))
168 (set-glyph-image divider-pointer-glyph
169 (or (x-get-resource "dividerPointer" "Cursor" 'string device)
170 "sb_h_double_arrow"))
168 (let ((fg 171 (let ((fg
169 (x-get-resource "pointerColor" "Foreground" 'string device))) 172 (x-get-resource "pointerColor" "Foreground" 'string device)))
170 (and fg 173 (and fg
171 (set-face-foreground 'pointer fg))) 174 (set-face-foreground 'pointer fg)))
172 (let ((bg 175 (let ((bg