Function: mouse-drag-events-are-point-events-p

mouse-drag-events-are-point-events-p is a byte-compiled function defined in mouse-drag.el.gz.

Signature

(mouse-drag-events-are-point-events-p START-POSN END-POSN)

Documentation

Determine if START-POSN and END-POSN are "close".

Source Code

;; Defined in /usr/src/emacs/lisp/mouse-drag.el.gz
(defun mouse-drag-events-are-point-events-p (start-posn end-posn)
  "Determine if START-POSN and END-POSN are \"close\"."
  (let*
      ((start-col-row (posn-col-row start-posn))
       (end-col-row (posn-col-row end-posn)))
    (and
     ;; ;; We no longer exclude things by time.
     ;; (< (- (posn-timestamp end-posn) (posn-timestamp start-posn))
     ;;    (if (numberp double-click-time)
     ;;        (* 2 double-click-time) ;; stretch it a little
     ;;      999999)) ;; non-numeric => check by position alone
     (= (car start-col-row) (car end-col-row))
     (= (cdr start-col-row) (cdr end-col-row)))))