summaryrefslogtreecommitdiff
path: root/lisp/calc/calc.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2022-04-13 16:07:40 +0300
committerEli Zaretskii <eliz@gnu.org>2022-04-13 16:07:40 +0300
commit880f2734c95cec7ee6a9eec596e86543508415cd (patch)
treeb7a79eadf3e0e16a4c921d6b14378a315669a696 /lisp/calc/calc.el
parent5ee959aa8783689627a1553c678fd4d3720236c8 (diff)
downloademacs-880f2734c95cec7ee6a9eec596e86543508415cd.tar.gz
emacs-880f2734c95cec7ee6a9eec596e86543508415cd.tar.bz2
emacs-880f2734c95cec7ee6a9eec596e86543508415cd.zip
A better fix for bug#54800
* lisp/calc/calc.el (calc-align-stack-window): Improve scrolling when windows have non-integral dimensions.
Diffstat (limited to 'lisp/calc/calc.el')
-rw-r--r--lisp/calc/calc.el2
1 files changed, 1 insertions, 1 deletions
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 " *\\.$")