Mercurial > hg > xemacs-beta
diff lisp/glyphs.el @ 284:558f606b08ae r21-0b40
Import from CVS: tag r21-0b40
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:34:13 +0200 |
| parents | c5d627a313b1 |
| children | 57709be46d1b |
line wrap: on
line diff
--- a/lisp/glyphs.el Mon Aug 13 10:33:19 2007 +0200 +++ b/lisp/glyphs.el Mon Aug 13 10:34:13 2007 +0200 @@ -511,6 +511,12 @@ If unspecified in a particular domain, `nontext-pointer-glyph' is used.") (set-glyph-face toolbar-pointer-glyph 'pointer) +(defvar divider-pointer-glyph (make-pointer-glyph) + "*The shape of the mouse-pointer when over a window divider. +This is a glyph; use `set-glyph-image' to change it. +If unspecified in a particular domain, `nontext-pointer-glyph' is used.") +(set-glyph-face divider-pointer-glyph 'pointer) + ;; The following three are in C. (if (featurep 'menubar) (set-glyph-face menubar-pointer-glyph 'pointer)) @@ -546,6 +552,7 @@ (define-constant-glyph 'selection-pointer-glyph) (define-constant-glyph 'busy-pointer-glyph) (define-constant-glyph 'gc-pointer-glyph) +(define-constant-glyph 'divider-pointer-glyph) (define-constant-glyph 'toolbar-pointer-glyph) (define-constant-glyph 'menubar-pointer-glyph) (define-constant-glyph 'scrollbar-pointer-glyph)