In balance-windows-area don't call window-height and window-width. Bug#16241.

* window.el (balance-windows-area): Call window-size instead of
window-height and window-width.  Bug#16241.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79244ec160c17a10cc7002d9494e8af2a7c0989c..5402775dfbb8bb0d44d7e38baae1c9400b7e195e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-24  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (balance-windows-area): Call window-size instead of
+       window-height and window-width.  Bug#16241.
+
 2013-12-24  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * net/eww.el (eww-bookmark-quit): Remove.

diff --git a/lisp/window.el b/lisp/window.el
index 3b841747205fb6061d1681082feca0ae0cd097c1..b58f8b85815aaf79e591a7b40092b11266dc8bb3 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -4681,12 +4681,12 @@ specific buffers."
         ;; (assert (eq next (or (cadr (member win wins)) (car wins))))
         (let* ((horiz
                 (< (car (window-pixel-edges win)) (car (window-pixel-edges next))))
-               (areadiff (/ (- (* (window-height next pixelwise)
-                                 (window-width next pixelwise)
+               (areadiff (/ (- (* (window-size next nil pixelwise)
+                                 (window-size next t pixelwise)
                                   (buffer-local-value 'window-area-factor
                                                       (window-buffer next)))
-                               (* (window-height win pixelwise)
-                                 (window-width win pixelwise)
+                               (* (window-size win nil pixelwise)
+                                 (window-size win t pixelwise)
                                   (buffer-local-value 'window-area-factor
                                                       (window-buffer win))))
                             (max (buffer-local-value 'window-area-factor
@@ -4694,10 +4694,10 @@ specific buffers."
                                  (buffer-local-value 'window-area-factor
                                                      (window-buffer next)))))
                (edgesize (if horiz
-                             (+ (window-height win pixelwise)
-                               (window-height next pixelwise))
-                           (+ (window-width win pixelwise)
-                             (window-width next pixelwise))))
+                             (+ (window-size win nil pixelwise)
+                               (window-size next nil pixelwise))
+                           (+ (window-size win t pixelwise)
+                             (window-size next t pixelwise))))
                (diff (/ areadiff edgesize)))
           (when (zerop diff)
             ;; Maybe diff is actually closer to 1 than to 0.