Function: foldout-mouse-swallow-events

foldout-mouse-swallow-events is a byte-compiled function defined in foldout.el.gz.

Signature

(foldout-mouse-swallow-events EVENT)

Documentation

Swallow intervening mouse events so we only get the final click-count.

Signal an error if the final event isn't the same type as the first one.

Source Code

;; Defined in /usr/src/emacs/lisp/foldout.el.gz
(defun foldout-mouse-swallow-events (event)
  "Swallow intervening mouse events so we only get the final click-count.
Signal an error if the final event isn't the same type as the first one."
  (let ((initial-event-type (event-basic-type event)))
    (while (null (sit-for (/ double-click-time 1000.0) 'nodisplay))
      (setq event (read--potential-mouse-event)))
    (or (eq initial-event-type (event-basic-type event))
	(error "")))
  event)