;ELC ;;; compiled by jwz@thalidomide on Thu Apr 21 01:06:17 1994 ;;; from file /th/jwz/emacs19/lisp/prim/window.el ;;; emacs version 19.10 Lucid (beta16). ;;; bytecomp version 2.23; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (fset '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."]) (fset 'balance-windows #[nil "ÀÁ‰‰Æ‹ˆÇ ¥ÈÉ!ˆÈÊË\",‡" [-1 nil size newsizes levels count ((byte-code "ÀÁÄÅÆ\"ˆÇ È\"‰«Ÿ @\nTV«ˆ @ T @ B\nB\n A‰¬a T *À‡" [nil -2 prev-top tops walk-windows #[(w) "À !A@\nB‰‡" [window-edges w tops] 2] nomini sort < count levels] 4)) screen-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 nil "\ *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.") (fset 'split-window-vertically #[(&optional arg) "À `Á‰‰ÇÁ­„É!\"\n¬ÂŠË qˆÌ bˆÍÎ !ˆÏ `\"ˆ`Ð !V«…Ñ `\"ˆÍÒ!ˆ`) `X«‡Ñ S\"ˆÌ ! W«‰Ñ \"ˆÓ !ˆ -‡" [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. Programs should probably use split-window instead of this." "P"]) (fset '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"]) (fset 'enlarge-window-horizontally #[(arg) "À Â\"‡" [enlarge-window arg t] 3 "\ Make current window ARG columns wider." "p"]) (fset 'shrink-window-horizontally #[(arg) "À Â\"‡" [shrink-window arg t] 3 "\ Make current window ARG columns narrower." "p"]) (fset 'shrink-window-if-larger-than-buffer #[(&optional window) "ŠÀ !qˆÂ `Äm?­…dSfÅ=ÄÆÇ p \n   ÐÑ W­¹Òe \"­³ÓŽÔ ®‚!ˆebˆÒd «ƒÐªÄZ!«ŒÆÅcˆ T ªf ÄV­…Õ S!).\n‡" [window-buffer window selected-window buffer-file-name 0 10 nil buffer-modified-p buffer modified buffer-read-only window-min-height ignore-final-newline n p w 1 count-windows pos-visible-in-window-p ((byte-code "e`|ˆÀ !ˆ\nbˆÃ !ˆ q‡" [set-buffer-modified-p modified p select-window w buffer] 2)) select-window shrink-window] 9 "\ 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, or if the window is the only window of its frame." nil]) (fset 'backward-other-window #[(arg &optional all-screens invisible-too) "À [\n #‡" [other-window arg all-screens invisible-too] 4 "\ Select the ARG'th different window on this screen, going backwards. This is just like calling `other-window' with the arg negated." "p"])