home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / gnu / src / amiga / emacs-19.28-src.lha / emacs-19.28 / site-lisp / vm-window.elc < prev    next >
Emacs Compiled Lisp  |  1994-12-29  |  9.0 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Emacs Compiled Lisp (other/emacsCompiledLisp) magic Unsupported
100% file Emacs/XEmacs v19 byte-compiled Lisp data default
99% file data default
55% TrID Emacs/XEmacs byte-compiled Lisp (generic) default
44% TrID Summation Document Image Information Load File default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|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 64 67 69 6c 62 65 72 |piled by| dgilber|
|00000020| 74 40 67 61 6d 69 67 61 | 2e 67 75 65 6c 70 68 6e |t@gamiga|.guelphn|
|00000030| 65 74 2e 64 77 65 6f 6d | 65 72 2e 6f 72 67 20 6f |et.dweom|er.org o|
|00000040| 6e 20 54 68 75 20 44 65 | 63 20 32 39 20 31 30 3a |n Thu De|c 29 10:|
|00000050| 31 38 3a 32 39 20 31 39 | 39 34 0a 3b 3b 3b 20 66 |18:29 19|94.;;; f|
|00000060| 72 6f 6d 20 66 69 6c 65 | 20 66 69 76 65 3a 43 57 |rom file| five:CW|
|00000070| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|00000080| 76 6d 2f 76 6d 2d 77 69 | 6e 64 6f 77 2e 65 6c 0a |vm/vm-wi|ndow.el.|
|00000090| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000a0| 6e 20 31 39 2e 32 35 2e | 31 2e 0a 3b 3b 3b 20 62 |n 19.25.|1..;;; b|
|000000b0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000c0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000d0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000e0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000f0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000100| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000110| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000120| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000130| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000140| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000150| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000160| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000170| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |).. |(string-|
|00000180| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000190| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))). |
|000001a0| 28 65 72 72 6f 72 20 22 | 60 66 69 76 65 3a 43 57 |(error "|`five:CW|
|000001b0| 6f 72 6b 2f 65 6d 61 63 | 73 2d 31 39 2e 32 35 2f |ork/emac|s-19.25/|
|000001c0| 76 6d 2f 76 6d 2d 77 69 | 6e 64 6f 77 2e 65 6c 27 |vm/vm-wi|ndow.el'|
|000001d0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001e0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 5c 22 |byte-cod|e "...\"|
|00000200| 88 c0 c3 c4 5c 22 88 c0 | c5 c6 5c 22 88 c0 c7 c8 |....\"..|..\"....|
|00000210| 5c 22 88 c0 c9 ca 5c 22 | 88 c0 cb cc 5c 22 88 c0 |\"....\"|....\"..|
|00000220| cd ce 5c 22 87 22 20 5b | 64 65 66 61 6c 69 61 73 |..\"." [|defalias|
|00000230| 20 76 6d 2d 64 69 73 70 | 6c 61 79 20 23 5b 28 62 | vm-disp|lay #[(b|
|00000240| 75 66 66 65 72 20 64 69 | 73 70 6c 61 79 20 63 6f |uffer di|splay co|
|00000250| 6d 6d 61 6e 64 73 20 63 | 6f 6e 66 69 67 73 29 20 |mmands c|onfigs) |
|00000260| 22 70 18 c1 8e 5c 6e 83 | 41 00 0b 83 41 00 c4 5c |"p...\n.|A...A..\|
|00000270| 6e 21 84 41 00 0d 83 24 | 00 c6 c5 21 88 c7 5c 6e |n!.A...$|...!..\n|
|00000280| 21 88 c8 c9 21 82 82 00 | 0e 5c 6e 0e 0b 3e 85 37 |!...!...|.\n..>.7|
|00000290| 00 cc cd 0e 0e 5c 22 85 | 37 00 c4 5c 6e 21 3f 85 |.....\".|7..\n!?.|
|000002a0| 82 00 cf 5c 6e 21 82 82 | 00 5c 6e 83 75 00 0b 84 |...\n!..|.\n.u...|
|000002b0| 75 00 c4 5c 6e 21 83 75 | 00 0e 10 83 5e 00 c6 d0 |u..\n!.u|....^...|
|000002c0| 21 88 c8 c9 21 82 82 00 | 0e 5c 6e 0e 0b 3e 85 6b |!...!...|.\n..>.k|
|000002d0| 00 cc cd 0e 0e 5c 22 3f | 85 82 00 d1 5c 6e 21 82 |.....\"?|....\n!.|
|000002e0| 82 00 0e 5c 6e 0e 0b 3e | 85 82 00 cc cd 0e 0e 5c |...\n..>|.......\|
|000002f0| 22 2a 87 22 20 5b 76 6d | 2d 73 62 65 2d 62 75 66 |"*." [vm|-sbe-buf|
|00000300| 66 65 72 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |fer ((by|te-code |
|00000310| 22 08 70 3d 84 0f 00 c1 | 08 21 83 0f 00 08 71 88 |".p=....|.!....q.|
|00000320| c1 87 22 20 5b 76 6d 2d | 73 62 65 2d 62 75 66 66 |.." [vm-|sbe-buff|
|00000330| 65 72 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 5d 20 |er buffe|r-name] |
|00000340| 32 29 29 20 62 75 66 66 | 65 72 20 64 69 73 70 6c |2)) buff|er displ|
|00000350| 61 79 20 76 6d 2d 67 65 | 74 2d 62 75 66 66 65 72 |ay vm-ge|t-buffer|
|00000360| 2d 77 69 6e 64 6f 77 20 | 76 6d 2d 64 69 73 70 6c |-window |vm-displ|
|00000370| 61 79 2d 62 75 66 66 65 | 72 2d 68 6f 6f 6b 20 72 |ay-buffe|r-hook r|
|00000380| 75 6e 2d 68 6f 6f 6b 73 | 20 73 77 69 74 63 68 2d |un-hooks| switch-|
|00000390| 74 6f 2d 62 75 66 66 65 | 72 20 76 6d 2d 72 65 63 |to-buffe|r vm-rec|
|000003a0| 6f 72 64 2d 63 75 72 72 | 65 6e 74 2d 77 69 6e 64 |ord-curr|ent-wind|
|000003b0| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|000003c0| 20 6e 69 6c 20 74 68 69 | 73 2d 63 6f 6d 6d 61 6e | nil thi|s-comman|
|000003d0| 64 20 63 6f 6d 6d 61 6e | 64 73 20 61 70 70 6c 79 |d comman|ds apply|
|000003e0| 20 76 6d 2d 73 65 74 2d | 77 69 6e 64 6f 77 2d 63 | vm-set-|window-c|
|000003f0| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 20 63 6f 6e |onfigura|tion con|
|00000400| 66 69 67 73 20 76 6d 2d | 64 69 73 70 6c 61 79 2d |figs vm-|display-|
|00000410| 62 75 66 66 65 72 20 76 | 6d 2d 75 6e 64 69 73 70 |buffer v|m-undisp|
|00000420| 6c 61 79 2d 62 75 66 66 | 65 72 2d 68 6f 6f 6b 20 |lay-buff|er-hook |
|00000430| 76 6d 2d 75 6e 64 69 73 | 70 6c 61 79 2d 62 75 66 |vm-undis|play-buf|
|00000440| 66 65 72 5d 20 33 5d 20 | 76 6d 2d 64 69 73 70 6c |fer] 3] |vm-displ|
|00000450| 61 79 2d 62 75 66 66 65 | 72 20 23 5b 28 62 75 66 |ay-buffe|r #[(buf|
|00000460| 66 65 72 29 20 22 08 c1 | 3d 5c 6e 1b 1c c5 c6 21 |fer) "..|=\n....!|
|00000470| 88 0b 84 1e 00 08 c1 3d | 83 27 00 c7 c8 c9 20 21 |.......=|.'.... !|
|00000480| 21 39 83 27 00 ca cb 0e | 5c 66 21 21 82 2b 00 cd |!9.'....|\f!!.+..|
|00000490| 0e 5c 66 21 2a 87 22 20 | 5b 76 6d 2d 6d 75 74 61 |.\f!*." |[vm-muta|
|000004a0| 62 6c 65 2d 77 69 6e 64 | 6f 77 73 20 74 20 76 6d |ble-wind|ows t vm|
|000004b0| 2d 6d 75 74 61 62 6c 65 | 2d 66 72 61 6d 65 73 20 |-mutable|-frames |
|000004c0| 70 6f 70 2d 75 70 2d 66 | 72 61 6d 65 73 20 70 6f |pop-up-f|rames po|
|000004d0| 70 2d 75 70 2d 77 69 6e | 64 6f 77 73 20 76 6d 2d |p-up-win|dows vm-|
|000004e0| 72 65 63 6f 72 64 2d 63 | 75 72 72 65 6e 74 2d 77 |record-c|urrent-w|
|000004f0| 69 6e 64 6f 77 2d 63 6f | 6e 66 69 67 75 72 61 74 |indow-co|nfigurat|
|00000500| 69 6f 6e 20 6e 69 6c 20 | 76 6d 2d 62 75 66 66 65 |ion nil |vm-buffe|
|00000510| 72 2d 74 6f 2d 6c 61 62 | 65 6c 20 77 69 6e 64 6f |r-to-lab|el windo|
|00000520| 77 2d 62 75 66 66 65 72 | 20 73 65 6c 65 63 74 65 |w-buffer| selecte|
|00000530| 64 2d 77 69 6e 64 6f 77 | 20 73 65 6c 65 63 74 2d |d-window| select-|
|00000540| 77 69 6e 64 6f 77 20 64 | 69 73 70 6c 61 79 2d 62 |window d|isplay-b|
|00000550| 75 66 66 65 72 20 62 75 | 66 66 65 72 20 73 77 69 |uffer bu|ffer swi|
|00000560| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 5d 20 33 |tch-to-b|uffer] 3|
|00000570| 5d 20 76 6d 2d 75 6e 64 | 69 73 70 6c 61 79 2d 62 |] vm-und|isplay-b|
|00000580| 75 66 66 65 72 20 23 5b | 28 62 75 66 66 65 72 29 |uffer #[|(buffer)|
|00000590| 20 22 70 18 c1 8e c2 0b | 21 88 c4 0b 21 89 1d 85 | "p.....|!...!...|
|000005a0| 15 00 c6 0d c7 20 5c 22 | 2b 87 22 20 5b 76 6d 2d |..... \"|+." [vm-|
|000005b0| 73 62 65 2d 62 75 66 66 | 65 72 20 28 28 62 79 74 |sbe-buff|er ((byt|
|000005c0| 65 2d 63 6f 64 65 20 22 | 08 70 3d 84 0f 00 c1 08 |e-code "|.p=.....|
|000005d0| 21 83 0f 00 08 71 88 c1 | 87 22 20 5b 76 6d 2d 73 |!....q..|." [vm-s|
|000005e0| 62 65 2d 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |be-buffe|r buffer|
|000005f0| 2d 6e 61 6d 65 5d 20 32 | 29 29 20 76 6d 2d 64 65 |-name] 2|)) vm-de|
|00000600| 6c 65 74 65 2d 77 69 6e | 64 6f 77 73 2d 6f 72 2d |lete-win|dows-or-|
|00000610| 66 72 61 6d 65 73 2d 6f | 6e 20 62 75 66 66 65 72 |frames-o|n buffer|
|00000620| 20 76 6d 2d 67 65 74 2d | 62 75 66 66 65 72 2d 77 | vm-get-|buffer-w|
|00000630| 69 6e 64 6f 77 20 77 20 | 73 65 74 2d 77 69 6e 64 |indow w |set-wind|
|00000640| 6f 77 2d 62 75 66 66 65 | 72 20 6f 74 68 65 72 2d |ow-buffe|r other-|
|00000650| 62 75 66 66 65 72 5d 20 | 34 5d 20 76 6d 2d 6c 6f |buffer] |4] vm-lo|
|00000660| 61 64 2d 77 69 6e 64 6f | 77 2d 63 6f 6e 66 69 67 |ad-windo|w-config|
|00000670| 75 72 61 74 69 6f 6e 73 | 20 23 5b 28 66 69 6c 65 |urations| #[(file|
|00000680| 29 20 22 8a c0 19 c2 8e | c3 c4 21 89 11 71 88 c5 |) ".....|..!..q..|
|00000690| 20 88 c0 c6 c7 8f 89 16 | 08 2b 87 22 20 5b 6e 69 | .......|.+." [ni|
|000006a0| 6c 20 77 6f 72 6b 2d 62 | 75 66 66 65 72 20 28 28 |l work-b|uffer ((|
|000006b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 83 08 00 c1 |byte-cod|e ".....|
|000006c0| 08 21 88 c1 87 22 20 5b | 77 6f 72 6b 2d 62 75 66 |.!..." [|work-buf|
|000006d0| 66 65 72 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |fer kill|-buffer]|
|000006e0| 20 32 29 29 20 67 65 74 | 2d 62 75 66 66 65 72 2d | 2)) get|-buffer-|
|000006f0| 63 72 65 61 74 65 20 22 | 2a 76 6d 2d 77 63 6f 6e |create "|*vm-wcon|
|00000700| 66 69 67 2a 22 20 65 72 | 61 73 65 2d 62 75 66 66 |fig*" er|ase-buff|
|00000710| 65 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |er (byte|-code ".|
|00000720| 09 21 88 c2 70 21 87 22 | 20 5b 69 6e 73 65 72 74 |.!..p!."| [insert|
|00000730| 2d 66 69 6c 65 2d 63 6f | 6e 74 65 6e 74 73 20 66 |-file-co|ntents f|
|00000740| 69 6c 65 20 72 65 61 64 | 5d 20 32 29 20 28 28 65 |ile read|] 2) ((e|
|00000750| 72 72 6f 72 29 29 20 76 | 6d 2d 77 69 6e 64 6f 77 |rror)) v|m-window|
|00000760| 2d 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 73 5d |-configu|rations]|
|00000770| 20 33 5d 20 76 6d 2d 73 | 74 6f 72 65 2d 77 69 6e | 3] vm-s|tore-win|
|00000780| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|00000790| 6e 73 20 23 5b 28 66 69 | 6c 65 29 20 22 8a c0 19 |ns #[(fi|le) "...|
|000007a0| c2 8e c3 c4 21 89 11 71 | 88 c5 20 88 c6 0e 07 70 |....!..q|.. ....p|
|000007b0| 5c 22 88 c8 65 64 0e 09 | c0 ca 25 2b 87 22 20 5b |\"..ed..|..%+." [|
|000007c0| 6e 69 6c 20 77 6f 72 6b | 2d 62 75 66 66 65 72 20 |nil work|-buffer |
|000007d0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 83 08 |((byte-c|ode "...|
|000007e0| 00 c1 08 21 88 c1 87 22 | 20 5b 77 6f 72 6b 2d 62 |...!..."| [work-b|
|000007f0| 75 66 66 65 72 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |uffer ki|ll-buffe|
|00000800| 72 5d 20 32 29 29 20 67 | 65 74 2d 62 75 66 66 65 |r] 2)) g|et-buffe|
|00000810| 72 2d 63 72 65 61 74 65 | 20 22 2a 76 6d 2d 77 63 |r-create| "*vm-wc|
|00000820| 6f 6e 66 69 67 2a 22 20 | 65 72 61 73 65 2d 62 75 |onfig*" |erase-bu|
|00000830| 66 66 65 72 20 70 72 69 | 6e 74 20 76 6d 2d 77 69 |ffer pri|nt vm-wi|
|00000840| 6e 64 6f 77 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow-con|figurati|
|00000850| 6f 6e 73 20 77 72 69 74 | 65 2d 72 65 67 69 6f 6e |ons writ|e-region|
|00000860| 20 66 69 6c 65 20 30 5d | 20 36 5d 20 76 6d 2d 73 | file 0]| 6] vm-s|
|00000870| 65 74 2d 77 69 6e 64 6f | 77 2d 63 6f 6e 66 69 67 |et-windo|w-config|
|00000880| 75 72 61 74 69 6f 6e 20 | 23 5b 28 26 72 65 73 74 |uration |#[(&rest|
|00000890| 20 74 61 67 73 29 20 22 | c0 c1 8d 87 22 20 5b 64 | tags) "|...." [d|
|000008a0| 6f 6e 65 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |one (byt|e-code "|
|000008b0| 08 84 09 00 c1 c2 c3 5c | 22 88 c4 c5 c6 20 c3 89 |.......\|".... ..|
|000008c0| 89 89 89 1e 07 1e 08 1e | 09 1e 5c 6e 1e 0b 1e 5c |........|..\n...\|
|000008d0| 66 1e 0d 1e 0e 0e 0f 83 | 3d 00 0e 07 84 3d 00 0e |f.......|=....=..|
|000008e0| 0f 40 0e 10 9e 16 07 0e | 0f 41 89 16 0f 84 27 00 |.@......|.A....'.|
|000008f0| 0e 07 84 48 00 d1 0e 10 | 9e 16 07 0e 07 84 52 00 |...H....|......R.|
|00000900| c1 c2 c3 5c 22 88 d2 0e | 07 21 16 07 d3 d4 21 16 |...\"...|.!....!.|
|00000910| 09 0e 15 d6 3d 83 82 00 | 0e 17 83 70 00 d8 0e 17 |....=...|...p....|
|00000920| 21 84 78 00 c1 c2 c3 5c | 22 88 82 e8 00 70 16 0b |!.x....\|"....p..|
|00000930| 0e 17 16 5c 6e 82 e8 00 | 0e 15 d9 3d 83 8f 00 70 |...\n...|...=...p|
|00000940| 16 5c 6e 82 e8 00 0e 15 | da 3d 83 9c 00 70 16 5c |.\n.....|.=...p.\|
|00000950| 6e 82 e8 00 0e 15 db 3d | 83 be 00 0e 17 83 af 00 |n......=|........|
|00000960| d8 0e 17 21 84 b7 00 c1 | c2 c3 5c 22 88 82 e8 00 |...!....|..\"....|
|00000970| 0e 17 16 5c 6e 82 e8 00 | 0e 1c dd 3d 83 e3 00 0e |...\n...|...=....|
|00000980| 17 83 d1 00 d8 0e 17 21 | 84 d9 00 c1 c2 c3 5c 22 |.......!|......\"|
|00000990| 88 82 e8 00 70 16 08 0e | 17 16 5c 6e 82 e8 00 c1 |....p...|..\n....|
|000009a0| c2 c3 5c 22 88 0e 5c 6e | 71 88 0e 1e 83 fa 00 0e |..\"..\n|q.......|
|000009b0| 07 40 0e 1f 3d 84 12 01 | 0e 1e 84 17 01 0e 1f 3c |.@..=...|.......<|
|000009c0| 83 17 01 0e 07 40 0e 5c | 66 0e 1f 9e 41 3d 83 17 |.....@.\|f...A=..|
|000009d0| 01 c1 c2 c3 5c 22 88 e0 | 20 88 0e 0b 84 28 01 0e |....\"..| ....(..|
|000009e0| 21 86 26 01 0e 0d 16 0b | 0e 09 84 31 01 0e 0e 16 |!.&.....|...1....|
|000009f0| 09 0e 08 84 3a 01 0e 0e | 16 08 e2 0e 07 41 40 d8 |....:...|.....A@.|
|00000a00| e3 23 88 e4 0e 07 41 40 | e5 5c 22 88 e6 0e 0e 21 |.#....A@|.\"....!|
|00000a10| 83 57 01 e7 0e 0e 21 88 | e8 0e 0d 21 83 6f 01 e8 |.W....!.|...!.o..|
|00000a20| 0e 5c 6e 21 84 6f 01 e9 | 0e 0d 0e 5c 6e 5c 22 88 |.\n!.o..|...\n\".|
|00000a30| 82 7b 01 e6 0e 0d 21 83 | 7b 01 e7 0e 0d 21 88 ea |.{....!.|{....!..|
|00000a40| 0e 07 21 88 0e 07 2e 08 | 87 22 20 5b 76 6d 2d 6d |..!.....|." [vm-m|
|00000a50| 75 74 61 62 6c 65 2d 77 | 69 6e 64 6f 77 73 20 74 |utable-w|indows t|
|00000a60| 68 72 6f 77 20 64 6f 6e | 65 20 6e 69 6c 20 22 20 |hrow don|e nil " |
|00000a70| 2a 76 6d 2d 6e 6f 6e 65 | 78 69 73 74 65 6e 74 2a |*vm-none|xistent*|
|00000a80| 22 20 22 20 2a 76 6d 2d | 6e 6f 6e 65 78 69 73 74 |" " *vm-|nonexist|
|00000a90| 65 6e 74 2d 73 75 6d 6d | 61 72 79 2a 22 20 76 6d |ent-summ|ary*" vm|
|00000aa0| 2d 73 65 6c 65 63 74 65 | 64 2d 66 72 61 6d 65 20 |-selecte|d-frame |
|00000ab0| 63 6f 6e 66 69 67 20 65 | 64 69 74 20 63 6f 6d 70 |config e|dit comp|
|00000ac0| 6f 73 69 74 69 6f 6e 20 | 6d 65 73 73 61 67 65 20 |osition |message |
|00000ad0| 73 75 6d 6d 61 72 79 20 | 73 65 6c 65 63 74 65 64 |summary |selected|
|00000ae0| 2d 66 72 61 6d 65 20 6e | 6f 6e 65 78 69 73 74 65 |-frame n|onexiste|
|00000af0| 6e 74 2d 73 75 6d 6d 61 | 72 79 20 6e 6f 6e 65 78 |nt-summa|ry nonex|
|00000b00| 69 73 74 65 6e 74 20 74 | 61 67 73 20 76 6d 2d 77 |istent t|ags vm-w|
|00000b10| 69 6e 64 6f 77 2d 63 6f | 6e 66 69 67 75 72 61 74 |indow-co|nfigurat|
|00000b20| 69 6f 6e 73 20 64 65 66 | 61 75 6c 74 20 76 6d 2d |ions def|ault vm-|
|00000b30| 63 6f 70 79 20 76 6d 2d | 66 69 6e 64 2d 63 6f 6d |copy vm-|find-com|
|00000b40| 70 6f 73 69 74 69 6f 6e | 2d 62 75 66 66 65 72 20 |position|-buffer |
|00000b50| 74 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 76 6d 2d |t major-|mode vm-|
|00000b60| 73 75 6d 6d 61 72 79 2d | 6d 6f 64 65 20 76 6d 2d |summary-|mode vm-|
|00000b70| 6d 61 69 6c 2d 62 75 66 | 66 65 72 20 62 75 66 66 |mail-buf|fer buff|
|00000b80| 65 72 2d 6e 61 6d 65 20 | 76 6d 2d 6d 6f 64 65 20 |er-name |vm-mode |
|00000b90| 76 6d 2d 76 69 72 74 75 | 61 6c 2d 6d 6f 64 65 20 |vm-virtu|al-mode |
|00000ba0| 6d 61 69 6c 2d 6d 6f 64 | 65 20 76 6d 2d 73 79 73 |mail-mod|e vm-sys|
|00000bb0| 74 65 6d 2d 73 74 61 74 | 65 20 65 64 69 74 69 6e |tem-stat|e editin|
|00000bc0| 67 20 76 6d 2d 6d 75 74 | 61 62 6c 65 2d 66 72 61 |g vm-mut|able-fra|
|00000bd0| 6d 65 73 20 76 6d 2d 77 | 69 6e 64 6f 77 2d 63 6f |mes vm-w|indow-co|
|00000be0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 76 6d 2d 63 |nfigurat|ion vm-c|
|00000bf0| 68 65 63 6b 2d 66 6f 72 | 2d 6b 69 6c 6c 65 64 2d |heck-for|-killed-|
|00000c00| 73 75 6d 6d 61 72 79 20 | 76 6d 2d 73 75 6d 6d 61 |summary |vm-summa|
|00000c10| 72 79 2d 62 75 66 66 65 | 72 20 74 61 70 65 73 74 |ry-buffe|r tapest|
|00000c20| 72 79 2d 72 65 70 6c 61 | 63 65 2d 74 61 70 65 73 |ry-repla|ce-tapes|
|00000c30| 74 72 79 2d 65 6c 65 6d | 65 6e 74 20 23 5b 28 78 |try-elem|ent #[(x|
|00000c40| 29 20 22 08 39 83 08 00 | 08 4a 87 08 87 22 20 5b |) ".9...|.J..." [|
|00000c50| 78 5d 20 31 5d 20 73 65 | 74 2d 74 61 70 65 73 74 |x] 1] se|t-tapest|
|00000c60| 72 79 20 31 20 67 65 74 | 2d 62 75 66 66 65 72 20 |ry 1 get|-buffer |
|00000c70| 76 6d 2d 64 65 6c 65 74 | 65 2d 77 69 6e 64 6f 77 |vm-delet|e-window|
|00000c80| 73 2d 6f 72 2d 66 72 61 | 6d 65 73 2d 6f 6e 20 76 |s-or-fra|mes-on v|
|00000c90| 6d 2d 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e |m-get-bu|ffer-win|
|00000ca0| 64 6f 77 20 76 6d 2d 72 | 65 70 6c 61 63 65 2d 62 |dow vm-r|eplace-b|
|00000cb0| 75 66 66 65 72 2d 69 6e | 2d 77 69 6e 64 6f 77 73 |uffer-in|-windows|
|00000cc0| 20 76 6d 2d 72 65 63 6f | 72 64 2d 63 75 72 72 65 | vm-reco|rd-curre|
|00000cd0| 6e 74 2d 77 69 6e 64 6f | 77 2d 63 6f 6e 66 69 67 |nt-windo|w-config|
|00000ce0| 75 72 61 74 69 6f 6e 5d | 20 39 29 5d 20 32 5d 20 |uration]| 9)] 2] |
|00000cf0| 76 6d 2d 72 65 63 6f 72 | 64 2d 63 75 72 72 65 6e |vm-recor|d-curren|
|00000d00| 74 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |t-window|-configu|
|00000d10| 72 61 74 69 6f 6e 20 23 | 5b 28 63 6f 6e 66 69 67 |ration #|[(config|
|00000d20| 29 20 22 c0 87 22 20 5b | 28 6c 65 74 20 28 63 65 |) ".." [|(let (ce|
|00000d30| 6c 6c 29 20 28 69 66 20 | 28 61 6e 64 20 28 6c 69 |ll) (if |(and (li|
|00000d40| 73 74 70 20 76 6d 2d 77 | 69 6e 64 6f 77 2d 63 6f |stp vm-w|indow-co|
|00000d50| 6e 66 69 67 75 72 61 74 | 69 6f 6e 29 20 28 73 65 |nfigurat|ion) (se|
|00000d60| 74 71 20 63 65 6c 6c 20 | 28 61 73 73 71 20 28 76 |tq cell |(assq (v|
|00000d70| 6d 2d 73 65 6c 65 63 74 | 65 64 2d 66 72 61 6d 65 |m-select|ed-frame|
|00000d80| 29 20 76 6d 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |) vm-win|dow-conf|
|00000d90| 69 67 75 72 61 74 69 6f | 6e 29 29 29 20 28 73 65 |iguratio|n))) (se|
|00000da0| 74 63 64 72 20 63 65 6c | 6c 20 28 63 61 72 20 63 |tcdr cel|l (car c|
|00000db0| 6f 6e 66 69 67 29 29 20 | 28 73 65 74 71 20 76 6d |onfig)) |(setq vm|
|00000dc0| 2d 77 69 6e 64 6f 77 2d | 63 6f 6e 66 69 67 75 72 |-window-|configur|
|00000dd0| 61 74 69 6f 6e 20 28 63 | 6f 6e 73 20 28 63 6f 6e |ation (c|ons (con|
|00000de0| 73 20 28 76 6d 2d 73 65 | 6c 65 63 74 65 64 2d 66 |s (vm-se|lected-f|
|00000df0| 72 61 6d 65 29 20 28 63 | 61 72 20 63 6f 6e 66 69 |rame) (c|ar confi|
|00000e00| 67 29 29 20 76 6d 2d 77 | 69 6e 64 6f 77 2d 63 6f |g)) vm-w|indow-co|
|00000e10| 6e 66 69 67 75 72 61 74 | 69 6f 6e 29 29 29 29 5d |nfigurat|ion))))]|
|00000e20| 20 31 5d 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 | 1]] 3).|(defalia|
|00000e30| 73 20 27 76 6d 2d 73 61 | 76 65 2d 77 69 6e 64 6f |s 'vm-sa|ve-windo|
|00000e40| 77 2d 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 20 |w-config|uration |
|00000e50| 23 5b 28 74 61 67 29 20 | 22 08 84 08 00 c1 c2 21 |#[(tag) |"......!|
|00000e60| 88 c3 89 1c 1d c6 c7 20 | 43 21 15 c8 0d c9 ca 23 |....... |C!.....#|
|00000e70| 88 cb 0d cc c3 cc 89 89 | c3 26 07 88 0e 0d 0e 0e |........|.&......|
|00000e80| 9e 89 14 83 35 00 5c 66 | 41 0d a0 88 82 3e 00 0e |....5.\f|A....>..|
|00000e90| 0d 0d 44 0e 0e 42 16 0e | cf 08 21 88 d0 d1 0e 0d |..D..B..|..!.....|
|00000ea0| 5c 22 2a 87 22 20 5b 76 | 6d 2d 77 69 6e 64 6f 77 |\"*." [v|m-window|
|00000eb0| 2d 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 2d 66 |-configu|ration-f|
|00000ec0| 69 6c 65 20 65 72 72 6f | 72 20 22 43 6f 6e 66 69 |ile erro|r "Confi|
|00000ed0| 67 75 72 61 62 6c 65 20 | 77 69 6e 64 6f 77 73 20 |gurable |windows |
|00000ee0| 6e 6f 74 20 65 6e 61 62 | 6c 65 64 2e 20 20 53 65 |not enab|led. Se|
|00000ef0| 74 20 76 6d 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |t vm-win|dow-conf|
|00000f00| 69 67 75 72 61 74 69 6f | 6e 2d 66 69 6c 65 20 74 |iguratio|n-file t|
|00000f10| 6f 20 65 6e 61 62 6c 65 | 2e 22 20 6e 69 6c 20 70 |o enable|." nil p|
|00000f20| 20 6d 61 70 20 74 61 70 | 65 73 74 72 79 20 76 6d | map tap|estry vm|
|00000f30| 2d 73 65 6c 65 63 74 65 | 64 2d 66 72 61 6d 65 20 |-selecte|d-frame |
|00000f40| 74 61 70 65 73 74 72 79 | 2d 72 65 70 6c 61 63 65 |tapestry|-replace|
|00000f50| 2d 74 61 70 65 73 74 72 | 79 2d 65 6c 65 6d 65 6e |-tapestr|y-elemen|
|00000f60| 74 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 76 6d |t buffer|-name vm|
|00000f70| 2d 62 75 66 66 65 72 2d | 74 6f 2d 6c 61 62 65 6c |-buffer-|to-label|
|00000f80| 20 74 61 70 65 73 74 72 | 79 2d 6e 75 6c 6c 69 66 | tapestr|y-nullif|
|00000f90| 79 2d 74 61 70 65 73 74 | 72 79 2d 65 6c 65 6d 65 |y-tapest|ry-eleme|
|00000fa0| 6e 74 73 20 74 20 74 61 | 67 20 76 6d 2d 77 69 6e |nts t ta|g vm-win|
|00000fb0| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|00000fc0| 6e 73 20 76 6d 2d 73 74 | 6f 72 65 2d 77 69 6e 64 |ns vm-st|ore-wind|
|00000fd0| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|00000fe0| 73 20 6d 65 73 73 61 67 | 65 20 22 25 73 20 63 6f |s messag|e "%s co|
|00000ff0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 72 65 63 6f |nfigurat|ion reco|
|00001000| 72 64 65 64 22 5d 20 39 | 20 22 5c 0a 4e 61 6d 65 |rded"] 9| "\.Name|
|00001010| 20 61 6e 64 20 73 61 76 | 65 20 74 68 65 20 63 75 | and sav|e the cu|
|00001020| 72 72 65 6e 74 20 77 69 | 6e 64 6f 77 20 63 6f 6e |rrent wi|ndow con|
|00001030| 66 69 67 75 72 61 74 69 | 6f 6e 2e 0a 57 69 74 68 |figurati|on..With|
|00001040| 20 74 68 69 73 20 63 6f | 6d 6d 61 6e 64 20 79 6f | this co|mmand yo|
|00001050| 75 20 61 73 73 6f 63 69 | 61 74 65 20 74 68 65 20 |u associ|ate the |
|00001060| 63 75 72 72 65 6e 74 20 | 77 69 6e 64 6f 77 20 73 |current |window s|
|00001070| 65 74 75 70 20 77 69 74 | 68 20 61 6e 0a 61 63 74 |etup wit|h an.act|
|00001080| 69 6f 6e 2e 20 20 45 61 | 63 68 20 74 69 6d 65 20 |ion. Ea|ch time |
|00001090| 79 6f 75 20 70 65 72 66 | 6f 72 6d 20 74 68 69 73 |you perf|orm this|
|000010a0| 20 61 63 74 69 6f 6e 20 | 56 4d 20 77 69 6c 6c 20 | action |VM will |
|000010b0| 64 75 70 6c 69 63 61 74 | 65 20 74 68 69 73 0a 77 |duplicat|e this.w|
|000010c0| 69 6e 64 6f 77 20 73 65 | 74 75 70 2e 0a 0a 4e 65 |indow se|tup...Ne|
|000010d0| 61 72 6c 79 20 65 76 65 | 72 79 20 56 4d 20 63 6f |arly eve|ry VM co|
|000010e0| 6d 6d 61 6e 64 20 63 61 | 6e 20 68 61 76 65 20 61 |mmand ca|n have a|
|000010f0| 20 77 69 6e 64 6f 77 20 | 63 6f 6e 66 69 67 75 72 | window |configur|
|00001100| 61 74 69 6f 6e 0a 61 73 | 73 6f 63 69 61 74 65 64 |ation.as|sociated|
|00001110| 20 77 69 74 68 20 69 74 | 2e 20 20 56 4d 20 61 6c | with it|. VM al|
|00001120| 73 6f 20 61 6c 6c 6f 77 | 73 20 73 6f 6d 65 20 63 |so allow|s some c|
|00001130| 61 74 65 67 6f 72 79 20 | 63 6f 6e 66 69 67 75 72 |ategory |configur|
|00001140| 61 74 69 6f 6e 73 2c 0a | 60 73 74 61 72 74 75 70 |ations,.|`startup|
|00001150| 27 2c 20 60 72 65 61 64 | 69 6e 67 2d 6d 65 73 73 |', `read|ing-mess|
|00001160| 61 67 65 27 2c 20 60 63 | 6f 6d 70 6f 73 69 6e 67 |age', `c|omposing|
|00001170| 2d 6d 65 73 73 61 67 65 | 27 2c 20 60 65 64 69 74 |-message|', `edit|
|00001180| 69 6e 67 2d 6d 65 73 73 | 61 67 65 27 2c 0a 60 6d |ing-mess|age',.`m|
|00001190| 61 72 6b 69 6e 67 2d 6d | 65 73 73 61 67 65 27 20 |arking-m|essage' |
|000011a0| 61 6e 64 20 60 73 65 61 | 72 63 68 69 6e 67 2d 6d |and `sea|rching-m|
|000011b0| 65 73 73 61 67 65 27 20 | 66 6f 72 20 74 68 65 20 |essage' |for the |
|000011c0| 63 6f 6d 6d 61 6e 64 73 | 20 74 68 61 74 0a 64 6f |commands| that.do|
|000011d0| 20 74 68 65 73 65 20 74 | 68 69 6e 67 73 2e 20 20 | these t|hings. |
|000011e0| 54 68 65 72 65 20 69 73 | 20 61 6c 73 6f 20 61 20 |There is| also a |
|000011f0| 60 64 65 66 61 75 6c 74 | 27 20 63 6f 6e 66 69 67 |`default|' config|
|00001200| 75 72 61 74 69 6f 6e 20 | 74 68 61 74 20 56 4d 0a |uration |that VM.|
|00001210| 77 69 6c 6c 20 75 73 65 | 20 69 66 20 6e 6f 20 6f |will use| if no o|
|00001220| 74 68 65 72 20 63 6f 6e | 66 69 67 75 72 61 74 69 |ther con|figurati|
|00001230| 6f 6e 20 69 73 20 61 70 | 70 6c 69 63 61 62 6c 65 |on is ap|plicable|
|00001240| 2e 20 20 43 6f 6d 6d 61 | 6e 64 0a 73 70 65 63 69 |. Comma|nd.speci|
|00001250| 66 69 63 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |fic conf|iguratio|
|00001260| 6e 73 20 61 72 65 20 73 | 65 61 72 63 68 65 64 20 |ns are s|earched |
|00001270| 66 6f 72 20 66 69 72 73 | 74 2c 20 74 68 65 6e 20 |for firs|t, then |
|00001280| 74 68 65 20 63 61 74 65 | 67 6f 72 79 0a 63 6f 6e |the cate|gory.con|
|00001290| 66 69 67 75 72 61 74 69 | 6f 6e 73 20 61 6e 64 20 |figurati|ons and |
|000012a0| 74 68 65 6e 20 74 68 65 | 20 64 65 66 61 75 6c 74 |then the| default|
|000012b0| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 2e 20 | configu|ration. |
|000012c0| 20 54 68 65 20 66 69 72 | 73 74 0a 63 6f 6e 66 69 | The fir|st.confi|
|000012d0| 67 75 72 61 74 69 6f 6e | 20 66 6f 75 6e 64 20 69 |guration| found i|
|000012e0| 73 20 74 68 65 20 6f 6e | 65 20 74 68 61 74 20 69 |s the on|e that i|
|000012f0| 73 20 61 70 70 6c 69 65 | 64 2e 0a 0a 54 68 65 20 |s applie|d...The |
|00001300| 76 61 6c 75 65 20 6f 66 | 20 76 6d 2d 6d 75 74 61 |value of| vm-muta|
|00001310| 62 6c 65 2d 77 69 6e 64 | 6f 77 73 20 6d 75 73 74 |ble-wind|ows must|
|00001320| 20 62 65 20 6e 6f 6e 2d | 6e 69 6c 20 66 6f 72 20 | be non-|nil for |
|00001330| 56 4d 20 74 6f 20 75 73 | 65 0a 77 69 6e 64 6f 77 |VM to us|e.window|
|00001340| 20 63 6f 6e 66 69 67 75 | 72 61 74 69 6f 6e 73 2e | configu|rations.|
|00001350| 0a 0a 49 66 20 76 6d 2d | 6d 75 74 61 62 6c 65 2d |..If vm-|mutable-|
|00001360| 66 72 61 6d 65 73 20 69 | 73 20 6e 6f 6e 2d 6e 69 |frames i|s non-ni|
|00001370| 6c 20 61 6e 64 20 45 6d | 61 63 73 20 69 73 20 72 |l and Em|acs is r|
|00001380| 75 6e 6e 69 6e 67 20 75 | 6e 64 65 72 20 58 0a 77 |unning u|nder X.w|
|00001390| 69 6e 64 6f 77 73 2c 20 | 74 68 65 6e 20 56 4d 20 |indows, |then VM |
|000013a0| 77 69 6c 6c 20 75 73 65 | 20 61 6c 6c 20 65 78 69 |will use| all exi|
|000013b0| 73 74 69 6e 67 20 66 72 | 61 6d 65 73 2e 20 20 4f |sting fr|ames. O|
|000013c0| 74 68 65 72 77 69 73 65 | 20 56 4d 20 77 69 6c 6c |therwise| VM will|
|000013d0| 0a 72 65 73 74 72 69 63 | 74 20 69 74 73 20 63 68 |.restric|t its ch|
|000013e0| 61 6e 67 65 73 20 74 6f | 20 74 68 65 20 66 72 61 |anges to| the fra|
|000013f0| 6d 65 20 69 6e 20 77 68 | 69 63 68 20 69 74 20 77 |me in wh|ich it w|
|00001400| 61 73 20 73 74 61 72 74 | 65 64 2e 22 20 28 62 79 |as start|ed." (by|
|00001410| 74 65 2d 63 6f 64 65 20 | 22 08 09 19 18 5c 6e 84 |te-code |"....\n.|
|00001420| 5c 66 00 c3 c4 21 88 c5 | c6 c7 0e 08 c9 ca 24 21 |\f...!..|......$!|
|00001430| 2a 43 87 22 20 5b 6c 61 | 73 74 2d 63 6f 6d 6d 61 |*C." [la|st-comma|
|00001440| 6e 64 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 20 |nd this-|command |
|00001450| 76 6d 2d 77 69 6e 64 6f | 77 2d 63 6f 6e 66 69 67 |vm-windo|w-config|
|00001460| 75 72 61 74 69 6f 6e 2d | 66 69 6c 65 20 65 72 72 |uration-|file err|
|00001470| 6f 72 20 22 43 6f 6e 66 | 69 67 75 72 61 62 6c 65 |or "Conf|igurable|
|00001480| 20 77 69 6e 64 6f 77 73 | 20 6e 6f 74 20 65 6e 61 | windows| not ena|
|00001490| 62 6c 65 64 2e 20 20 53 | 65 74 20 76 6d 2d 77 69 |bled. S|et vm-wi|
|000014a0| 6e 64 6f 77 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow-con|figurati|
|000014b0| 6f 6e 2d 66 69 6c 65 20 | 74 6f 20 65 6e 61 62 6c |on-file |to enabl|
|000014c0| 65 2e 22 20 69 6e 74 65 | 72 6e 20 63 6f 6d 70 6c |e." inte|rn compl|
|000014d0| 65 74 69 6e 67 2d 72 65 | 61 64 20 22 4e 61 6d 65 |eting-re|ad "Name|
|000014e0| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 20 63 6f 6e | this wi|ndow con|
|000014f0| 66 69 67 75 72 61 74 69 | 6f 6e 3a 20 22 20 76 6d |figurati|on: " vm|
|00001500| 2d 73 75 70 70 6f 72 74 | 65 64 2d 77 69 6e 64 6f |-support|ed-windo|
|00001510| 77 2d 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 73 |w-config|urations|
|00001520| 20 69 64 65 6e 74 69 74 | 79 20 74 5d 20 36 29 5d | identit|y t] 6)]|
|00001530| 29 0a 28 64 65 66 61 6c | 69 61 73 20 28 71 75 6f |).(defal|ias (quo|
|00001540| 74 65 20 76 6d 2d 62 75 | 66 66 65 72 2d 74 6f 2d |te vm-bu|ffer-to-|
|00001550| 6c 61 62 65 6c 29 20 23 | 5b 28 62 75 66 29 20 22 |label) #|[(buf) "|
|00001560| 8a 08 71 88 09 c2 3d 83 | 0e 00 c3 82 38 00 09 c4 |..q...=.|....8...|
|00001570| 3d 83 18 00 c5 82 38 00 | 09 c6 3d 83 5c 22 00 c7 |=.....8.|..=.\"..|
|00001580| 82 38 00 09 c8 3d 83 2c | 00 c7 82 38 00 0e 09 ca |.8...=.,|...8....|
|00001590| 3d 83 37 00 cb 82 38 00 | 08 29 87 22 20 5b 62 75 |=.7...8.|.)." [bu|
|000015a0| 66 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 76 6d 2d |f major-|mode vm-|
|000015b0| 73 75 6d 6d 61 72 79 2d | 6d 6f 64 65 20 73 75 6d |summary-|mode sum|
|000015c0| 6d 61 72 79 20 6d 61 69 | 6c 2d 6d 6f 64 65 20 63 |mary mai|l-mode c|
|000015d0| 6f 6d 70 6f 73 69 74 69 | 6f 6e 20 76 6d 2d 6d 6f |ompositi|on vm-mo|
|000015e0| 64 65 20 6d 65 73 73 61 | 67 65 20 76 6d 2d 76 69 |de messa|ge vm-vi|
|000015f0| 72 74 75 61 6c 2d 6d 6f | 64 65 20 76 6d 2d 73 79 |rtual-mo|de vm-sy|
|00001600| 73 74 65 6d 2d 73 74 61 | 74 65 20 65 64 69 74 69 |stem-sta|te editi|
|00001610| 6e 67 20 65 64 69 74 5d | 20 32 5d 29 0a 28 64 65 |ng edit]| 2]).(de|
|00001620| 66 61 6c 69 61 73 20 27 | 76 6d 2d 64 65 6c 65 74 |falias '|vm-delet|
|00001630| 65 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |e-window|-configu|
|00001640| 72 61 74 69 6f 6e 20 23 | 5b 28 74 61 67 29 20 22 |ration #|[(tag) "|
|00001650| 08 84 08 00 c1 c2 21 88 | c3 1c 0d 0e 06 9e 89 14 |......!.|........|
|00001660| 83 2d 00 5c 66 0e 06 40 | 3d 83 23 00 0e 06 41 16 |.-.\f..@|=.#...A.|
|00001670| 06 82 32 00 c7 5c 66 0e | 06 5c 22 16 06 82 32 00 |..2..\f.|.\"...2.|
|00001680| c1 c8 0d 5c 22 88 29 c9 | 08 21 88 ca cb 0d 5c 22 |...\".).|.!....\"|
|00001690| 87 22 20 5b 76 6d 2d 77 | 69 6e 64 6f 77 2d 63 6f |." [vm-w|indow-co|
|000016a0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 2d 66 69 6c 65 |nfigurat|ion-file|
|000016b0| 20 65 72 72 6f 72 20 22 | 43 6f 6e 66 69 67 75 72 | error "|Configur|
|000016c0| 61 62 6c 65 20 77 69 6e | 64 6f 77 73 20 6e 6f 74 |able win|dows not|
|000016d0| 20 65 6e 61 62 6c 65 64 | 2e 20 20 53 65 74 20 76 | enabled|. Set v|
|000016e0| 6d 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |m-window|-configu|
|000016f0| 72 61 74 69 6f 6e 2d 66 | 69 6c 65 20 74 6f 20 65 |ration-f|ile to e|
|00001700| 6e 61 62 6c 65 2e 22 20 | 6e 69 6c 20 70 20 74 61 |nable." |nil p ta|
|00001710| 67 20 76 6d 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |g vm-win|dow-conf|
|00001720| 69 67 75 72 61 74 69 6f | 6e 73 20 64 65 6c 71 20 |iguratio|ns delq |
|00001730| 22 4e 6f 20 77 69 6e 64 | 6f 77 20 63 6f 6e 66 69 |"No wind|ow confi|
|00001740| 67 75 72 61 74 69 6f 6e | 20 73 65 74 20 66 6f 72 |guration| set for|
|00001750| 20 25 73 22 20 76 6d 2d | 73 74 6f 72 65 2d 77 69 | %s" vm-|store-wi|
|00001760| 6e 64 6f 77 2d 63 6f 6e | 66 69 67 75 72 61 74 69 |ndow-con|figurati|
|00001770| 6f 6e 73 20 6d 65 73 73 | 61 67 65 20 22 25 73 20 |ons mess|age "%s |
|00001780| 63 6f 6e 66 69 67 75 72 | 61 74 69 6f 6e 20 64 65 |configur|ation de|
|00001790| 6c 65 74 65 64 22 5d 20 | 34 20 22 5c 0a 44 65 6c |leted"] |4 "\.Del|
|000017a0| 65 74 65 20 74 68 65 20 | 63 6f 6e 66 69 67 75 72 |ete the |configur|
|000017b0| 61 74 69 6f 6e 20 73 61 | 76 65 64 20 66 6f 72 20 |ation sa|ved for |
|000017c0| 61 20 70 61 72 74 69 63 | 75 6c 61 72 20 61 63 74 |a partic|ular act|
|000017d0| 69 6f 6e 2e 0a 54 68 69 | 73 20 61 63 74 69 6f 6e |ion..Thi|s action|
|000017e0| 20 77 69 6c 6c 20 6e 6f | 20 6c 6f 6e 67 65 72 20 | will no| longer |
|000017f0| 68 61 76 65 20 61 6e 20 | 61 73 73 6f 63 69 61 74 |have an |associat|
|00001800| 65 64 20 77 69 6e 64 6f | 77 20 63 6f 6e 66 69 67 |ed windo|w config|
|00001810| 75 72 61 74 69 6f 6e 2e | 0a 54 68 65 20 61 63 74 |uration.|.The act|
|00001820| 69 6f 6e 20 77 69 6c 6c | 20 62 65 20 72 65 61 64 |ion will| be read|
|00001830| 20 66 72 6f 6d 20 74 68 | 65 20 6d 69 6e 69 62 75 | from th|e minibu|
|00001840| 66 66 65 72 2e 22 20 28 | 62 79 74 65 2d 63 6f 64 |ffer." (|byte-cod|
|00001850| 65 20 22 08 09 19 18 5c | 6e 84 5c 66 00 c3 c4 21 |e "....\|n.\f...!|
|00001860| 88 c5 c6 c7 c8 c9 0e 5c | 6e 5c 22 cb cc 24 21 2a |.......\|n\"..$!*|
|00001870| 43 87 22 20 5b 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |C." [las|t-comman|
|00001880| 64 20 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 20 76 |d this-c|ommand v|
|00001890| 6d 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |m-window|-configu|
|000018a0| 72 61 74 69 6f 6e 2d 66 | 69 6c 65 20 65 72 72 6f |ration-f|ile erro|
|000018b0| 72 20 22 43 6f 6e 66 69 | 67 75 72 61 62 6c 65 20 |r "Confi|gurable |
|000018c0| 77 69 6e 64 6f 77 73 20 | 6e 6f 74 20 65 6e 61 62 |windows |not enab|
|000018d0| 6c 65 64 2e 20 20 53 65 | 74 20 76 6d 2d 77 69 6e |led. Se|t vm-win|
|000018e0| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|000018f0| 6e 2d 66 69 6c 65 20 74 | 6f 20 65 6e 61 62 6c 65 |n-file t|o enable|
|00001900| 2e 22 20 69 6e 74 65 72 | 6e 20 63 6f 6d 70 6c 65 |." inter|n comple|
|00001910| 74 69 6e 67 2d 72 65 61 | 64 20 22 44 65 6c 65 74 |ting-rea|d "Delet|
|00001920| 65 20 77 69 6e 64 6f 77 | 20 63 6f 6e 66 69 67 75 |e window| configu|
|00001930| 72 61 74 69 6f 6e 3a 20 | 22 20 6d 61 70 63 61 72 |ration: |" mapcar|
|00001940| 20 23 5b 28 78 29 20 22 | c0 09 40 21 43 87 22 20 | #[(x) "|..@!C." |
|00001950| 5b 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 78 5d 20 |[symbol-|name x] |
|00001960| 32 5d 20 76 6d 2d 77 69 | 6e 64 6f 77 2d 63 6f 6e |2] vm-wi|ndow-con|
|00001970| 66 69 67 75 72 61 74 69 | 6f 6e 73 20 69 64 65 6e |figurati|ons iden|
|00001980| 74 69 74 79 20 74 5d 20 | 36 29 5d 29 0a 28 64 65 |tity t] |6)]).(de|
|00001990| 66 61 6c 69 61 73 20 27 | 76 6d 2d 61 70 70 6c 79 |falias '|vm-apply|
|000019a0| 2d 77 69 6e 64 6f 77 2d | 63 6f 6e 66 69 67 75 72 |-window-|configur|
|000019b0| 61 74 69 6f 6e 20 23 5b | 28 74 61 67 29 20 22 c0 |ation #[|(tag) ".|
|000019c0| 09 21 87 22 20 5b 76 6d | 2d 73 65 74 2d 77 69 6e |.!." [vm|-set-win|
|000019d0| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|000019e0| 6e 20 74 61 67 5d 20 32 | 20 22 5c 0a 43 68 61 6e |n tag] 2| "\.Chan|
|000019f0| 67 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 77 |ge the c|urrent w|
|00001a00| 69 6e 64 6f 77 20 63 6f | 6e 66 69 67 75 72 61 74 |indow co|nfigurat|
|00001a10| 69 6f 6e 20 74 6f 20 62 | 65 20 6f 6e 65 0a 61 73 |ion to b|e one.as|
|00001a20| 73 6f 63 69 61 74 65 64 | 20 77 69 74 68 20 61 20 |sociated| with a |
|00001a30| 70 61 72 74 69 63 75 6c | 61 72 20 61 63 74 69 6f |particul|ar actio|
|00001a40| 6e 2e 20 20 54 68 65 20 | 61 63 74 69 6f 6e 20 77 |n. The |action w|
|00001a50| 69 6c 6c 20 62 65 20 72 | 65 61 64 0a 66 72 6f 6d |ill be r|ead.from|
|00001a60| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 2e | the min|ibuffer.|
|00001a70| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 09 |" (byte-|code "..|
|00001a80| 19 18 c2 c3 c4 c5 c6 0e | 07 5c 22 c8 c9 24 21 2a |........|.\"..$!*|
|00001a90| 43 87 22 20 5b 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |C." [las|t-comman|
|00001aa0| 64 20 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 20 69 |d this-c|ommand i|
|00001ab0| 6e 74 65 72 6e 20 63 6f | 6d 70 6c 65 74 69 6e 67 |ntern co|mpleting|
|00001ac0| 2d 72 65 61 64 20 22 41 | 70 70 6c 79 20 77 69 6e |-read "A|pply win|
|00001ad0| 64 6f 77 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow conf|iguratio|
|00001ae0| 6e 3a 20 22 20 6d 61 70 | 63 61 72 20 23 5b 28 78 |n: " map|car #[(x|
|00001af0| 29 20 22 c0 09 40 21 43 | 87 22 20 5b 73 79 6d 62 |) "..@!C|." [symb|
|00001b00| 6f 6c 2d 6e 61 6d 65 20 | 78 5d 20 32 5d 20 76 6d |ol-name |x] 2] vm|
|00001b10| 2d 77 69 6e 64 6f 77 2d | 63 6f 6e 66 69 67 75 72 |-window-|configur|
|00001b20| 61 74 69 6f 6e 73 20 69 | 64 65 6e 74 69 74 79 20 |ations i|dentity |
|00001b30| 74 5d 20 36 29 5d 29 0a | 28 62 79 74 65 2d 63 6f |t] 6)]).|(byte-co|
|00001b40| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|00001b50| c0 c5 c6 5c 22 88 c0 c7 | c8 5c 22 88 c0 c9 ca 5c |...\"...|.\"....\|
|00001b60| 22 88 c0 cb cc 5c 22 88 | c0 cd ce 5c 22 88 cf d0 |"....\".|...\"...|
|00001b70| d1 21 83 2e 00 d1 82 39 | 00 d0 d2 21 83 38 00 d2 |.!.....9|...!.8..|
|00001b80| 82 39 00 d3 4b 4d 88 d0 | d4 21 83 59 00 d5 d4 4b |.9..KM..|.!.Y...K|
|00001b90| 4d 88 d6 d7 4b 4d 88 d8 | d9 4b 4d 88 da db 4b 4d |M...KM..|.KM...KM|
|00001ba0| 88 82 7e 00 d0 dc 21 83 | 7e 00 d5 dc 4b 4d 88 d6 |..~...!.|~...KM..|
|00001bb0| dd 4b 4d 88 d8 de 4b 4d | 88 da d0 df 21 83 7a 00 |.KM...KM|....!.z.|
|00001bc0| df 4b 82 7c 00 e0 4b 4d | 88 c0 87 22 20 5b 64 65 |.K.|..KM|..." [de|
|00001bd0| 66 61 6c 69 61 73 20 76 | 6d 2d 77 69 6e 64 6f 77 |falias v|m-window|
|00001be0| 2d 68 65 6c 70 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-help #[|nil "..!|
|00001bf0| 87 22 20 5b 6d 65 73 73 | 61 67 65 20 22 57 53 20 |." [mess|age "WS |
|00001c00| 3d 20 73 61 76 65 20 63 | 6f 6e 66 69 67 75 72 61 |= save c|onfigura|
|00001c10| 74 69 6f 6e 2c 20 57 44 | 20 3d 20 64 65 6c 65 74 |tion, WD| = delet|
|00001c20| 65 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 2c |e config|uration,|
|00001c30| 20 57 57 20 3d 20 61 70 | 70 6c 79 20 63 6f 6e 66 | WW = ap|ply conf|
|00001c40| 69 67 75 72 61 74 69 6f | 6e 22 5d 20 32 20 6e 69 |iguratio|n"] 2 ni|
|00001c50| 6c 20 6e 69 6c 5d 20 76 | 6d 2d 77 69 6e 64 6f 77 |l nil] v|m-window|
|00001c60| 2d 6c 6f 6f 70 20 23 5b | 28 61 63 74 69 6f 6e 20 |-loop #[|(action |
|00001c70| 6f 62 6a 2d 31 20 26 6f | 70 74 69 6f 6e 61 6c 20 |obj-1 &o|ptional |
|00001c80| 6f 62 6a 2d 32 29 20 22 | c0 c1 20 c2 5c 22 c3 89 |obj-2) "|.. .\"..|
|00001c90| 5c 66 85 5c 66 00 c5 c3 | 1e 06 1e 07 1e 08 1e 09 |\f.\f...|........|
|00001ca0| 89 1e 5c 6e 16 06 0e 0b | 83 25 00 cc 0e 0b 21 16 |..\n....|.%....!.|
|00001cb0| 0b 0e 08 84 95 00 0e 09 | 83 4d 00 0e 09 c0 0e 09 |........|.M......|
|00001cc0| c2 5c 22 3d 84 4d 00 cd | 0e 09 21 88 0e 09 0e 5c |.\"=.M..|..!....\|
|00001cd0| 6e 3d 83 4a 00 c3 16 5c | 6e c3 16 09 0e 0e cf 3d |n=.J...\|n......=|
|00001ce0| 83 65 00 0e 0b d0 0e 06 | 21 3d 83 65 00 0e 06 16 |.e......|!=.e....|
|00001cf0| 09 82 7d 00 0e 0e d1 3d | 83 7d 00 0e 0b d0 0e 06 |..}....=|.}......|
|00001d00| 21 3d 83 7d 00 d2 0e 06 | 0e 13 5c 22 88 0e 5c 6e |!=.}....|..\"..\n|
|00001d10| c3 d4 d5 8f 89 16 06 3d | 16 08 0e 5c 6e 84 25 00 |.......=|...\n.%.|
|00001d20| 0e 06 16 5c 6e 82 25 00 | 0e 09 85 aa 00 0e 09 c0 |...\n.%.|........|
|00001d30| 0e 09 c2 5c 22 3d 3f 85 | aa 00 cd 0e 09 21 2d 87 |...\"=?.|.....!-.|
|00001d40| 22 20 5b 6e 65 78 74 2d | 77 69 6e 64 6f 77 20 73 |" [next-|window s|
|00001d50| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 6e |elected-|window n|
|00001d60| 6f 6d 69 6e 69 20 6e 69 | 6c 20 76 6d 2d 6d 75 74 |omini ni|l vm-mut|
|00001d70| 61 62 6c 65 2d 66 72 61 | 6d 65 73 20 74 20 77 20 |able-fra|mes t w |
|00001d80| 61 6c 6c 2d 66 72 61 6d | 65 73 20 64 6f 6e 65 20 |all-fram|es done |
|00001d90| 64 65 6c 65 74 65 2d 6d | 65 20 73 74 61 72 74 20 |delete-m|e start |
|00001da0| 6f 62 6a 2d 31 20 67 65 | 74 2d 62 75 66 66 65 72 |obj-1 ge|t-buffer|
|00001db0| 20 64 65 6c 65 74 65 2d | 77 69 6e 64 6f 77 20 61 | delete-|window a|
|00001dc0| 63 74 69 6f 6e 20 64 65 | 6c 65 74 65 20 77 69 6e |ction de|lete win|
|00001dd0| 64 6f 77 2d 62 75 66 66 | 65 72 20 72 65 70 6c 61 |dow-buff|er repla|
|00001de0| 63 65 20 73 65 74 2d 77 | 69 6e 64 6f 77 2d 62 75 |ce set-w|indow-bu|
|00001df0| 66 66 65 72 20 6f 62 6a | 2d 32 20 28 62 79 74 65 |ffer obj|-2 (byte|
|00001e00| 2d 63 6f 64 65 20 22 c0 | 09 c2 0b 23 87 22 20 5b |-code ".|...#." [|
|00001e10| 6e 65 78 74 2d 77 69 6e | 64 6f 77 20 77 20 6e 6f |next-win|dow w no|
|00001e20| 6d 69 6e 69 20 61 6c 6c | 2d 66 72 61 6d 65 73 5d |mini all|-frames]|
|00001e30| 20 34 29 20 28 28 77 72 | 6f 6e 67 2d 6e 75 6d 62 | 4) ((wr|ong-numb|
|00001e40| 65 72 2d 6f 66 2d 61 72 | 67 75 6d 65 6e 74 73 20 |er-of-ar|guments |
|00001e50| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 c2 5c |(byte-co|de "...\|
|00001e60| 22 87 22 20 5b 6e 65 78 | 74 2d 77 69 6e 64 6f 77 |"." [nex|t-window|
|00001e70| 20 77 20 6e 6f 6d 69 6e | 69 5d 20 33 29 29 29 5d | w nomin|i] 3)))]|
|00001e80| 20 36 5d 20 76 6d 2d 66 | 72 61 6d 65 2d 6c 6f 6f | 6] vm-f|rame-loo|
|00001e90| 70 20 23 5b 28 61 63 74 | 69 6f 6e 20 6f 62 6a 2d |p #[(act|ion obj-|
|00001ea0| 31 29 20 22 c0 c1 21 85 | 7a 00 c2 20 c3 89 89 1c |1) "..!.|z.. ....|
|00001eb0| 1d 1e 06 89 1e 07 14 0e | 08 83 1e 00 c9 0e 08 21 |........|.......!|
|00001ec0| 16 08 0d 84 65 00 ca 5c | 66 21 88 0e 06 83 33 00 |....e..\|f!....3.|
|00001ed0| c3 cb cc 8f 88 c3 16 06 | 0e 0d ce 3d 83 51 00 cf |........|...=.Q..|
|00001ee0| d0 21 83 51 00 0e 08 d1 | d2 d3 5c 66 21 d4 5c 22 |.!.Q....|..\f!.\"|
|00001ef0| 21 3d 83 51 00 5c 66 16 | 06 0e 07 c1 5c 66 21 89 |!=.Q.\f.|....\f!.|
|00001f00| 14 3d 15 0e 07 84 1e 00 | 5c 66 16 07 82 1e 00 ca |.=......|\f......|
|00001f10| 0e 07 21 88 0e 06 85 79 | 00 d5 d6 0e 06 5c 22 88 |..!....y|.....\".|
|00001f20| c3 89 16 06 2c 87 22 20 | 5b 66 62 6f 75 6e 64 70 |....,." |[fboundp|
|00001f30| 20 76 6d 2d 6e 65 78 74 | 2d 66 72 61 6d 65 20 76 | vm-next|-frame v|
|00001f40| 6d 2d 73 65 6c 65 63 74 | 65 64 2d 66 72 61 6d 65 |m-select|ed-frame|
|00001f50| 20 6e 69 6c 20 66 20 64 | 6f 6e 65 20 64 65 6c 65 | nil f d|one dele|
|00001f60| 74 65 2d 6d 65 20 73 74 | 61 72 74 20 6f 62 6a 2d |te-me st|art obj-|
|00001f70| 31 20 67 65 74 2d 62 75 | 66 66 65 72 20 76 6d 2d |1 get-bu|ffer vm-|
|00001f80| 73 65 6c 65 63 74 2d 66 | 72 61 6d 65 20 28 62 79 |select-f|rame (by|
|00001f90| 74 65 2d 63 6f 64 65 20 | 22 c0 09 21 88 09 5c 6e |te-code |"..!..\n|
|00001fa0| 3d 83 5c 66 00 c3 12 c3 | 87 22 20 5b 76 6d 2d 64 |=.\f....|." [vm-d|
|00001fb0| 65 6c 65 74 65 2d 66 72 | 61 6d 65 20 64 65 6c 65 |elete-fr|ame dele|
|00001fc0| 74 65 2d 6d 65 20 73 74 | 61 72 74 20 6e 69 6c 5d |te-me st|art nil]|
|00001fd0| 20 32 29 20 28 28 65 72 | 72 6f 72 29 29 20 61 63 | 2) ((er|ror)) ac|
|00001fe0| 74 69 6f 6e 20 64 65 6c | 65 74 65 20 6f 6e 65 2d |tion del|ete one-|
|00001ff0| 77 69 6e 64 6f 77 2d 70 | 20 74 20 77 69 6e 64 6f |window-p| t windo|
|00002000| 77 2d 62 75 66 66 65 72 | 20 6e 65 78 74 2d 77 69 |w-buffer| next-wi|
|00002010| 6e 64 6f 77 20 76 6d 2d | 66 72 61 6d 65 2d 73 65 |ndow vm-|frame-se|
|00002020| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 6e 6f |lected-w|indow no|
|00002030| 6d 69 6e 69 20 76 6d 2d | 65 72 72 6f 72 2d 66 72 |mini vm-|error-fr|
|00002040| 65 65 2d 63 61 6c 6c 20 | 76 6d 2d 64 65 6c 65 74 |ee-call |vm-delet|
|00002050| 65 2d 66 72 61 6d 65 5d | 20 36 5d 20 76 6d 2d 64 |e-frame]| 6] vm-d|
|00002060| 65 6c 65 74 65 2d 77 69 | 6e 64 6f 77 73 2d 6f 72 |elete-wi|ndows-or|
|00002070| 2d 66 72 61 6d 65 73 2d | 6f 6e 20 23 5b 28 62 75 |-frames-|on #[(bu|
|00002080| 66 66 65 72 29 20 22 08 | c1 3d 83 0b 00 c2 c3 5c |ffer) ".|.=.....\|
|00002090| 66 5c 22 88 0d 85 13 00 | c6 c3 5c 66 5c 22 87 22 |f\".....|..\f\"."|
|000020a0| 20 5b 76 6d 2d 6d 75 74 | 61 62 6c 65 2d 77 69 6e | [vm-mut|able-win|
|000020b0| 64 6f 77 73 20 74 20 76 | 6d 2d 77 69 6e 64 6f 77 |dows t v|m-window|
|000020c0| 2d 6c 6f 6f 70 20 64 65 | 6c 65 74 65 20 62 75 66 |-loop de|lete buf|
|000020d0| 66 65 72 20 76 6d 2d 6d | 75 74 61 62 6c 65 2d 66 |fer vm-m|utable-f|
|000020e0| 72 61 6d 65 73 20 76 6d | 2d 66 72 61 6d 65 2d 6c |rames vm|-frame-l|
|000020f0| 6f 6f 70 5d 20 33 5d 20 | 76 6d 2d 72 65 70 6c 61 |oop] 3] |vm-repla|
|00002100| 63 65 2d 62 75 66 66 65 | 72 2d 69 6e 2d 77 69 6e |ce-buffe|r-in-win|
|00002110| 64 6f 77 73 20 23 5b 28 | 6f 6c 64 20 6e 65 77 29 |dows #[(|old new)|
|00002120| 20 22 c0 c1 5c 6e 0b 23 | 87 22 20 5b 76 6d 2d 77 | "..\n.#|." [vm-w|
|00002130| 69 6e 64 6f 77 2d 6c 6f | 6f 70 20 72 65 70 6c 61 |indow-lo|op repla|
|00002140| 63 65 20 6f 6c 64 20 6e | 65 77 5d 20 34 5d 20 76 |ce old n|ew] 4] v|
|00002150| 6d 2d 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e |m-get-bu|ffer-win|
|00002160| 64 6f 77 20 23 5b 28 62 | 75 66 66 65 72 20 26 6f |dow #[(b|uffer &o|
|00002170| 70 74 69 6f 6e 61 6c 20 | 66 6f 72 63 65 2d 61 6c |ptional |force-al|
|00002180| 6c 2d 66 72 61 6d 65 73 | 29 20 22 c0 c1 c2 8f 87 |l-frames|) ".....|
|00002190| 22 20 5b 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |" [nil (|byte-cod|
|000021a0| 65 20 22 c0 09 5c 6e 84 | 5c 6e 00 0b 85 0b 00 c4 |e "..\n.|\n......|
|000021b0| 5c 22 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |\"." [ge|t-buffer|
|000021c0| 2d 77 69 6e 64 6f 77 20 | 62 75 66 66 65 72 20 76 |-window |buffer v|
|000021d0| 6d 2d 6d 75 74 61 62 6c | 65 2d 66 72 61 6d 65 73 |m-mutabl|e-frames|
|000021e0| 20 66 6f 72 63 65 2d 61 | 6c 6c 2d 66 72 61 6d 65 | force-a|ll-frame|
|000021f0| 73 20 74 5d 20 33 29 20 | 28 28 77 72 6f 6e 67 2d |s t] 3) |((wrong-|
|00002200| 6e 75 6d 62 65 72 2d 6f | 66 2d 61 72 67 75 6d 65 |number-o|f-argume|
|00002210| 6e 74 73 20 28 67 65 74 | 2d 62 75 66 66 65 72 2d |nts (get|-buffer-|
|00002220| 77 69 6e 64 6f 77 20 62 | 75 66 66 65 72 29 29 29 |window b|uffer)))|
|00002230| 5d 20 33 5d 20 76 6d 2d | 67 6f 74 6f 2d 6e 65 77 |] 3] vm-|goto-new|
|00002240| 2d 66 72 61 6d 65 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-frame #|[nil "..|
|00002250| 21 83 0b 00 c2 c1 20 21 | 87 c0 c3 21 83 16 00 c4 |!..... !|...!....|
|00002260| c3 20 21 87 c0 c5 21 85 | 20 00 c4 c5 20 21 87 22 |. !...!.| ... !."|
|00002270| 20 5b 66 62 6f 75 6e 64 | 70 20 6d 61 6b 65 2d 66 | [fbound|p make-f|
|00002280| 72 61 6d 65 20 73 65 6c | 65 63 74 2d 66 72 61 6d |rame sel|ect-fram|
|00002290| 65 20 6d 61 6b 65 2d 73 | 63 72 65 65 6e 20 73 65 |e make-s|creen se|
|000022a0| 6c 65 63 74 2d 73 63 72 | 65 65 6e 20 6e 65 77 2d |lect-scr|een new-|
|000022b0| 73 63 72 65 65 6e 5d 20 | 32 5d 20 76 6d 2d 73 65 |screen] |2] vm-se|
|000022c0| 6c 65 63 74 65 64 2d 66 | 72 61 6d 65 20 66 62 6f |lected-f|rame fbo|
|000022d0| 75 6e 64 70 20 73 65 6c | 65 63 74 65 64 2d 66 72 |undp sel|ected-fr|
|000022e0| 61 6d 65 20 73 65 6c 65 | 63 74 65 64 2d 73 63 72 |ame sele|cted-scr|
|000022f0| 65 65 6e 20 69 67 6e 6f | 72 65 20 6e 65 78 74 2d |een igno|re next-|
|00002300| 66 72 61 6d 65 20 76 6d | 2d 6e 65 78 74 2d 66 72 |frame vm|-next-fr|
|00002310| 61 6d 65 20 76 6d 2d 73 | 65 6c 65 63 74 2d 66 72 |ame vm-s|elect-fr|
|00002320| 61 6d 65 20 73 65 6c 65 | 63 74 2d 66 72 61 6d 65 |ame sele|ct-frame|
|00002330| 20 76 6d 2d 64 65 6c 65 | 74 65 2d 66 72 61 6d 65 | vm-dele|te-frame|
|00002340| 20 64 65 6c 65 74 65 2d | 66 72 61 6d 65 20 76 6d | delete-|frame vm|
|00002350| 2d 66 72 61 6d 65 2d 73 | 65 6c 65 63 74 65 64 2d |-frame-s|elected-|
|00002360| 77 69 6e 64 6f 77 20 66 | 72 61 6d 65 2d 73 65 6c |window f|rame-sel|
|00002370| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 6e 65 78 |ected-wi|ndow nex|
|00002380| 74 2d 73 63 72 65 65 6e | 20 73 65 6c 65 63 74 2d |t-screen| select-|
|00002390| 73 63 72 65 65 6e 20 64 | 65 6c 65 74 65 2d 73 63 |screen d|elete-sc|
|000023a0| 72 65 65 6e 20 65 70 6f | 63 68 3a 3a 73 65 6c 65 |reen epo|ch::sele|
|000023b0| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 73 63 72 65 |cted-win|dow scre|
|000023c0| 65 6e 2d 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |en-selec|ted-wind|
|000023d0| 6f 77 5d 20 33 29 0a | |ow] 3). | |
+--------+-------------------------+-------------------------+--------+--------+