/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / window.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May  3 2|
|00000040| 31 3a 35 35 3a 33 37 20 | 31 39 39 34 0a 3b 3b 3b |1:55:37 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 77 69 6e 64 6f | 77 2e 65 6c 0a 3b 3b 3b |sp/windo|w.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 32 2e 39 32 2e | 32 2e 0a 3b 3b 3b 20 62 |9.22.92.|2..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 2f 67 64 2f 67 6e 75 |(error "|`/gd/gnu|
|000001a0| 2f 65 6d 61 63 73 2f 31 | 39 2e 30 2f 6c 69 73 70 |/emacs/1|9.0/lisp|
|000001b0| 2f 77 69 6e 64 6f 77 2e | 65 6c 27 20 77 61 73 20 |/window.|el' was |
|000001c0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001d0| 63 73 20 31 39 22 29 29 | 0a 0a 28 64 65 66 61 6c |cs 19"))|..(defal|
|000001e0| 69 61 73 20 27 63 6f 75 | 6e 74 2d 77 69 6e 64 6f |ias 'cou|nt-windo|
|000001f0| 77 73 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ws #[(&o|ptional |
|00000200| 6d 69 6e 69 62 75 66 29 | 20 22 c0 19 c2 c3 5c 66 |minibuf)| "....\f|
|00000210| 5c 22 88 09 29 87 22 20 | 5b 30 20 63 6f 75 6e 74 |\"..)." |[0 count|
|00000220| 20 77 61 6c 6b 2d 77 69 | 6e 64 6f 77 73 20 23 5b | walk-wi|ndows #[|
|00000230| 28 77 29 20 22 08 c1 5c | 5c 89 10 87 22 20 5b 63 |(w) "..\|\..." [c|
|00000240| 6f 75 6e 74 20 31 5d 20 | 32 5d 20 6d 69 6e 69 62 |ount 1] |2] minib|
|00000250| 75 66 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 73 |uf] 3 "\|.Returns|
|00000260| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 76 | the num|ber of v|
|00000270| 69 73 69 62 6c 65 20 77 | 69 6e 64 6f 77 73 2e 0a |isible w|indows..|
|00000280| 4f 70 74 69 6f 6e 61 6c | 20 61 72 67 20 4e 4f 2d |Optional| arg NO-|
|00000290| 4d 49 4e 49 20 6e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |MINI non|-nil mea|
|000002a0| 6e 73 20 64 6f 6e 27 74 | 20 63 6f 75 6e 74 20 74 |ns don't| count t|
|000002b0| 68 65 20 6d 69 6e 69 62 | 75 66 66 65 72 0a 65 76 |he minib|uffer.ev|
|000002c0| 65 6e 20 69 66 20 69 74 | 20 69 73 20 61 63 74 69 |en if it| is acti|
|000002d0| 76 65 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ve."]).(|defalias|
|000002e0| 20 27 62 61 6c 61 6e 63 | 65 2d 77 69 6e 64 6f 77 | 'balanc|e-window|
|000002f0| 73 20 23 5b 6e 69 6c 20 | 22 c0 c1 89 89 1a 1b 1c |s #[nil |".......|
|00000300| 1d c6 8b 88 c7 20 0d a5 | 12 c8 c9 21 88 c8 ca cb |..... ..|...!....|
|00000310| 5c 22 2c 87 22 20 5b 2d | 31 20 6e 69 6c 20 73 69 |\",." [-|1 nil si|
|00000320| 7a 65 20 6e 65 77 73 69 | 7a 65 73 20 6c 65 76 65 |ze newsi|zes leve|
|00000330| 6c 73 20 63 6f 75 6e 74 | 20 28 28 62 79 74 65 2d |ls count| ((byte-|
|00000340| 63 6f 64 65 20 22 c0 c1 | 1a 1b c4 c5 c6 5c 22 88 |code "..|.....\".|
|00000350| c7 0b c8 5c 22 89 13 83 | 33 00 0b 40 5c 6e 54 56 |...\"...|3..@\nTV|
|00000360| 83 5c 22 00 0b 40 12 0e | 09 54 16 09 0b 40 0e 09 |.\"..@..|.T...@..|
|00000370| 42 0e 5c 6e 42 16 5c 6e | 0b 41 89 13 84 12 00 0e |B.\nB.\n|.A......|
|00000380| 09 54 16 09 2a c0 87 22 | 20 5b 6e 69 6c 20 2d 32 |.T..*.."| [nil -2|
|00000390| 20 70 72 65 76 2d 74 6f | 70 20 74 6f 70 73 20 77 | prev-to|p tops w|
|000003a0| 61 6c 6b 2d 77 69 6e 64 | 6f 77 73 20 23 5b 28 77 |alk-wind|ows #[(w|
|000003b0| 29 20 22 c0 09 21 41 40 | 5c 6e 42 89 12 87 22 20 |) "..!A@|\nB..." |
|000003c0| 5b 77 69 6e 64 6f 77 2d | 65 64 67 65 73 20 77 20 |[window-|edges w |
|000003d0| 74 6f 70 73 5d 20 32 5d | 20 6e 6f 6d 69 6e 69 20 |tops] 2]| nomini |
|000003e0| 73 6f 72 74 20 3c 20 63 | 6f 75 6e 74 20 6c 65 76 |sort < c|ount lev|
|000003f0| 65 6c 73 5d 20 34 29 29 | 20 66 72 61 6d 65 2d 68 |els] 4))| frame-h|
|00000400| 65 69 67 68 74 20 77 61 | 6c 6b 2d 77 69 6e 64 6f |eight wa|lk-windo|
|00000410| 77 73 20 23 5b 28 77 29 | 20 22 c0 09 21 88 c2 20 |ws #[(w)| "..!.. |
|00000420| 41 40 0b 9e 41 c4 20 c2 | 20 41 40 5c 5c 0b 9e 41 |A@..A. .| A@\\..A|
|00000430| 86 19 00 0d 1e 06 1e 07 | 09 0e 08 0e 06 0e 07 5a |........|.......Z|
|00000440| 5f 42 0e 09 42 89 16 09 | 2a 87 22 20 5b 73 65 6c |_B..B...|*." [sel|
|00000450| 65 63 74 2d 77 69 6e 64 | 6f 77 20 77 20 77 69 6e |ect-wind|ow w win|
|00000460| 64 6f 77 2d 65 64 67 65 | 73 20 6c 65 76 65 6c 73 |dow-edge|s levels|
|00000470| 20 77 69 6e 64 6f 77 2d | 68 65 69 67 68 74 20 63 | window-|height c|
|00000480| 6f 75 6e 74 20 6e 65 77 | 62 6f 74 20 6e 65 77 74 |ount new|bot newt|
|00000490| 6f 70 20 73 69 7a 65 20 | 6e 65 77 73 69 7a 65 73 |op size |newsizes|
|000004a0| 5d 20 34 5d 20 23 5b 28 | 77 29 20 22 c0 09 21 88 |] 4] #[(|w) "..!.|
|000004b0| 09 5c 6e 9e 41 1b c4 0b | c5 20 5a 21 29 87 22 20 |.\n.A...|. Z!)." |
|000004c0| 5b 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 77 |[select-|window w|
|000004d0| 20 6e 65 77 73 69 7a 65 | 73 20 6e 65 77 73 69 7a | newsize|s newsiz|
|000004e0| 65 20 65 6e 6c 61 72 67 | 65 2d 77 69 6e 64 6f 77 |e enlarg|e-window|
|000004f0| 20 77 69 6e 64 6f 77 2d | 68 65 69 67 68 74 5d 20 | window-|height] |
|00000500| 33 5d 20 6e 6f 6d 69 6e | 69 5d 20 34 20 22 5c 0a |3] nomin|i] 4 "\.|
|00000510| 4d 61 6b 65 73 20 61 6c | 6c 20 76 69 73 69 62 6c |Makes al|l visibl|
|00000520| 65 20 77 69 6e 64 6f 77 | 73 20 74 68 65 20 73 61 |e window|s the sa|
|00000530| 6d 65 20 68 65 69 67 68 | 74 20 28 61 70 70 72 6f |me heigh|t (appro|
|00000540| 78 69 6d 61 74 65 6c 79 | 29 2e 22 20 6e 69 6c 5d |ximately|)." nil]|
|00000550| 29 0a 28 64 65 66 76 61 | 72 20 73 70 6c 69 74 2d |).(defva|r split-|
|00000560| 77 69 6e 64 6f 77 2d 6b | 65 65 70 2d 70 6f 69 6e |window-k|eep-poin|
|00000570| 74 20 74 20 22 5c 0a 2a | 49 66 20 6e 6f 6e 2d 6e |t t "\.*|If non-n|
|00000580| 69 6c 2c 20 73 70 6c 69 | 74 20 77 69 6e 64 6f 77 |il, spli|t window|
|00000590| 73 20 6b 65 65 70 73 20 | 74 68 65 20 6f 72 69 67 |s keeps |the orig|
|000005a0| 69 6e 61 6c 20 70 6f 69 | 6e 74 20 69 6e 20 62 6f |inal poi|nt in bo|
|000005b0| 74 68 20 63 68 69 6c 64 | 72 65 6e 2e 0a 54 68 69 |th child|ren..Thi|
|000005c0| 73 20 69 73 20 6f 66 74 | 65 6e 20 6d 6f 72 65 20 |s is oft|en more |
|000005d0| 63 6f 6e 76 65 6e 69 65 | 6e 74 20 66 6f 72 20 65 |convenie|nt for e|
|000005e0| 64 69 74 69 6e 67 2e 0a | 49 66 20 6e 69 6c 2c 20 |diting..|If nil, |
|000005f0| 61 64 6a 75 73 74 20 70 | 6f 69 6e 74 20 69 6e 20 |adjust p|oint in |
|00000600| 65 61 63 68 20 6f 66 20 | 74 68 65 20 74 77 6f 20 |each of |the two |
|00000610| 77 69 6e 64 6f 77 73 20 | 74 6f 20 6d 69 6e 69 6d |windows |to minim|
|00000620| 69 7a 65 20 72 65 64 69 | 73 70 6c 61 79 2e 0a 54 |ize redi|splay..T|
|00000630| 68 69 73 20 69 73 20 63 | 6f 6e 76 65 6e 69 65 6e |his is c|onvenien|
|00000640| 74 20 6f 6e 20 73 6c 6f | 77 20 74 65 72 6d 69 6e |t on slo|w termin|
|00000650| 61 6c 73 2c 20 62 75 74 | 20 70 6f 69 6e 74 20 63 |als, but| point c|
|00000660| 61 6e 20 6d 6f 76 65 20 | 73 74 72 61 6e 67 65 6c |an move |strangel|
|00000670| 79 2e 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |y.").(de|falias '|
|00000680| 73 70 6c 69 74 2d 77 69 | 6e 64 6f 77 2d 76 65 72 |split-wi|ndow-ver|
|00000690| 74 69 63 61 6c 6c 79 20 | 23 5b 28 26 6f 70 74 69 |tically |#[(&opti|
|000006a0| 6f 6e 61 6c 20 61 72 67 | 29 20 22 c0 20 60 09 85 |onal arg|) ". `..|
|000006b0| 5c 6e 00 c2 09 21 c3 89 | 89 1c 1d 1e 06 1e 07 1e |\n...!..|........|
|000006c0| 08 1e 09 0e 07 83 2a 00 | 0e 07 ca 57 83 2a 00 cb |......*.|...W.*..|
|000006d0| 20 0e 07 5c 5c 16 07 cc | c3 0e 07 5c 22 16 06 0e | ..\\...|...\"...|
|000006e0| 0d 84 83 00 8a ce 20 71 | 88 cf 20 62 88 d0 cb 20 |...... q|.. b... |
|000006f0| 21 88 d1 0e 06 60 5c 22 | 88 60 d2 0e 06 21 56 83 |!....`\"|.`...!V.|
|00000700| 59 00 d3 0e 06 60 5c 22 | 88 d0 d4 21 88 60 15 29 |Y....`\"|...!.`.)|
|00000710| 0d 60 58 83 6d 00 d3 0e | 09 0d 53 5c 22 88 cf 0e |.`X.m...|..S\"...|
|00000720| 06 21 0e 08 57 83 83 00 | d3 0e 06 0e 08 5c 22 88 |.!..W...|.....\".|
|00000730| d5 0e 06 21 88 0e 06 2e | 06 87 22 20 5b 73 65 6c |...!....|.." [sel|
|00000740| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 61 72 67 |ected-wi|ndow arg|
|00000750| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00000760| 76 61 6c 75 65 20 6e 69 | 6c 20 73 77 69 74 63 68 |value ni|l switch|
|00000770| 20 62 6f 74 74 6f 6d 20 | 6e 65 77 2d 77 20 73 69 | bottom |new-w si|
|00000780| 7a 65 20 6f 6c 64 2d 70 | 6f 69 6e 74 20 6f 6c 64 |ze old-p|oint old|
|00000790| 2d 77 20 30 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |-w 0 win|dow-heig|
|000007a0| 68 74 20 73 70 6c 69 74 | 2d 77 69 6e 64 6f 77 20 |ht split|-window |
|000007b0| 73 70 6c 69 74 2d 77 69 | 6e 64 6f 77 2d 6b 65 65 |split-wi|ndow-kee|
|000007c0| 70 2d 70 6f 69 6e 74 20 | 77 69 6e 64 6f 77 2d 62 |p-point |window-b|
|000007d0| 75 66 66 65 72 20 77 69 | 6e 64 6f 77 2d 73 74 61 |uffer wi|ndow-sta|
|000007e0| 72 74 20 76 65 72 74 69 | 63 61 6c 2d 6d 6f 74 69 |rt verti|cal-moti|
|000007f0| 6f 6e 20 73 65 74 2d 77 | 69 6e 64 6f 77 2d 73 74 |on set-w|indow-st|
|00000800| 61 72 74 20 77 69 6e 64 | 6f 77 2d 70 6f 69 6e 74 |art wind|ow-point|
|00000810| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 70 6f 69 6e | set-win|dow-poin|
|00000820| 74 20 2d 31 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |t -1 sel|ect-wind|
|00000830| 6f 77 5d 20 36 20 22 5c | 0a 53 70 6c 69 74 20 63 |ow] 6 "\|.Split c|
|00000840| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 20 69 6e |urrent w|indow in|
|00000850| 74 6f 20 74 77 6f 20 77 | 69 6e 64 6f 77 73 2c 20 |to two w|indows, |
|00000860| 6f 6e 65 20 61 62 6f 76 | 65 20 74 68 65 20 6f 74 |one abov|e the ot|
|00000870| 68 65 72 2e 0a 54 68 65 | 20 75 70 70 65 72 6d 6f |her..The| uppermo|
|00000880| 73 74 20 77 69 6e 64 6f | 77 20 67 65 74 73 20 41 |st windo|w gets A|
|00000890| 52 47 20 6c 69 6e 65 73 | 20 61 6e 64 20 74 68 65 |RG lines| and the|
|000008a0| 20 6f 74 68 65 72 20 67 | 65 74 73 20 74 68 65 20 | other g|ets the |
|000008b0| 72 65 73 74 2e 0a 4e 65 | 67 61 74 69 76 65 20 61 |rest..Ne|gative a|
|000008c0| 72 67 20 6d 65 61 6e 73 | 20 73 65 6c 65 63 74 20 |rg means| select |
|000008d0| 74 68 65 20 73 69 7a 65 | 20 6f 66 20 74 68 65 20 |the size| of the |
|000008e0| 6c 6f 77 65 72 6d 6f 73 | 74 20 77 69 6e 64 6f 77 |lowermos|t window|
|000008f0| 20 69 6e 73 74 65 61 64 | 2e 0a 57 69 74 68 20 6e | instead|..With n|
|00000900| 6f 20 61 72 67 75 6d 65 | 6e 74 2c 20 73 70 6c 69 |o argume|nt, spli|
|00000910| 74 20 65 71 75 61 6c 6c | 79 20 6f 72 20 63 6c 6f |t equall|y or clo|
|00000920| 73 65 20 74 6f 20 69 74 | 2e 0a 42 6f 74 68 20 77 |se to it|..Both w|
|00000930| 69 6e 64 6f 77 73 20 64 | 69 73 70 6c 61 79 20 74 |indows d|isplay t|
|00000940| 68 65 20 73 61 6d 65 20 | 62 75 66 66 65 72 20 6e |he same |buffer n|
|00000950| 6f 77 20 63 75 72 72 65 | 6e 74 2e 0a 0a 49 66 20 |ow curre|nt...If |
|00000960| 74 68 65 20 76 61 72 69 | 61 62 6c 65 20 73 70 6c |the vari|able spl|
|00000970| 69 74 2d 77 69 6e 64 6f | 77 2d 6b 65 65 70 2d 70 |it-windo|w-keep-p|
|00000980| 6f 69 6e 74 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |oint is |non-nil,|
|00000990| 20 62 6f 74 68 20 6e 65 | 77 20 77 69 6e 64 6f 77 | both ne|w window|
|000009a0| 73 0a 77 69 6c 6c 20 67 | 65 74 20 74 68 65 20 73 |s.will g|et the s|
|000009b0| 61 6d 65 20 76 61 6c 75 | 65 20 6f 66 20 70 6f 69 |ame valu|e of poi|
|000009c0| 6e 74 20 61 73 20 74 68 | 65 20 63 75 72 72 65 6e |nt as th|e curren|
|000009d0| 74 20 77 69 6e 64 6f 77 | 2e 20 20 54 68 69 73 20 |t window|.  This |
|000009e0| 69 73 20 6f 66 74 65 6e | 0a 6d 6f 72 65 20 63 6f |is often|.more co|
|000009f0| 6e 76 65 6e 69 65 6e 74 | 20 66 6f 72 20 65 64 69 |nvenient| for edi|
|00000a00| 74 69 6e 67 2e 0a 0a 4f | 74 68 65 72 77 69 73 65 |ting...O|therwise|
|00000a10| 2c 20 77 65 20 63 68 6f | 73 65 20 77 69 6e 64 6f |, we cho|se windo|
|00000a20| 77 20 73 74 61 72 74 73 | 20 73 6f 20 61 73 20 74 |w starts| so as t|
|00000a30| 6f 20 6d 69 6e 69 6d 69 | 7a 65 20 74 68 65 20 61 |o minimi|ze the a|
|00000a40| 6d 6f 75 6e 74 20 6f 66 | 0a 72 65 64 69 73 70 6c |mount of|.redispl|
|00000a50| 61 79 3b 20 74 68 69 73 | 20 69 73 20 63 6f 6e 76 |ay; this| is conv|
|00000a60| 65 6e 69 65 6e 74 20 6f | 6e 20 73 6c 6f 77 20 74 |enient o|n slow t|
|00000a70| 65 72 6d 69 6e 61 6c 73 | 2e 20 20 54 68 65 20 6e |erminals|.  The n|
|00000a80| 65 77 20 73 65 6c 65 63 | 74 65 64 0a 77 69 6e 64 |ew selec|ted.wind|
|00000a90| 6f 77 20 69 73 20 74 68 | 65 20 6f 6e 65 20 74 68 |ow is th|e one th|
|00000aa0| 61 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 76 |at the c|urrent v|
|00000ab0| 61 6c 75 65 20 6f 66 20 | 70 6f 69 6e 74 20 61 70 |alue of |point ap|
|00000ac0| 70 65 61 72 73 20 69 6e | 2e 20 20 54 68 65 0a 76 |pears in|.  The.v|
|00000ad0| 61 6c 75 65 20 6f 66 20 | 70 6f 69 6e 74 20 63 61 |alue of |point ca|
|00000ae0| 6e 20 63 68 61 6e 67 65 | 20 69 66 20 74 68 65 20 |n change| if the |
|00000af0| 74 65 78 74 20 61 72 6f | 75 6e 64 20 70 6f 69 6e |text aro|und poin|
|00000b00| 74 20 69 73 20 68 69 64 | 64 65 6e 20 62 79 20 74 |t is hid|den by t|
|00000b10| 68 65 0a 6e 65 77 20 6d | 6f 64 65 20 6c 69 6e 65 |he.new m|ode line|
|00000b20| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00000b30| 61 73 20 27 73 70 6c 69 | 74 2d 77 69 6e 64 6f 77 |as 'spli|t-window|
|00000b40| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 6c 79 20 23 5b |-horizon|tally #[|
|00000b50| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00000b60| 22 c0 c1 5c 6e 85 09 00 | c3 5c 6e 21 c4 23 87 22 |"..\n...|.\n!.#."|
|00000b70| 20 5b 73 70 6c 69 74 2d | 77 69 6e 64 6f 77 20 6e | [split-|window n|
|00000b80| 69 6c 20 61 72 67 20 70 | 72 65 66 69 78 2d 6e 75 |il arg p|refix-nu|
|00000b90| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 74 5d 20 34 |meric-va|lue t] 4|
|00000ba0| 20 22 5c 0a 53 70 6c 69 | 74 20 63 75 72 72 65 6e | "\.Spli|t curren|
|00000bb0| 74 20 77 69 6e 64 6f 77 | 20 69 6e 74 6f 20 74 77 |t window| into tw|
|00000bc0| 6f 20 77 69 6e 64 6f 77 | 73 20 73 69 64 65 20 62 |o window|s side b|
|00000bd0| 79 20 73 69 64 65 2e 0a | 54 68 69 73 20 77 69 6e |y side..|This win|
|00000be0| 64 6f 77 20 62 65 63 6f | 6d 65 73 20 74 68 65 20 |dow beco|mes the |
|00000bf0| 6c 65 66 74 6d 6f 73 74 | 20 6f 66 20 74 68 65 20 |leftmost| of the |
|00000c00| 74 77 6f 2c 20 61 6e 64 | 20 67 65 74 73 0a 41 52 |two, and| gets.AR|
|00000c10| 47 20 63 6f 6c 75 6d 6e | 73 2e 20 20 4e 6f 20 61 |G column|s.  No a|
|00000c20| 72 67 20 6d 65 61 6e 73 | 20 73 70 6c 69 74 20 65 |rg means| split e|
|00000c30| 71 75 61 6c 6c 79 2e 22 | 20 22 50 22 5d 29 0a 28 |qually."| "P"]).(|
|00000c40| 64 65 66 61 6c 69 61 73 | 20 27 65 6e 6c 61 72 67 |defalias| 'enlarg|
|00000c50| 65 2d 77 69 6e 64 6f 77 | 2d 68 6f 72 69 7a 6f 6e |e-window|-horizon|
|00000c60| 74 61 6c 6c 79 20 23 5b | 28 61 72 67 29 20 22 c0 |tally #[|(arg) ".|
|00000c70| 09 c2 5c 22 87 22 20 5b | 65 6e 6c 61 72 67 65 2d |..\"." [|enlarge-|
|00000c80| 77 69 6e 64 6f 77 20 61 | 72 67 20 74 5d 20 33 20 |window a|rg t] 3 |
|00000c90| 22 5c 0a 4d 61 6b 65 20 | 63 75 72 72 65 6e 74 20 |"\.Make |current |
|00000ca0| 77 69 6e 64 6f 77 20 41 | 52 47 20 63 6f 6c 75 6d |window A|RG colum|
|00000cb0| 6e 73 20 77 69 64 65 72 | 2e 22 20 22 70 22 5d 29 |ns wider|." "p"])|
|00000cc0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 68 72 69 |.(defali|as 'shri|
|00000cd0| 6e 6b 2d 77 69 6e 64 6f | 77 2d 68 6f 72 69 7a 6f |nk-windo|w-horizo|
|00000ce0| 6e 74 61 6c 6c 79 20 23 | 5b 28 61 72 67 29 20 22 |ntally #|[(arg) "|
|00000cf0| c0 09 c2 5c 22 87 22 20 | 5b 73 68 72 69 6e 6b 2d |...\"." |[shrink-|
|00000d00| 77 69 6e 64 6f 77 20 61 | 72 67 20 74 5d 20 33 20 |window a|rg t] 3 |
|00000d10| 22 5c 0a 4d 61 6b 65 20 | 63 75 72 72 65 6e 74 20 |"\.Make |current |
|00000d20| 77 69 6e 64 6f 77 20 41 | 52 47 20 63 6f 6c 75 6d |window A|RG colum|
|00000d30| 6e 73 20 6e 61 72 72 6f | 77 65 72 2e 22 20 22 70 |ns narro|wer." "p|
|00000d40| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |"]).(def|alias 's|
|00000d50| 68 72 69 6e 6b 2d 77 69 | 6e 64 6f 77 2d 69 66 2d |hrink-wi|ndow-if-|
|00000d60| 6c 61 72 67 65 72 2d 74 | 68 61 6e 2d 62 75 66 66 |larger-t|han-buff|
|00000d70| 65 72 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |er #[(&o|ptional |
|00000d80| 77 69 6e 64 6f 77 29 20 | 22 8a c0 09 21 71 88 c2 |window) |"...!q..|
|00000d90| 20 0b 60 c4 6d 3f 85 15 | 00 64 53 66 c5 3d c4 c6 | .`.m?..|.dSf.=..|
|00000da0| c7 20 70 c8 c9 20 9e 41 | ca c2 20 21 1e 0b 1e 5c |. p.. .A|.. !...\|
|00000db0| 66 1e 0d 1e 0e 1e 0f 1e | 10 1e 11 1e 12 1e 13 1b |f.......|........|
|00000dc0| 1e 14 d5 d6 20 57 85 a7 | 00 d7 20 d8 20 55 85 a7 |.... W..|.. . U..|
|00000dd0| 00 d9 65 09 5c 22 85 a7 | 00 0e 5c 66 83 6e 00 da |..e.\"..|..\f.n..|
|00000de0| 0e 0b 38 ca 0e 5c 66 21 | 41 40 57 84 6e 00 0e 0b |..8..\f!|A@W.n...|
|00000df0| 41 40 db c9 20 9e 41 56 | 85 a7 00 dc 8e dd 09 86 |A@.. .AV|........|
|00000e00| 77 00 0e 14 21 88 65 62 | 88 d9 64 0e 11 83 87 00 |w...!.eb|..d.....|
|00000e10| d5 82 88 00 c4 5a 21 83 | 9a 00 c6 13 c5 63 88 0e |.....Z!.|.....c..|
|00000e20| 12 54 16 12 82 7c 00 0e | 12 c4 56 85 a6 00 de 0e |.T...|..|..V.....|
|00000e30| 12 53 21 29 2e 5c 66 87 | 22 20 5b 77 69 6e 64 6f |.S!).\f.|" [windo|
|00000e40| 77 2d 62 75 66 66 65 72 | 20 77 69 6e 64 6f 77 20 |w-buffer| window |
|00000e50| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00000e60| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00000e70| 20 30 20 31 30 20 6e 69 | 6c 20 62 75 66 66 65 72 | 0 10 ni|l buffer|
|00000e80| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6d 69 6e 69 |-modifie|d-p mini|
|00000e90| 62 75 66 66 65 72 20 66 | 72 61 6d 65 2d 70 61 72 |buffer f|rame-par|
|00000ea0| 61 6d 65 74 65 72 73 20 | 77 69 6e 64 6f 77 2d 65 |ameters |window-e|
|00000eb0| 64 67 65 73 20 65 64 67 | 65 73 20 6d 69 6e 69 20 |dges edg|es mini |
|00000ec0| 62 75 66 66 65 72 20 6d | 6f 64 69 66 69 65 64 20 |buffer m|odified |
|00000ed0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|00000ee0| 20 77 69 6e 64 6f 77 2d | 6d 69 6e 2d 68 65 69 67 | window-|min-heig|
|00000ef0| 68 74 20 69 67 6e 6f 72 | 65 2d 66 69 6e 61 6c 2d |ht ignor|e-final-|
|00000f00| 6e 65 77 6c 69 6e 65 20 | 6e 20 70 20 77 20 31 20 |newline |n p w 1 |
|00000f10| 63 6f 75 6e 74 2d 77 69 | 6e 64 6f 77 73 20 77 69 |count-wi|ndows wi|
|00000f20| 6e 64 6f 77 2d 77 69 64 | 74 68 20 73 63 72 65 65 |ndow-wid|th scree|
|00000f30| 6e 2d 77 69 64 74 68 20 | 70 6f 73 2d 76 69 73 69 |n-width |pos-visi|
|00000f40| 62 6c 65 2d 69 6e 2d 77 | 69 6e 64 6f 77 2d 70 20 |ble-in-w|indow-p |
|00000f50| 33 20 6d 65 6e 75 2d 62 | 61 72 2d 6c 69 6e 65 73 |3 menu-b|ar-lines|
|00000f60| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 65 60 | ((byte-|code "e`|
|00000f70| 7c 88 c0 09 21 88 5c 6e | 62 88 c3 5c 66 21 88 0d ||...!.\n|b..\f!..|
|00000f80| 71 87 22 20 5b 73 65 74 | 2d 62 75 66 66 65 72 2d |q." [set|-buffer-|
|00000f90| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6d 6f 64 69 66 |modified|-p modif|
|00000fa0| 69 65 64 20 70 20 73 65 | 6c 65 63 74 2d 77 69 6e |ied p se|lect-win|
|00000fb0| 64 6f 77 20 77 20 62 75 | 66 66 65 72 5d 20 32 29 |dow w bu|ffer] 2)|
|00000fc0| 29 20 73 65 6c 65 63 74 | 2d 77 69 6e 64 6f 77 20 |) select|-window |
|00000fd0| 73 68 72 69 6e 6b 2d 77 | 69 6e 64 6f 77 5d 20 31 |shrink-w|indow] 1|
|00000fe0| 32 20 22 5c 0a 53 68 72 | 69 6e 6b 20 74 68 65 20 |2 "\.Shr|ink the |
|00000ff0| 57 49 4e 44 4f 57 20 74 | 6f 20 62 65 20 61 73 20 |WINDOW t|o be as |
|00001000| 73 6d 61 6c 6c 20 61 73 | 20 70 6f 73 73 69 62 6c |small as| possibl|
|00001010| 65 20 74 6f 20 64 69 73 | 70 6c 61 79 20 69 74 73 |e to dis|play its|
|00001020| 20 63 6f 6e 74 65 6e 74 | 73 2e 0a 44 6f 20 6e 6f | content|s..Do no|
|00001030| 74 68 69 6e 67 20 69 66 | 20 74 68 65 20 62 75 66 |thing if| the buf|
|00001040| 66 65 72 20 63 6f 6e 74 | 61 69 6e 73 20 6d 6f 72 |fer cont|ains mor|
|00001050| 65 20 6c 69 6e 65 73 20 | 74 68 61 6e 20 74 68 65 |e lines |than the|
|00001060| 20 70 72 65 73 65 6e 74 | 20 77 69 6e 64 6f 77 20 | present| window |
|00001070| 68 65 69 67 68 74 2c 0a | 6f 72 20 69 66 20 73 6f |height,.|or if so|
|00001080| 6d 65 20 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |me of th|e window|
|00001090| 27 73 20 63 6f 6e 74 65 | 6e 74 73 20 61 72 65 20 |'s conte|nts are |
|000010a0| 73 63 72 6f 6c 6c 65 64 | 20 6f 75 74 20 6f 66 20 |scrolled| out of |
|000010b0| 76 69 65 77 2c 0a 6f 72 | 20 69 66 20 74 68 65 20 |view,.or| if the |
|000010c0| 77 69 6e 64 6f 77 20 69 | 73 20 6e 6f 74 20 74 68 |window i|s not th|
|000010d0| 65 20 66 75 6c 6c 20 77 | 69 64 74 68 20 6f 66 20 |e full w|idth of |
|000010e0| 74 68 65 20 66 72 61 6d | 65 2c 0a 6f 72 20 69 66 |the fram|e,.or if|
|000010f0| 20 74 68 65 20 77 69 6e | 64 6f 77 20 69 73 20 74 | the win|dow is t|
|00001100| 68 65 20 6f 6e 6c 79 20 | 77 69 6e 64 6f 77 20 6f |he only |window o|
|00001110| 66 20 69 74 73 20 66 72 | 61 6d 65 2e 22 20 6e 69 |f its fr|ame." ni|
|00001120| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|00001130| c0 09 c2 c3 23 88 c0 09 | c4 c5 23 88 c0 09 c6 c7 |....#...|..#.....|
|00001140| 23 88 c0 09 c8 c9 23 88 | c0 09 ca cb 23 88 c0 09 |#.....#.|....#...|
|00001150| cc cd 23 87 22 20 5b 64 | 65 66 69 6e 65 2d 6b 65 |..#." [d|efine-ke|
|00001160| 79 20 63 74 6c 2d 78 2d | 6d 61 70 20 22 32 22 20 |y ctl-x-|map "2" |
|00001170| 73 70 6c 69 74 2d 77 69 | 6e 64 6f 77 2d 76 65 72 |split-wi|ndow-ver|
|00001180| 74 69 63 61 6c 6c 79 20 | 22 33 22 20 73 70 6c 69 |tically |"3" spli|
|00001190| 74 2d 77 69 6e 64 6f 77 | 2d 68 6f 72 69 7a 6f 6e |t-window|-horizon|
|000011a0| 74 61 6c 6c 79 20 22 7d | 22 20 65 6e 6c 61 72 67 |tally "}|" enlarg|
|000011b0| 65 2d 77 69 6e 64 6f 77 | 2d 68 6f 72 69 7a 6f 6e |e-window|-horizon|
|000011c0| 74 61 6c 6c 79 20 22 7b | 22 20 73 68 72 69 6e 6b |tally "{|" shrink|
|000011d0| 2d 77 69 6e 64 6f 77 2d | 68 6f 72 69 7a 6f 6e 74 |-window-|horizont|
|000011e0| 61 6c 6c 79 20 22 2d 22 | 20 73 68 72 69 6e 6b 2d |ally "-"| shrink-|
|000011f0| 77 69 6e 64 6f 77 2d 69 | 66 2d 6c 61 72 67 65 72 |window-i|f-larger|
|00001200| 2d 74 68 61 6e 2d 62 75 | 66 66 65 72 20 22 2b 22 |-than-bu|ffer "+"|
|00001210| 20 62 61 6c 61 6e 63 65 | 2d 77 69 6e 64 6f 77 73 | balance|-windows|
|00001220| 5d 20 34 29 0a          |                         |] 4).   |        |
+--------+-------------------------+-------------------------+--------+--------+