Subject: Re: balance-windows

From: martin rudalics <[email-masked]>
Date: Tue, 07 Jan 2014 12:51:02 +0100

> A minimal recipe is:
> emacs -Q
> C-x 2 C-x 2
> C-x +
> (no effect).

Arrrgh.  I'll check in a fix later today.  If you want to try it
now, do the below.  Eduard: This should fix your problem as well.

Thanks, martin

=== modified file 'lisp/window.el'
--- lisp/window.el	2014-01-05 16:29:44 +0000
+++ lisp/window.el	2014-01-07 11:41:17 +0000
@@ -4541,7 +4541,7 @@
      (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 @@
      (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)))