(calc-reset): Don't adjust the window height if the window takes up

the whole height of the frame.

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 80e801ab2b76caecbdee7b421b8bdb5d4fd2016b..2806db82b137ee859e5813bedda58f8de758ca64 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -1263,7 +1263,11 @@ calc-kill calc-kill-region calc-yank))))
   (calc-wrapper
    (let ((win (get-buffer-window (current-buffer))))
      (calc-realign 0)
-     (if win
+     ;; Adjust the window height if the window is visible, but doesn't
+     ;; take up the whole height of the frame.
+     (if (and
+          win
+          (< (window-height win) (1- (frame-height))))
         (let ((height (- (window-height win) 2)))
           (set-window-point win (point))
           (or (= height calc-window-height)