andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
the whole height of the frame.
This commit is contained in:
Jay Belanger 2005-01-10 16:54:15 +00:00
parent dc91a0ed80
commit 24193b8ddf
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calc/calc-ext.el
View file

@ -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)