gistfile1.txt

(defun scroll-up-benchmark ()
  (interactive)
  (let ((oldgc gcs-done)
        (oldtime (float-time))
        (count 0))
    (condition-case nil (while t (scroll-up) (redisplay) (cl-incf count))
      (error (message "GCs: %d Elapsed time: %f seconds Second/scroll: %f"
                      (- gcs-done oldgc) (- (float-time) oldtime)
                      (/ (- (float-time) oldtime) count))))))