Use window-full-height-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc5cd4c9ee2612fa1967fe3b1caefdc820c6ccc4..086a82bd3f0b98689e538b58ed08786e9676496a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2009-10-06  Glenn Morris  <rgm@gnu.org>
 
+       * emerge.el (emerge-show-file-name):
+       * calc/calc.el (calc-quit):
+       * calc/calc-misc.el (calc-big-or-small):
+       * calc/calc-graph.el (calc-graph-view):
+       * calc/calc-ext.el (calc-reset):
+       * calendar/calendar.el (calendar-basic-setup):
+       Use window-full-height-p.
+
        * mail/rmailedit.el (rmail-cease-edit): If there is a Content-Type
        header we don't understand, don't insert another.  (Bug#4624)
        If changing mime charset, insert the new one in the right place.

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index d97cd7971ea650c0ac67daf44a134dc07fcc1dff..55204b045ccb864afffb71d491a6541ae201308f 100644 (file)
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -1343,7 +1343,7 @@ calc-kill calc-kill-region calc-yank))))
        ;; take up the whole height of the frame.
        (if (and
             win
-            (< (window-height win) (1- (frame-height))))
+           (not (window-full-height-p)))
            (let ((height (- (window-height win) 2)))
              (set-window-point win (point))
              (or (= height calc-window-height)

diff --git a/lisp/calc/calc-graph.el b/lisp/calc/calc-graph.el
index c2ca50ac6f7e0aaebe5272b5b4627f27cc091010..cb029d52509d8a51be722d42724165ec93e40731 100644 (file)
--- a/lisp/calc/calc-graph.el
+++ b/lisp/calc/calc-graph.el
@@ -1388,7 +1388,7 @@ This \"dumb\" driver will be present in Gnuplot 3.0."
              (set-window-buffer win buf)
            (if (eq major-mode 'calc-mode)
                (if (or need
-                       (< (window-height) (1- (frame-height))))
+                       (not (window-full-height-p)))
                    (display-buffer buf))
              (switch-to-buffer buf)))))
     (save-excursion

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index 7e89fecad83a9f170932438dc20881528844dd66..33ceec48e904486df5df06edc96406852799fd9b 100644 (file)
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -140,8 +140,8 @@ Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
     (if cwin
        (setq calc-full-mode
              (if kwin
-                 (and twin (eq (window-width twin) (frame-width)))
-               (eq (window-height cwin) (1- (frame-height))))))
+                 (and twin (window-full-width-p twin))
+               (window-full-height-p cwin))))
     (setq calc-full-mode (if arg
                             (> (prefix-numeric-value arg) 0)
                           (not calc-full-mode)))

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 75a08d7e79b9ac639c15e29552e69d95d9ea2d98..2fcb0599eadca64003f1b998ca63edbcff32645a 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1496,7 +1496,7 @@ commands given here will actually operate on the *Calculator* stack."
         ;; next time Calc is called, the window will be the same size
         ;; as the current window.
         (if (and win
-                 (< (window-height win) (1- (frame-height)))
+                (not (window-full-height-p win))
                  (window-full-width-p win) ; avoid calc-keypad
                  (not (get-buffer-window "*Calc Keypad*")))
             (setq calc-window-height (- (window-height win) 2)))

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 90e0acc2eecfe66cde38d38eb9e105f0cdfe1b1f..c22c29ae1b5bdb006e4059eb6ae602100fee3377 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1320,9 +1320,9 @@ display the generated calendar."
       ;; Is this a wide frame?  If so, split it horizontally.
       (if (window-splittable-p t) (split-window-horizontally))
       (pop-to-buffer calendar-buffer)
-      ;; Has the window already been split vertically?  (See bug#4543)
+      ;; Has the window already been split vertically?
       (when (and (not (window-dedicated-p))
-                 (= (window-height) (window-height (frame-root-window))))
+                 (window-full-height-p))
         (let ((win (split-window-vertically)))
           ;; Show something else in the upper window.
           (switch-to-buffer (other-buffer))

diff --git a/lisp/emerge.el b/lisp/emerge.el
index 21921e352c66a0f882c819637642f399df960cfd..ee19351a2e31f2e588f18a1dd30c49d480c8fbd7 100644 (file)
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -3103,10 +3103,9 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
          (progn
            (erase-buffer)
            (insert name)
-           (if (not (pos-visible-in-window-p))
-               (while (and (not (pos-visible-in-window-p))
-                           (> (1- (frame-height)) (window-height)))
-                 (enlarge-window 1)))
+           (while (and (not (pos-visible-in-window-p))
+                       (not (window-full-height-p)))
+             (enlarge-window 1))
            (let* ((echo-keystrokes 0)
                   (c (read-event)))
              (if (not (eq c 32))

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 585cc0a86c6f7113fd41b0020e88c68477dfd878..3102f74f5060a508885a5c55f44a64a6ef92c1e0 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-06  Glenn Morris  <rgm@gnu.org>
+
+       * mh-show.el (mh-show-msg): Use window-full-height-p.
+
 2009-08-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * mh-comp.el (mh-send-letter): default-buffer-file-coding-system

diff --git a/lisp/mh-e/mh-show.el b/lisp/mh-e/mh-show.el
index 70852f0bb05a09bee9a32d8aea5ffc7664f7bdea..ba972fc5b6204e973da8f663cb3faabc2a8ac9e2 100644 (file)
--- a/lisp/mh-e/mh-show.el
+++ b/lisp/mh-e/mh-show.el
@@ -148,9 +148,11 @@ displayed."
             (if (not clean-message-header)
                 (mh-start-of-uncleaned-message)))
         (mh-display-msg msg folder)))
-    (if (not (= (1+ (window-height)) (frame-height))) ;not horizontally split
-        (shrink-window (- (window-height) (or mh-summary-height
-                                              (mh-summary-height)))))
+    (unless (if (fbound 'window-full-height-p)
+                (window-full-height-p)
+              (= (1+ (window-height)) (frame-height))) ; not vertically split
+      (shrink-window (- (window-height) (or mh-summary-height
+                                            (mh-summary-height)))))
     (mh-recenter nil)
     ;; The following line is a nop which forces update of the scan line so
     ;; that font-lock will update it (if needed)...