[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: New balance-windows
From: |
Stefan Monnier |
Subject: |
Re: New balance-windows |
Date: |
Tue, 09 Aug 2005 21:48:27 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (darwin) |
> (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