Mercurial > emacs

changeset 59459:3023aa1d53fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 df565ffe7247
children 3f2f8bee5650
files lisp/calc/calc-ext.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el	Mon Jan 10 13:35:11 2005 +0000
+++ b/lisp/calc/calc-ext.el	Mon Jan 10 16:54:15 2005 +0000
@@ -1263,7 +1263,11 @@
   (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)