Re: New balance-windows

[Stefan Monnier]

>             (if (< (car (window-edges)) (car (window-edges next)))
>                 ;; The windows are side-by-side
>                 (unless (zerop (setq diff (/ diff (window-height) 2)))
>                   ;; Change things more smoothly.
>                   (if (or (> diff 1) (< diff -1)) (setq diff (/ diff 2)))
>                   (shrink-window diff)
                                      ^^
                                       t

[ I mistakenly removed this second arg before posting my code, thinking I was
  using a local extension of shrink-window, but I later noticed that it was
  not the case (I dropped this local extension when it collided with
  preserve-before). ]


        Stefan