[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#16351: balance-windows
From: |
martin rudalics |
Subject: |
bug#16351: balance-windows |
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)))