Lines Matching +defs:shrink +defs:window
170 (defcustom ibuffer-use-other-window nil
171 "If non-nil, display Ibuffer in another window by default."
175 (defcustom ibuffer-default-shrink-to-minimum-size nil
176 "If non-nil, minimize the size of the Ibuffer window by default."
179 (defvar ibuffer-shrink-to-minimum-size nil)
520 (define-key map (kbd "o") 'ibuffer-visit-buffer-other-window)
521 (define-key map (kbd "C-o") 'ibuffer-visit-buffer-other-window-noselect)
522 (define-key map (kbd "M-o") 'ibuffer-visit-buffer-1-window)
526 (define-key map (kbd "C-x 4 RET") 'ibuffer-visit-buffer-other-window)
534 (define-key-after map [menu-bar view visit-buffer-other-window]
535 '(menu-item "View (other window)" ibuffer-visit-buffer-other-window))
853 (defvar ibuffer-restore-window-config-on-quit nil
854 "If non-nil, restore previous window configuration upon exiting `ibuffer'.")
856 (defvar ibuffer-prev-window-config nil
881 The maximum number of columns is determined by the current window
885 (let ((width (window-width))
1037 one window."
1045 (defun ibuffer-visit-buffer-other-window (&optional noselect)
1046 "Visit the buffer on this line in another window."
1051 (let ((curwin (selected-window)))
1053 (select-window curwin))
1054 (switch-to-buffer-other-window buf))))
1056 (defun ibuffer-visit-buffer-other-window-noselect ()
1057 "Visit the buffer on this line in another window, but don't select it."
1059 (ibuffer-visit-buffer-other-window t))
1068 (defun ibuffer-visit-buffer-1-window ()
1094 a new window in the current frame, splitting vertically."
1125 (split-window nil height (eq type 'horizontally))
1126 (other-window 1)
1139 (defun ibuffer-shrink-to-fit (&optional owin)
1140 (fit-window-to-buffer nil (when owin (/ (frame-height)
1141 (length (window-list (selected-frame)))))))
1155 (let ((lastwin (car (last (window-list nil 'nomini)))))
1157 (save-window-excursion
1158 (select-window lastwin)
1159 ;; The window might be too small to split; in that case,
1166 (split-window)
1176 (enlarge-window 3))))))
1177 (select-window (next-window))
1181 (fit-window-to-buffer)
1232 (save-window-excursion
1826 (when ibuffer-shrink-to-minimum-size
1827 (ibuffer-shrink-to-fit)))))))
2173 (if (eq ibuffer-shrink-to-minimum-size 'onewindow)
2174 (ibuffer-shrink-to-fit t)
2175 (when ibuffer-shrink-to-minimum-size
2176 (ibuffer-shrink-to-fit)))
2270 Try to restore the previous window configuration iff
2271 `ibuffer-restore-window-config-on-quit' is non-nil."
2273 (if ibuffer-restore-window-config-on-quit
2277 (set-window-configuration ibuffer-prev-window-config)))
2282 "Display a list of buffers, in another window.
2290 (defun ibuffer-other-window (&optional files-only)
2291 "Like `ibuffer', but displayed in another window by default.
2299 (defun ibuffer (&optional other-window-p name qualifiers noselect
2300 shrink filter-groups formats)
2305 OTHER-WINDOW-P says to use another window.
2310 SHRINK means shrink the buffer to minimal size. The special
2311 value `onewindow' means always use another window.
2318 (when ibuffer-use-other-window
2319 (setq other-window-p t))
2320 (setq ibuffer-prev-window-config (current-window-configuration))
2322 (if other-window-p
2326 (save-selected-window
2327 ;; We switch to the buffer's window in order to be able
2329 (select-window (get-buffer-window buf 0))
2332 (setq ibuffer-restore-window-config-on-quit other-window-p)
2333 (when shrink
2334 (setq ibuffer-shrink-to-minimum-size shrink))
2472 '\\[ibuffer-visit-buffer-other-window]' - As above, but in another window.
2473 '\\[ibuffer-visit-buffer-other-window-noselect]' - As both above, but don't select
2474 the new window.
2551 (set (make-local-variable 'ibuffer-shrink-to-minimum-size)
2552 ibuffer-default-shrink-to-minimum-size)
2564 (set (make-local-variable 'ibuffer-restore-window-config-on-quit) nil)