From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 13 Apr 2022 13:07:40 +0000 (+0300)
Subject: A better fix for bug#54800
X-Git-Tag: emacs-28.1.90~138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=880f2734c95cec7ee6a9eec596e86543508415cd;p=emacs.git

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 2f9afa02af8..171f7711324 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 " *\\.$")