emacs-28 880f2734c9: A better fix for bug#54800

[Eli Zaretskii]

branch: emacs-28
commit 880f2734c95cec7ee6a9eec596e86543508415cd
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    A better fix for bug#54800
    
    * lisp/calc/calc.el (calc-align-stack-window): Improve scrolling
    when windows have non-integral dimensions.
---
 lisp/calc/calc.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 2f9afa02af..171f771132 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1815,7 +1815,7 @@ See calc-keypad for details."
          (if win
              (progn
                (calc-cursor-stack-index 0)
-               (vertical-motion (- 3 (window-height win)))
+               (vertical-motion (- 3 (window-height win 'floor)))
                (set-window-start win (point)))))
        (calc-cursor-stack-index 0)
        (if (looking-at " *\\.$")