Lines Matching +defs:shrink +defs:window
33 ;; window displaying the buffer to be optimally sized.
50 ;; If you want the *Macroexpansion* window to be not higher than
52 ;;(setq c-macro-shrink-window-flag t)
104 (defcustom c-macro-shrink-window-flag nil
105 "*Non-nil means shrink the *Macroexpansion* window to fit its contents."
177 "Buffer is read only: displaying expansion in alternate window")
206 ;; Display the current buffer in a window which is either just large
209 ;; window.
211 ;; Several factors influence window resizing so that the window is
213 ;; with minimally if it has been created by the user. If the window
215 ;; window is not re-sized. If the window already contains the current
217 ;; variable c-macro-shrink-window-flag is nil the window size is *never*
222 (let ((oldwinheight (window-height))
223 (alreadythere ;the window was already there
224 (get-buffer-window (current-buffer)))
225 (popped nil)) ;the window popped changing the layout
229 (setq popped (/= oldwinheight (window-height)))))
230 (if (and c-macro-shrink-window-flag ;user wants fancy shrinking :\)
232 ;; Enlarge up to half screen, or shrink properly.
233 (let ((oldwin (selected-window))
237 (select-window (get-buffer-window (current-buffer)))
239 (window-height)
240 window-min-height))
242 (enlarge-window (- (min maxheight
245 (window-height)))
247 (select-window oldwin))))))