Lines Matching defs:pointer
1 ;;; avoid.el --- make mouse pointer stay out of the way of editing
28 ;; For those who are annoyed by the mouse pointer obscuring text,
29 ;; this mode moves the mouse pointer - either just a little out of
46 ;; (mouse-avoidance-set-pointer-shape
48 ;; '(x-pointer-man x-pointer-spider
49 ;; x-pointer-gobbler x-pointer-gumby)))))
51 ;; For completely random pointer shape, replace the setq above with:
52 ;; (setq x-pointer-shape (mouse-avoidance-random-shape))
76 "Make mouse pointer stay out of the way of editing."
116 "*Mouse-pointer's flight distance.
117 If the cursor gets closer than this, the mouse pointer will move away.
124 (defvar mouse-avoidance-pointer-shapes nil)
125 (defvar mouse-avoidance-n-pointer-shapes 0)
126 (defvar mouse-avoidance-old-pointer-shape nil)
127 (defvar mouse-avoidance-animating-pointer nil)
134 (defsubst mouse-avoidance-set-pointer-shape (shape)
135 "Set the shape of the mouse pointer to SHAPE."
136 (when (boundp 'x-pointer-shape)
137 (setq x-pointer-shape shape)
169 "Return t if mouse pointer and point cursor are too close.
196 ;; Put the mouse pointer in the upper-right corner of the current frame.
249 (setq mouse-avoidance-animating-pointer t)
256 (mouse-avoidance-set-pointer-shape
259 (setq mouse-avoidance-animating-pointer nil))
265 This assumes that any variable whose name begins with x-pointer- and
268 (if (null mouse-avoidance-pointer-shapes)
270 (setq mouse-avoidance-pointer-shapes
272 (all-completions "x-pointer-" obarray
276 (setq mouse-avoidance-n-pointer-shapes
277 (length mouse-avoidance-pointer-shapes))))
278 (nth (random mouse-avoidance-n-pointer-shapes)
279 mouse-avoidance-pointer-shapes))
326 (if (and (not mouse-avoidance-animating-pointer)
353 * proteus: As `animate', but changes the shape of the mouse pointer too.
372 ;; Restore pointer shape if necessary
374 (mouse-avoidance-set-pointer-shape mouse-avoidance-old-pointer-shape))
386 mouse-avoidance-old-pointer-shape
387 (and (boundp 'x-pointer-shape) x-pointer-shape)))