Mercurial > hg > xemacs-beta

diff lisp/wid-edit.el @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children 78f53ef88e17
line wrap: on
line diff
--- a/lisp/wid-edit.el	Mon Aug 13 10:05:01 2007 +0200
+++ b/lisp/wid-edit.el	Mon Aug 13 10:05:51 2007 +0200
@@ -632,6 +632,11 @@
 		       (repeat :tag "Suffixes"
 			       (string :format "%v")))))
 
+(defvar widget-glyph-pointer-glyph
+  (make-pointer-glyph [cursor-font :data "hand2"])
+  "Glyph to be used as the mouse pointer shape over glyphs.
+Use `set-glyph-image' to change this.")
+
 (defvar widget-glyph-cache nil
   "Cache of glyphs associated with strings (files).")
 
@@ -740,6 +745,7 @@
     (set-extent-property extent 'start-open t)
     (set-extent-property extent 'end-open t)
     (set-extent-property extent 'keymap map)
+    (set-extent-property extent 'pointer widget-glyph-pointer-glyph)
     (set-extent-end-glyph extent glyph)
     (unless (or (stringp help-echo) (null help-echo))
       (setq help-echo 'widget-mouse-help))