- ;; Check if the movement was larger than DELTA lines by testing if
- ;; `point' is still on the same line or on any line DELTA lines up or
- ;; down. This is much cheaper than computing the actual number of lines
- ;; moved using `count-screen-lines'.
- (let ((prev-pos (marker-position beacon--previous-place)))
- (catch 'movement
- (when (beacon--pos-on-current-line-p prev-pos)
- (throw 'movement nil))
- (dolist (inc '(1 -1))
- (save-excursion
- (dotimes (i delta)
- (vertical-motion inc)
- (when (beacon--pos-on-current-line-p prev-pos)
- (throw 'movement nil)))))
- (throw 'movement t)))))
+ ;; Check if the movement was >= DELTA lines by moving DELTA
+ ;; lines. `count-screen-lines' is too slow if the movement had
+ ;; thousands of lines.
+ (save-excursion
+ (let ((p (point)))
+ (goto-char (min beacon--previous-place p))
+ (vertical-motion delta)
+ (> (max p beacon--previous-place)
+ (line-beginning-position))))))