summaryrefslogtreecommitdiff
path: root/core.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'core.lisp')
-rw-r--r--core.lisp13
1 files changed, 7 insertions, 6 deletions
diff --git a/core.lisp b/core.lisp
index c3d96dd..147f3bd 100644
--- a/core.lisp
+++ b/core.lisp
@@ -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