diff options
| author | Jonathan Moore Liles <wantingwaiting@users.sf.net> | 2007-10-16 21:33:38 -0500 |
|---|---|---|
| committer | Jonathan Moore Liles <wantingwaiting@users.sf.net> | 2008-01-07 16:02:38 -0600 |
| commit | 1f530fa1712a83f05bc0683048b08655ccf694ba (patch) | |
| tree | 8a0489335796a66dc6af53bf8b743be57b3819e5 /core.lisp | |
| parent | eca75fdf7b35440594db88c770c3b4b77b7ec6b6 (diff) | |
Avoid sync'ing windows during window-hiding interactive resize.
Speed is the whole point of *resize-hides-windows*, so don't bother
maximizing invisible windows.
Diffstat (limited to 'core.lisp')
| -rw-r--r-- | core.lisp | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -1933,12 +1933,13 @@ either :width or :height" (expand-tree to-shrink (- amount) (ecase dim (:width (if lastp :right :left)) (:height (if lastp :bottom :top)))) - (tree-iterate to-resize - (lambda (leaf) - (sync-frame-windows group leaf))) - (tree-iterate to-shrink - (lambda (leaf) - (sync-frame-windows group leaf)))))))) + (unless (and *resize-hides-windows* (eq *top-map* *resize-map*)) + (tree-iterate to-resize + (lambda (leaf) + (sync-frame-windows group leaf))) + (tree-iterate to-shrink + (lambda (leaf) + (sync-frame-windows group leaf))))))))) (defun balance-frames (group tree) "Resize all the children of tree to be of equal width or height |