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

the whole height of the frame.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 80e801ab2b..2806db82b1 100644
--- 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)