Avoid unnecessary call when pixel scrolling

* lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down):
Avoid unnecessary call to `posn-at-point'

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index f514a010ad0deff01b517a48f3b4de2367279cec..65671534865e327734054bec04b4af70813f6572 100644 (file)
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -388,13 +388,14 @@ the height of the current window."
                      (point))))
     (if (and (< (point) next-pos)
              (let ((pos-visibility (pos-visible-in-window-p next-pos nil t)))
-               (or (eq (length pos-visibility) 2)
-                   (when-let* ((posn (posn-at-point next-pos))
-                               (edges (window-edges nil t))
-                               (usable-height (- (nth 3 edges)
-                                                 (nth 1 edges))))
-                     (> (cdr (posn-object-width-height posn))
-                        usable-height)))))
+               (and pos-visibility
+                    (or (eq (length pos-visibility) 2)
+                        (when-let* ((posn (posn-at-point next-pos))
+                                    (edges (window-edges nil t))
+                                    (usable-height (- (nth 3 edges)
+                                                      (nth 1 edges))))
+                          (> (cdr (posn-object-width-height posn))
+                             usable-height))))))
         (goto-char next-pos))
     (if (or (consp object) (stringp object))
         ;; We are either on an overlay or a string, so set vscroll