Function: mouse-avoidance-too-close-p

mouse-avoidance-too-close-p is a byte-compiled function defined in avoid.el.gz.

Signature

(mouse-avoidance-too-close-p MOUSE)

Documentation

Return t if mouse pointer and point cursor are too close.

MOUSE is the current mouse position as returned by mouse-position. Acceptable distance is defined by mouse-avoidance-threshold.

Source Code

;; Defined in /usr/src/emacs/lisp/avoid.el.gz
(defun mouse-avoidance-too-close-p (mouse)
  "Return t if mouse pointer and point cursor are too close.
MOUSE is the current mouse position as returned by `mouse-position'.
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))
	 point)
    (or tool-bar-lines
	(setq tool-bar-lines 0))
    (cond
     ((and mouse-y (< mouse-y tool-bar-lines))
      nil)
     ((setq point (mouse-avoidance-point-position))
      (let ((mouse-x (car (cdr mouse))))
	(and (eq frame (car point))
	     (not (null mouse-x))
	     (< (abs (- mouse-x (car (cdr point))))
		mouse-avoidance-threshold)
	     (< (abs (- mouse-y (cdr (cdr point))))
		mouse-avoidance-threshold)))))))