]> git.eshelyaron.com Git - emacs.git/commitdiff
(mouse-avoidance-too-close-p): If the frame lacks a
authorEli Zaretskii <eliz@gnu.org>
Tue, 24 Jul 2001 11:05:40 +0000 (11:05 +0000)
committerEli Zaretskii <eliz@gnu.org>
Tue, 24 Jul 2001 11:05:40 +0000 (11:05 +0000)
tool-bar-lines parameter, behave as if its value were zero.
(mouse-avoidance-set-pointer-shape): Don't do anything if
x-pointer-shape is not boundp.

lisp/ChangeLog
lisp/avoid.el

index d27973d115afc404afadc93b01a12719756307db..b6c7f2276713acca5e832efb6547002be6707c52 100644 (file)
@@ -1,3 +1,10 @@
+2001-07-24  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * avoid.el (mouse-avoidance-too-close-p): If the frame lacks a
+       tool-bar-lines parameter, behave as if its value were zero.
+       (mouse-avoidance-set-pointer-shape): Don't do anything if
+       x-pointer-shape is not boundp.
+
 2001-07-23  Francesco Potorti`  <pot@gnu.org>
 
        * uniquify.el: Overall speedup changes when using many buffers.
index 2aa2b28f1c315da945ac395e7634c2b0976e508a..4bc59de14a731c76d460a9863e6d305381fc3aaf 100644 (file)
@@ -131,8 +131,9 @@ Only applies in mouse-avoidance-modes `animate' and `jump'."
 
 (defsubst mouse-avoidance-set-pointer-shape (shape)
   "Set the shape of the mouse pointer to SHAPE."
-  (setq x-pointer-shape shape)
-  (set-mouse-color nil))
+  (when (boundp 'x-pointer-shape)
+    (setq x-pointer-shape shape)
+    (set-mouse-color nil)))
 
 (defun mouse-avoidance-point-position ()
   "Return the position of point as (FRAME X . Y).
@@ -179,6 +180,8 @@ Acceptable distance is defined by `mouse-avoidance-threshold'."
   (let* ((frame (car mouse))
         (mouse-y (cdr (cdr mouse)))
         (tool-bar-lines (frame-parameter nil 'tool-bar-lines)))
+    (or tool-bar-lines
+       (setq tool-bar-lines 0))
     (if (and mouse-y (< mouse-y tool-bar-lines))
        nil
       (let ((point (mouse-avoidance-point-position))
@@ -386,7 +389,8 @@ definition of \"random distance\".)"
               (run-with-idle-timer 0.1 t 'mouse-avoidance-fancy-hook))
         (setq mouse-avoidance-mode mode
               mouse-avoidance-state (cons 0 0)
-              mouse-avoidance-old-pointer-shape x-pointer-shape))
+              mouse-avoidance-old-pointer-shape
+              (and (boundp 'x-pointer-shape) x-pointer-shape)))
        ((eq mode 'exile)
         (setq mouse-avoidance-timer
               (run-with-idle-timer 0.1 t 'mouse-avoidance-exile-hook))