diff options
-rw-r--r-- | lisp/calc/calc-ext.el | 6 |
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) |