Fix Bugs 16351 and 16383 when rounding in balance-windows-2.

* window.el (balance-windows-2): While rounding don't give a
window more than the remainder.  Bug#16351, Bug#16383.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88afaec974c543ad7690441096c8b90ddebd5094..add146fd2b1662f6309e9e69e3ebd13e43459d12 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-07  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (balance-windows-2): While rounding don't give a
+       window more than the remainder.  Bug#16351, Bug#16383.
+
 2014-01-07  Glenn Morris  <rgm@gnu.org>
 
        * menu-bar.el (menu-bar-help-extra-packages): Remove.

diff --git a/lisp/window.el b/lisp/window.el
index 6ecb55aa65984634c83ad6e149463fe4d93b50c7..d1d8a5ea79cea413c53419cdc2b43633c2c12983 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -4541,7 +4541,7 @@ is non-nil)."
     (setq sub first)
     (while (and sub (> rest 0))
       (unless (window--resize-child-windows-skip-p window)
-       (set-window-new-pixel sub char-size t)
+       (set-window-new-pixel sub (min rest char-size) t)
        (setq rest (- rest char-size)))
       (setq sub (window-right sub)))
 
@@ -4550,7 +4550,7 @@ is non-nil)."
     (setq sub first)
     (while (and sub (> rest 0))
       (unless (eq (window-new-normal sub) 'ignore)
-       (set-window-new-pixel sub char-size t)
+       (set-window-new-pixel sub (min rest char-size) t)
        (setq rest (- rest char-size)))
       (setq sub (window-right sub)))