[nongnu] elpa/scroll-on-jump 0cf26a15bb 26/31: Cleanup: use window-body-height

[ELPA Syncer]

branch: elpa/scroll-on-jump
commit 0cf26a15bb6278c4273ee53f6a8d7d790792fc29
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: use window-body-height
    
    More explicit and whats intended.
---
 scroll-on-jump.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scroll-on-jump.el b/scroll-on-jump.el
index 649b7e46e4..d32a83c7d0 100644
--- a/scroll-on-jump.el
+++ b/scroll-on-jump.el
@@ -171,7 +171,7 @@ Moving the point when ALSO-MOVE-POINT is set."
       (time-limit
         (*
           scroll-on-jump-duration
-          (min 1.0 (/ (float (abs lines-scroll)) (float (window-height 
window))))))
+          (min 1.0 (/ (float (abs lines-scroll)) (float (window-body-height 
window))))))
       (use-curve scroll-on-jump-use-curve))
 
     ;; Animated scrolling (early exit on input to avoid annoying lag).
@@ -251,7 +251,7 @@ Argument ALSO-MOVE-POINT moves the point while scrolling."
       (time-limit
         (*
           scroll-on-jump-duration
-          (min 1.0 (/ (float (abs lines-scroll)) (float (window-height 
window))))))
+          (min 1.0 (/ (float (abs lines-scroll)) (float (window-body-height 
window))))))
       (use-curve scroll-on-jump-use-curve)
       (char-height (frame-char-height (window-frame window))))
 
@@ -374,7 +374,7 @@ Moving the point when ALSO-MOVE-POINT is set."
     (when (> lines 0)
       (let
         (
-          (height (window-height window))
+          (height (window-body-height window))
           (lines-scroll 0)
           (dir
             (cond