;;; compiled by rms@wookumz.gnu.ai.mit.edu on Tue Jun  1 01:35:46 1993
;;; from file /gd/gnu/emacs/19.0/lisp/window.el
;;; emacs version 19.10.3.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(defalias 'count-windows #[(&optional minibuf) "ÀÂÃ\"ˆ	)‡" [0 count walk-windows #[(w) "Á\\‰‡" [count 1] 2] minibuf] 3 "\
Returns the number of visible windows.
Optional arg NO-MINI non-nil means don't count the minibuffer
even if it is active."])
(defalias 'balance-windows #[nil "ÀÂÃÄ\"ˆÅÆ 	\"ÂÈÄ\"*‡" [0 count walk-windows #[(w) "Á\\‰‡" [count 1] 2] nomini / frame-height size #[(w) "À	!ˆÂÄ Z!‡" [select-window w enlarge-window size window-height] 3]] 3 "\
Makes all visible windows the same size (approximately)." nil])
(defvar split-window-keep-point t "\
*If non-nil, split windows so that both windows keep the original
value of point.  This is often more convenient for editing.
If nil, split windows to minimize redisplay.  This is convenient on
slow terminals, but point may be moved strangely to accommodate the
redisplay.")
(defalias 'split-window-vertically #[(&optional arg) "À `Á‰‰ÇÁ… É!\"\n„c ŠË qˆÌ bˆÍÎ !ˆÏ`\"ˆ`Ð!Vƒ> Ñ`\"ˆÍÒ!ˆ`)`XƒR ÑS\"ˆÌ!Wƒc Ñ\"ˆÓ!ˆ-‡" [selected-window nil switch bottom new-w old-point old-w split-window arg prefix-numeric-value split-window-keep-point window-buffer window-start vertical-motion window-height set-window-start window-point set-window-point -1 select-window] 5 "\
Split current window into two windows, one above the other.
The uppermost window gets ARG lines and the other gets the rest.
With no argument, split equally or close to it.
Both windows display the same buffer now current.

If the variable split-window-keep-point is non-nil, both new windows
will get the same value of point as the current window.  This is often
more convenient for editing.

Otherwise, we chose window starts so as to minimize the amount of
redisplay; this is convenient on slow terminals.  The new selected
window is the one that the current value of point appears in.  The
value of point can change if the text around point is hidden by the
new mode line." "P"])
(defalias 'split-window-horizontally #[(&optional arg) "ÀÁ\n…	 Ã\n!Ä#‡" [split-window nil arg prefix-numeric-value t] 4 "\
Split current window into two windows side by side.
This window becomes the leftmost of the two, and gets
ARG columns.  No arg means split equally." "P"])
(defalias 'enlarge-window-horizontally #[(arg) "À	Â\"‡" [enlarge-window arg t] 3 "\
Make current window ARG columns wider." "p"])
(defalias 'shrink-window-horizontally #[(arg) "À	Â\"‡" [shrink-window arg t] 3 "\
Make current window ARG columns narrower." "p"])
(defalias 'shrink-window-if-larger-than-buffer #[(&optional window) "ŠÀ	!qˆÂ `Ä‰ÅÆ p	\nÎe!…S ÏŽÐ	†. !ˆebˆÎd!ƒF ÅÑcˆT‚3 ÄV…R ÒS!).	‡" [window-buffer window selected-window buffer-file-name 0 nil buffer-modified-p buffer modified buffer-read-only window-min-height n p w pos-visible-in-window-p ((byte-code "Àe`\"ˆÁ\n!ˆbˆÄ!ˆq‡" [delete-region set-buffer-modified-p modified p select-window w buffer] 3)) select-window 10 shrink-window] 8 "\
Shrink the WINDOW to be as small as possible to display its contents.
Do nothing if the buffer contains more lines than the present window height,
or if some of the window's contents are scrolled out of view." nil])
(byte-code "À	ÂÃ#ˆÀ	ÄÅ#ˆÀ	ÆÇ#ˆÀ	ÈÉ#ˆÀ	ÊË#ˆÀ	ÌÍ#‡" [define-key ctl-x-map "2" split-window-vertically "3" split-window-horizontally "}" enlarge-window-horizontally "{" shrink-window-horizontally "-" shrink-window-if-larger-than-buffer "+" balance-windows] 4)