/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / window.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 73 70 6c 69 74 2d 77 69 |.(defun |split-wi|
|00000010| 6e 64 6f 77 2d 76 65 72 | 74 69 63 61 6c 6c 79 20 |ndow-ver|tically |
|00000020| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00000030| 22 5c 0a 53 70 6c 69 74 | 20 63 75 72 72 65 6e 74 |"\.Split| current|
|00000040| 20 77 69 6e 64 6f 77 20 | 69 6e 74 6f 20 74 77 6f | window |into two|
|00000050| 20 77 69 6e 64 6f 77 73 | 2c 20 6f 6e 65 20 61 62 | windows|, one ab|
|00000060| 6f 76 65 20 74 68 65 20 | 6f 74 68 65 72 2e 0a 54 |ove the |other..T|
|00000070| 68 69 73 20 77 69 6e 64 | 6f 77 20 62 65 63 6f 6d |his wind|ow becom|
|00000080| 65 73 20 74 68 65 20 75 | 70 70 65 72 6d 6f 73 74 |es the u|ppermost|
|00000090| 20 6f 66 20 74 68 65 20 | 74 77 6f 2c 20 61 6e 64 | of the |two, and|
|000000a0| 20 67 65 74 73 0a 41 52 | 47 20 6c 69 6e 65 73 2e | gets.AR|G lines.|
|000000b0| 20 20 4e 6f 20 61 72 67 | 20 6d 65 61 6e 73 20 73 |  No arg| means s|
|000000c0| 70 6c 69 74 20 65 71 75 | 61 6c 6c 79 2e 22 20 28 |plit equ|ally." (|
|000000d0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 22 50 22 29 |interact|ive "P")|
|000000e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c2 | (byte-c|ode "...|
|000000f0| c0 09 85 0b 00 c3 09 21 | 5c 22 87 22 20 5b 6e 69 |.......!|\"." [ni|
|00000100| 6c 20 61 72 67 20 73 70 | 6c 69 74 2d 77 69 6e 64 |l arg sp|lit-wind|
|00000110| 6f 77 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |ow prefi|x-numeri|
|00000120| 63 2d 76 61 6c 75 65 5d | 20 34 29 29 0a 0a 28 64 |c-value]| 4))..(d|
|00000130| 65 66 75 6e 20 73 70 6c | 69 74 2d 77 69 6e 64 6f |efun spl|it-windo|
|00000140| 77 2d 68 6f 72 69 7a 6f | 6e 74 61 6c 6c 79 20 28 |w-horizo|ntally (|
|00000150| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00000160| 5c 0a 53 70 6c 69 74 20 | 63 75 72 72 65 6e 74 20 |\.Split |current |
|00000170| 77 69 6e 64 6f 77 20 69 | 6e 74 6f 20 74 77 6f 20 |window i|nto two |
|00000180| 77 69 6e 64 6f 77 73 20 | 73 69 64 65 20 62 79 20 |windows |side by |
|00000190| 73 69 64 65 2e 0a 54 68 | 69 73 20 77 69 6e 64 6f |side..Th|is windo|
|000001a0| 77 20 62 65 63 6f 6d 65 | 73 20 74 68 65 20 6c 65 |w become|s the le|
|000001b0| 66 74 6d 6f 73 74 20 6f | 66 20 74 68 65 20 74 77 |ftmost o|f the tw|
|000001c0| 6f 2c 20 61 6e 64 20 67 | 65 74 73 0a 41 52 47 20 |o, and g|ets.ARG |
|000001d0| 63 6f 6c 75 6d 6e 73 2e | 20 20 4e 6f 20 61 72 67 |columns.|  No arg|
|000001e0| 20 6d 65 61 6e 73 20 73 | 70 6c 69 74 20 65 71 75 | means s|plit equ|
|000001f0| 61 6c 6c 79 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |ally." (|interact|
|00000200| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00000210| 6f 64 65 20 22 c0 88 c3 | c0 09 85 0b 00 c4 09 21 |ode "...|.......!|
|00000220| c2 23 87 22 20 5b 6e 69 | 6c 20 61 72 67 20 74 20 |.#." [ni|l arg t |
|00000230| 73 70 6c 69 74 2d 77 69 | 6e 64 6f 77 20 70 72 65 |split-wi|ndow pre|
|00000240| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|00000250| 65 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 65 |e] 5))..|(defun e|
|00000260| 6e 6c 61 72 67 65 2d 77 | 69 6e 64 6f 77 2d 68 6f |nlarge-w|indow-ho|
|00000270| 72 69 7a 6f 6e 74 61 6c | 6c 79 20 28 61 72 67 29 |rizontal|ly (arg)|
|00000280| 20 22 5c 0a 4d 61 6b 65 | 20 63 75 72 72 65 6e 74 | "\.Make| current|
|00000290| 20 77 69 6e 64 6f 77 20 | 41 52 47 20 63 6f 6c 75 | window |ARG colu|
|000002a0| 6d 6e 73 20 77 69 64 65 | 72 2e 22 20 28 69 6e 74 |mns wide|r." (int|
|000002b0| 65 72 61 63 74 69 76 65 | 20 22 70 22 29 20 28 62 |eractive| "p") (b|
|000002c0| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 c3 08 c1 5c |yte-code| ".....\|
|000002d0| 22 87 22 20 5b 61 72 67 | 20 74 20 6e 69 6c 20 65 |"." [arg| t nil e|
|000002e0| 6e 6c 61 72 67 65 2d 77 | 69 6e 64 6f 77 5d 20 33 |nlarge-w|indow] 3|
|000002f0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 73 68 72 69 6e |))..(def|un shrin|
|00000300| 6b 2d 77 69 6e 64 6f 77 | 2d 68 6f 72 69 7a 6f 6e |k-window|-horizon|
|00000310| 74 61 6c 6c 79 20 28 61 | 72 67 29 20 22 5c 0a 4d |tally (a|rg) "\.M|
|00000320| 61 6b 65 20 63 75 72 72 | 65 6e 74 20 77 69 6e 64 |ake curr|ent wind|
|00000330| 6f 77 20 41 52 47 20 63 | 6f 6c 75 6d 6e 73 20 6e |ow ARG c|olumns n|
|00000340| 61 72 72 6f 77 65 72 2e | 22 20 28 69 6e 74 65 72 |arrower.|" (inter|
|00000350| 61 63 74 69 76 65 20 22 | 70 22 29 20 28 62 79 74 |active "|p") (byt|
|00000360| 65 2d 63 6f 64 65 20 22 | c2 88 c3 08 c1 5c 22 87 |e-code "|.....\".|
|00000370| 22 20 5b 61 72 67 20 74 | 20 6e 69 6c 20 73 68 72 |" [arg t| nil shr|
|00000380| 69 6e 6b 2d 77 69 6e 64 | 6f 77 5d 20 33 29 29 0a |ink-wind|ow] 3)).|
|00000390| 0a 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 74 6c |.(define|-key ctl|
|000003a0| 2d 78 2d 6d 61 70 20 22 | 32 22 20 28 71 75 6f 74 |-x-map "|2" (quot|
|000003b0| 65 20 73 70 6c 69 74 2d | 77 69 6e 64 6f 77 2d 76 |e split-|window-v|
|000003c0| 65 72 74 69 63 61 6c 6c | 79 29 29 0a 0a 28 64 65 |erticall|y))..(de|
|000003d0| 66 69 6e 65 2d 6b 65 79 | 20 63 74 6c 2d 78 2d 6d |fine-key| ctl-x-m|
|000003e0| 61 70 20 22 35 22 20 28 | 71 75 6f 74 65 20 73 70 |ap "5" (|quote sp|
|000003f0| 6c 69 74 2d 77 69 6e 64 | 6f 77 2d 68 6f 72 69 7a |lit-wind|ow-horiz|
|00000400| 6f 6e 74 61 6c 6c 79 29 | 29 0a 0a 28 64 65 66 69 |ontally)|)..(defi|
|00000410| 6e 65 2d 6b 65 79 20 63 | 74 6c 2d 78 2d 6d 61 70 |ne-key c|tl-x-map|
|00000420| 20 22 7d 22 20 28 71 75 | 6f 74 65 20 65 6e 6c 61 | "}" (qu|ote enla|
|00000430| 72 67 65 2d 77 69 6e 64 | 6f 77 2d 68 6f 72 69 7a |rge-wind|ow-horiz|
|00000440| 6f 6e 74 61 6c 6c 79 29 | 29 0a 0a 28 64 65 66 69 |ontally)|)..(defi|
|00000450| 6e 65 2d 6b 65 79 20 63 | 74 6c 2d 78 2d 6d 61 70 |ne-key c|tl-x-map|
|00000460| 20 22 7b 22 20 28 71 75 | 6f 74 65 20 73 68 72 69 | "{" (qu|ote shri|
|00000470| 6e 6b 2d 77 69 6e 64 6f | 77 2d 68 6f 72 69 7a 6f |nk-windo|w-horizo|
|00000480| 6e 74 61 6c 6c 79 29 29 | 0a                      |ntally))|.       |
+--------+-------------------------+-------------------------+--------+--------+