Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 59459:3023aa1d53fd
(calc-reset): Don't adjust the window height if the window takes up
the whole height of the frame.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 10 Jan 2005 16:54:15 +0000 |
| parents | 7e26bfe14017 |
| children | 3a5d173e246a |
comparison
equal
deleted
inserted
replaced
| 59458:df565ffe7247 | 59459:3023aa1d53fd |
|---|---|
| 1261 (calc-flush-caches t) | 1261 (calc-flush-caches t) |
| 1262 (run-hooks 'calc-reset-hook)) | 1262 (run-hooks 'calc-reset-hook)) |
| 1263 (calc-wrapper | 1263 (calc-wrapper |
| 1264 (let ((win (get-buffer-window (current-buffer)))) | 1264 (let ((win (get-buffer-window (current-buffer)))) |
| 1265 (calc-realign 0) | 1265 (calc-realign 0) |
| 1266 (if win | 1266 ;; 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)))) | |
| 1267 (let ((height (- (window-height win) 2))) | 1271 (let ((height (- (window-height win) 2))) |
| 1268 (set-window-point win (point)) | 1272 (set-window-point win (point)) |
| 1269 (or (= height calc-window-height) | 1273 (or (= height calc-window-height) |
| 1270 (let ((swin (selected-window))) | 1274 (let ((swin (selected-window))) |
| 1271 (select-window win) | 1275 (select-window win) |