> (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
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
