2151 |
;; let window shrink to fit: |
;; let window shrink to fit: |
2152 |
(let ((window (selected-window)) |
(let ((window (selected-window)) |
2153 |
target-lines w2) |
target-lines w2) |
2154 |
(cond ;; if split-window-threshold is enabled, use the largest window |
(cond ;; if split-height-threshold is enabled, use the largest window |
2155 |
((and (> (window-height (setq w2 (get-largest-window))) |
((and (> (window-height (setq w2 (get-largest-window))) |
2156 |
split-height-threshold) |
split-height-threshold) |
2157 |
(= (frame-width) (window-width w2))) |
(= (frame-width) (window-width w2))) |