Lines Matching +defs:shrink +defs:window
53 (defcustom electric-help-shrink-window t
54 "If set, adjust help window sizes to buffer sizes when displaying help."
123 shrink the window to fit. If THUNK returns non-nil, we don't do those things.
125 After THUNK has been called, this function \"electrically\" pops up a window
127 in `electric-help-mode'. The window's height will be at least MINHEIGHT if
131 shrink the window to fit if `electric-help-shrink-window' is non-nil.
135 buffer's window disappears (i.e., we use `save-window-excursion'), and
138 (let ((one (one-window-p t))
139 (config (current-window-configuration))
145 (goto-char (window-start (selected-window))))
150 (when (and minheight (< (window-height) minheight))
151 (enlarge-window (- minheight (window-height))))
161 (when (and one electric-help-shrink-window)
162 (shrink-window-if-larger-than-buffer))))
167 (setq config (current-window-configuration))
185 (set-window-configuration config)
190 ;; must do this outside of save-window-excursion
196 (if (pos-visible-in-window-p (point-max))
215 ;beginning-of-buffer - otherwise pos-visible-in-window-p
217 (let ((min (pos-visible-in-window-p (point-min)))
218 (max (pos-visible-in-window-p (1- (point-max)))))
244 ; (if (and (null arg) (pos-visible-in-window-p (point-max)))
249 "Exit `with-electric-help', restoring the previous window/buffer configuration.
260 "Exit `with-electric-help', retaining the current window/buffer configuration.
261 \(The *Help* buffer will not be selected, but \\[switch-to-buffer-other-window] RET
297 (if (save-window-excursion
302 (and b (not (get-buffer-window b))
335 (get-buffer-window (get-buffer name))