[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-ext.el |
Date: |
Mon, 10 Jan 2005 12:42:49 -0500 |
Index: emacs/lisp/calc/calc-ext.el
diff -c emacs/lisp/calc/calc-ext.el:1.32 emacs/lisp/calc/calc-ext.el:1.33
*** emacs/lisp/calc/calc-ext.el:1.32 Sun Jan 9 15:55:08 2005
--- emacs/lisp/calc/calc-ext.el Mon Jan 10 16:54:15 2005
***************
*** 1263,1269 ****
(calc-wrapper
(let ((win (get-buffer-window (current-buffer))))
(calc-realign 0)
! (if win
(let ((height (- (window-height win) 2)))
(set-window-point win (point))
(or (= height calc-window-height)
--- 1263,1273 ----
(calc-wrapper
(let ((win (get-buffer-window (current-buffer))))
(calc-realign 0)
! ;; 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)