A better fix for bug#54800

* lisp/calc/calc.el (calc-align-stack-window): Improve scrolling
when windows have non-integral dimensions.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 2f9afa02af8cd950d7b32a0b69d2cc2ec07f21bc..171f771132470451d8f7c4e3b545231d402e6efe 100644 (file)
--- 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 " *\\.$")