1263 |
(calc-wrapper |
(calc-wrapper |
1264 |
(let ((win (get-buffer-window (current-buffer)))) |
(let ((win (get-buffer-window (current-buffer)))) |
1265 |
(calc-realign 0) |
(calc-realign 0) |
1266 |
(if win |
;; Adjust the window height if the window is visible, but doesn't |
1267 |
|
;; take up the whole height of the frame. |
1268 |
|
(if (and |
1269 |
|
win |
1270 |
|
(< (window-height win) (1- (frame-height)))) |
1271 |
(let ((height (- (window-height win) 2))) |
(let ((height (- (window-height win) 2))) |
1272 |
(set-window-point win (point)) |
(set-window-point win (point)) |
1273 |
(or (= height calc-window-height) |
(or (= height calc-window-height) |