[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)

[ 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). ]


reply via email to

[Prev in Thread] Current Thread [Next in Thread]