Function: pixel-scroll-in-rush-p

pixel-scroll-in-rush-p is a byte-compiled function defined in pixel-scroll.el.gz.

Signature

(pixel-scroll-in-rush-p)

Documentation

Return non-nil if next scroll should be non-smooth.

When scrolling request is delivered soon after the previous one, user is in hurry. When the time since last scroll is larger than pixel-dead-time, we are ready for another smooth scroll, and this function returns nil.

Source Code

;; Defined in /usr/src/emacs/lisp/pixel-scroll.el.gz
(defun pixel-scroll-in-rush-p ()
  "Return non-nil if next scroll should be non-smooth.
When scrolling request is delivered soon after the previous one,
user is in hurry.  When the time since last scroll is larger than
`pixel-dead-time', we are ready for another smooth scroll, and this
function returns nil."
  (let* ((now (current-time))
	 (scroll-in-rush-p (time-less-p
			    (time-subtract now pixel-last-scroll-time)
			    pixel-dead-time)))
    (setq pixel-last-scroll-time (float-time now))
    scroll-in-rush-p))