;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Sep 11 21:11:31 1994 ;;; from file /home/fsf/rms/e19/lisp/window.el ;;; emacs version 19.26.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/window.el' was compiled for Emacs 19")) (defalias 'count-windows #[(&optional minibuf) "ÀÂÃ\f\"ˆ )‡" [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 "ÀÁ‰‰Æ‹ˆÇ ¥ÈÉ!ˆÈÊË\",‡" [-1 nil size newsizes levels count ((byte-code "ÀÁÄÅÆ\"ˆÇ È\"‰ƒ3 @\nTVƒ\" @ T @ B\nB\n A‰„ T *À‡" [nil -2 prev-top tops walk-windows #[(w) "À !A@\nB‰‡" [window-edges w tops] 2] nomini sort < count levels] 4)) frame-height walk-windows #[(w) "À !ˆÂ A@ žAÄ Â A@\\ žA†  Z_B B‰ *‡" [select-window w window-edges levels window-height count newbot newtop size newsizes] 4] #[(w) "À !ˆ \nžAÄ Å Z!)‡" [select-window w newsizes newsize enlarge-window window-height] 3] nomini] 4 "\ Makes all visible windows the same height (approximately)." nil]) (defvar split-window-keep-point t "\ *If non-nil, split windows keeps the original point in both children. This is often more convenient for editing. If nil, adjust point in each of the two windows to minimize redisplay. This is convenient on slow terminals, but point can move strangely.") (defalias 'split-window-vertically #[(&optional arg) "À ` …\n !ɉ ƒ*ÊWƒ*Ë \\ÌÃ\" „ƒŠÎ qˆÏ bˆÐË !ˆÑ`\"ˆ`Ò!VƒYÓ`\"ˆÐÔ!ˆ`) `XƒmÓ S\"ˆÏ!WƒƒÓ\"ˆÕ!ˆ.‡" [selected-window arg prefix-numeric-value nil switch bottom new-w size old-point old-w 0 window-height split-window split-window-keep-point window-buffer window-start vertical-motion set-window-start window-point set-window-point -1 select-window] 6 "\ Split current window into two windows, one above the other. The uppermost window gets ARG lines and the other gets the rest. Negative arg means select the size of the lowermost window instead. 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ÃWƒÄ \n\\ÅÆ\nÇ#)‡" [arg prefix-numeric-value size 0 window-width split-window nil t] 5 "\ Split current window into two windows side by side. This window becomes the leftmost of the two, and gets ARG columns. Negative arg means select the size of the rightmost window instead. 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ˆÂ `Äm?…dSfÅ=ÆÇ pÈÉ žAÊ ! \f ÔÕ W…ªÖ × U…ªØe \"…ª\fƒkÙ 8Ê\f!A@W„k A@ÚÉ žAV…ªÛŽÜ †t!ˆebˆØdƒ„Ô‚…ÄZ!ƒ—ÆÅcˆT‚yÄV…©ÝSÞ Z^!). ‡" [window-buffer window selected-window buffer-file-name 0 10 nil buffer-modified-p minibuffer frame-parameters window-edges edges mini buffer modified buffer-read-only ignore-final-newline n p w 1 count-windows window-width screen-width pos-visible-in-window-p 3 menu-bar-lines ((byte-code "e`|ˆÀ !ˆ\nbˆÃ\f!ˆ q‡" [set-buffer-modified-p modified p select-window w buffer] 2)) select-window shrink-window window-height window-min-height] 11 "\ Shrink the WINDOW to be as small as possible to display its contents. Do not shrink to less than `window-min-height' lines. 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, or if the window is not the full width of the frame, or if the window is the only window of its frame." 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)