/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / vm / vm-misc.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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 33 30 3a 30 | 31 20 31 39 39 35 0a 3b | 14:30:0|1 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 76 6d |e/editor|/lisp/vm|
|00000090| 2f 76 6d 2d 6d 69 73 63 | 2e 65 6c 0a 3b 3b 3b 20 |/vm-misc|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|).    (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 70 72 6f 76 69 64 65 20 | 27 76 6d 2d 6d 69 73 63 |provide |'vm-misc|
|00000200| 29 0a 28 66 73 65 74 20 | 27 76 6d 2d 64 65 6c 65 |).(fset |'vm-dele|
|00000210| 74 65 2d 6e 6f 6e 2d 6d | 61 74 63 68 69 6e 67 2d |te-non-m|atching-|
|00000220| 73 74 72 69 6e 67 73 20 | 23 5b 28 72 65 67 65 78 |strings |#[(regex|
|00000230| 70 20 6c 69 73 74 20 26 | 6f 70 74 69 6f 6e 61 6c |p list &|optional|
|00000240| 20 64 65 73 74 72 75 63 | 74 69 76 65 6c 79 29 20 | destruc|tively) |
|00000250| 22 08 ac 84 c1 5c 6e 21 | 12 5c 6e c3 1c 89 1d ab |"....\n!|.\n.....|
|00000260| a6 c6 0e 07 0d 40 5c 22 | ab 88 0d 14 0d 41 89 15 |.....@\"|.....A..|
|00000270| aa 6e 0c ac 88 5c 6e 41 | 89 12 89 15 aa 63 0c 0d |.n...\nA|.....c..|
|00000280| 41 a1 88 0d 41 89 15 ac | 5a 5c 6e 2a 87 22 20 5b |A...A...|Z\n*." [|
|00000290| 64 65 73 74 72 75 63 74 | 69 76 65 6c 79 20 63 6f |destruct|ively co|
|000002a0| 70 79 2d 73 65 71 75 65 | 6e 63 65 20 6c 69 73 74 |py-seque|nce list|
|000002b0| 20 6e 69 6c 20 70 72 65 | 76 20 63 75 72 72 20 73 | nil pre|v curr s|
|000002c0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 72 65 67 65 |tring-ma|tch rege|
|000002d0| 78 70 5d 20 34 20 22 5c | 0a 44 65 6c 65 74 65 20 |xp] 4 "\|.Delete |
|000002e0| 73 74 72 69 6e 67 73 20 | 6d 61 74 63 68 69 6e 67 |strings |matching|
|000002f0| 20 52 45 47 45 58 50 20 | 66 72 6f 6d 20 4c 49 53 | REGEXP |from LIS|
|00000300| 54 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 74 68 69 72 |T..Optio|nal thir|
|00000310| 64 20 61 72 67 20 6e 6f | 6e 2d 6e 69 6c 20 6d 65 |d arg no|n-nil me|
|00000320| 61 6e 73 20 74 6f 20 64 | 65 73 74 72 75 63 74 69 |ans to d|estructi|
|00000330| 76 65 6c 79 20 61 6c 74 | 65 72 20 4c 49 53 54 2c |vely alt|er LIST,|
|00000340| 20 69 6e 73 74 65 61 64 | 20 6f 66 0a 77 6f 72 6b | instead| of.work|
|00000350| 69 6e 67 20 6f 6e 20 61 | 20 63 6f 70 79 2e 0a 0a |ing on a| copy...|
|00000360| 54 68 65 20 6e 65 77 20 | 76 65 72 73 69 6f 6e 20 |The new |version |
|00000370| 6f 66 20 74 68 65 20 6c | 69 73 74 2c 20 6d 69 6e |of the l|ist, min|
|00000380| 75 73 20 74 68 65 20 64 | 65 6c 65 74 65 64 20 73 |us the d|eleted s|
|00000390| 74 72 69 6e 67 73 2c 20 | 69 73 20 72 65 74 75 72 |trings, |is retur|
|000003a0| 6e 65 64 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |ned."]).|(byte-co|
|000003b0| 64 65 20 22 c0 c1 4d 88 | c2 c3 4d 88 c4 c5 4d 88 |de "..M.|..M...M.|
|000003c0| c6 c7 4d 88 c8 c9 4d 88 | ca cb 4d 88 cc cd 4d 88 |..M...M.|..M...M.|
|000003d0| ce cf 4d 88 d0 d1 4d 88 | d2 d3 4d 88 d4 d5 d6 d7 |..M...M.|..M.....|
|000003e0| 23 88 d4 d5 d8 d9 23 88 | da db 4d 88 dc dd 4d 88 |#.....#.|..M...M.|
|000003f0| de df 4d 88 e0 e1 4d 88 | e2 e3 4d 88 e4 e5 4d 88 |..M...M.|..M...M.|
|00000400| e6 e7 4d 88 e8 e9 4d 88 | ea eb 4d 88 ec ed 4d 88 |..M...M.|..M...M.|
|00000410| ee ef 4d 88 f0 f1 4d 87 | 22 20 5b 76 6d 2d 70 61 |..M...M.|" [vm-pa|
|00000420| 72 73 65 20 23 5b 28 73 | 74 72 69 6e 67 20 72 65 |rse #[(s|tring re|
|00000430| 67 65 78 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6d |gexp &op|tional m|
|00000440| 61 74 63 68 6e 29 20 22 | 08 ac 82 c1 10 c2 1b c4 |atchn) "|........|
|00000450| c2 21 88 c5 0e 06 0e 07 | c8 95 23 ab 8c 0e 07 08 |.!......|..#.....|
|00000460| 94 08 95 4f 0b 42 13 aa | 6a 0b 9f 29 87 22 20 5b |...O.B..|j..)." [|
|00000470| 6d 61 74 63 68 6e 20 31 | 20 6e 69 6c 20 6c 69 73 |matchn 1| nil lis|
|00000480| 74 20 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |t store-|match-da|
|00000490| 74 61 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |ta strin|g-match |
|000004a0| 72 65 67 65 78 70 20 73 | 74 72 69 6e 67 20 30 5d |regexp s|tring 0]|
|000004b0| 20 34 5d 20 76 6d 2d 70 | 61 72 73 65 2d 61 64 64 | 4] vm-p|arse-add|
|000004c0| 72 65 73 73 65 73 20 23 | 5b 28 73 74 72 69 6e 67 |resses #|[(string|
|000004d0| 29 20 22 08 3f 3f 85 ce | 00 c1 1a 8a c3 8e c1 89 |) ".??..|........|
|000004e0| 89 89 1c 1d 1e 06 1e 07 | c8 c9 21 89 12 71 88 08 |........|..!..q..|
|000004f0| 63 88 65 62 88 ca c1 77 | 88 60 16 06 6d 84 b3 00 |c.eb...w|.`..m...|
|00000500| cb c1 77 88 67 89 14 cc | 55 ab 8b cd 75 88 6d ac |..w.g...|U...u.m.|
|00000510| 6b cd 75 88 aa 66 0c ce | 55 ab a2 0e 06 60 7b 15 |k.u..f..|U....`{.|
|00000520| cf d0 0d 5c 22 ab 85 0d | d1 98 ac 86 0d 0e 07 42 |...\"...|.......B|
|00000530| 16 07 cd 75 88 ca c1 77 | 88 60 16 06 aa 3f 0c d2 |...u...w|.`...?..|
|00000540| 55 ab 8b cd 75 88 d3 d4 | c1 d5 23 88 aa 2f 0c d6 |U...u...|..#../..|
|00000550| 55 ab 2a cd 1e 17 cd 75 | 88 6d ac a7 0e 17 d5 55 |U.*....u|.m.....U|
|00000560| ac a1 d3 d8 c1 d5 23 88 | 6d ac 6e 68 d6 55 ab 87 |......#.|m.nh.U..|
|00000570| 0e 17 54 16 17 aa 62 68 | d9 55 ab 5d 0e 17 53 16 |..T...bh|.U.]..S.|
|00000580| 17 aa 56 29 82 29 00 0e | 06 60 7b 15 cf d0 0d 5c |..V).)..|.`{....\|
|00000590| 22 ac 8b 0d d1 98 ac 86 | 0d 0e 07 42 16 07 0e 07 |".......|...B....|
|000005a0| 9f 2e 07 87 22 20 5b 73 | 74 72 69 6e 67 20 6e 69 |...." [s|tring ni|
|000005b0| 6c 20 77 6f 72 6b 2d 62 | 75 66 66 65 72 20 28 28 |l work-b|uffer ((|
|000005c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ab 84 c1 08 |byte-cod|e ".....|
|000005d0| 21 88 c1 87 22 20 5b 77 | 6f 72 6b 2d 62 75 66 66 |!..." [w|ork-buff|
|000005e0| 65 72 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |er kill-|buffer] |
|000005f0| 32 29 29 20 63 68 61 72 | 20 73 20 73 74 61 72 74 |2)) char| s start|
|00000600| 20 6c 69 73 74 20 67 65 | 6e 65 72 61 74 65 2d 6e | list ge|nerate-n|
|00000610| 65 77 2d 62 75 66 66 65 | 72 20 22 2a 76 6d 2d 77 |ew-buffe|r "*vm-w|
|00000620| 6f 72 6b 2a 22 20 22 09 | 0c 5c 6e 0d 20 22 20 22 |ork*" ".|.\n. " "|
|00000630| 5e 5c 22 5c 5c 2c 28 22 | 20 39 32 20 31 20 34 34 |^\"\\,("| 92 1 44|
|00000640| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00000650| 5b 09 0c 5c 6e 0d 20 5d | 2b 24 22 20 22 22 20 33 |[..\n. ]|+$" "" 3|
|00000660| 34 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |4 re-sea|rch-forw|
|00000670| 61 72 64 20 22 5b 5e 5c | 5c 5d 5c 22 22 20 30 20 |ard "[^\|\]\"" 0 |
|00000680| 34 30 20 70 61 72 65 6e | 73 20 22 5b 5e 5c 5c 5d |40 paren|s "[^\\]|
|00000690| 5b 28 29 5d 22 20 34 31 | 5d 20 35 5d 20 76 6d 2d |[()]" 41|] 5] vm-|
|000006a0| 77 72 69 74 65 2d 73 74 | 72 69 6e 67 20 23 5b 28 |write-st|ring #[(|
|000006b0| 77 68 65 72 65 20 73 74 | 72 69 6e 67 29 20 22 c0 |where st|ring) ".|
|000006c0| 09 21 ab 8e 70 1a c3 8e | 09 71 88 64 62 88 0c 63 |.!..p...|.q.db..c|
|000006d0| 2a 87 c5 1e 06 c7 8e 8a | c8 c9 21 89 16 06 71 88 |*.......|..!...q.|
|000006e0| 0c 63 88 ca 65 64 09 cb | cc 25 2b 87 22 20 5b 62 |.c..ed..|.%+." [b|
|000006f0| 75 66 66 65 72 70 20 77 | 68 65 72 65 20 76 6d 2d |ufferp w|here vm-|
|00000700| 73 62 65 2d 62 75 66 66 | 65 72 20 28 28 62 79 74 |sbe-buff|er ((byt|
|00000710| 65 2d 63 6f 64 65 20 22 | 08 70 3d ac 88 c1 08 21 |e-code "|.p=....!|
|00000720| ab 83 08 71 88 c1 87 22 | 20 5b 76 6d 2d 73 62 65 |...q..."| [vm-sbe|
|00000730| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 6e |-buffer |buffer-n|
|00000740| 61 6d 65 5d 20 32 29 29 | 20 73 74 72 69 6e 67 20 |ame] 2))| string |
|00000750| 6e 69 6c 20 74 65 6d 70 | 2d 62 75 66 66 65 72 20 |nil temp|-buffer |
|00000760| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ab 84 |((byte-c|ode "...|
|00000770| c1 08 21 88 c1 87 22 20 | 5b 74 65 6d 70 2d 62 75 |..!..." |[temp-bu|
|00000780| 66 66 65 72 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ffer kil|l-buffer|
|00000790| 5d 20 32 29 29 20 67 65 | 6e 65 72 61 74 65 2d 6e |] 2)) ge|nerate-n|
|000007a0| 65 77 2d 62 75 66 66 65 | 72 20 22 2a 76 6d 2d 77 |ew-buffe|r "*vm-w|
|000007b0| 6f 72 6b 2a 22 20 77 72 | 69 74 65 2d 72 65 67 69 |ork*" wr|ite-regi|
|000007c0| 6f 6e 20 74 20 71 75 69 | 65 74 5d 20 37 5d 20 76 |on t qui|et] 7] v|
|000007d0| 6d 2d 6d 61 72 6b 65 72 | 20 28 6d 61 63 72 6f 20 |m-marker| (macro |
|000007e0| 2e 20 23 5b 28 70 6f 73 | 20 26 6f 70 74 69 6f 6e |. #[(pos| &option|
|000007f0| 61 6c 20 62 75 66 66 65 | 72 29 20 22 c0 c1 5c 6e |al buffe|r) "..\n|
|00000800| 0b 46 87 22 20 5b 73 65 | 74 2d 6d 61 72 6b 65 72 |.F." [se|t-marker|
|00000810| 20 28 6d 61 6b 65 2d 6d | 61 72 6b 65 72 29 20 70 | (make-m|arker) p|
|00000820| 6f 73 20 62 75 66 66 65 | 72 5d 20 34 5d 29 20 76 |os buffe|r] 4]) v|
|00000830| 6d 2d 69 6e 63 72 65 6d | 65 6e 74 20 28 6d 61 63 |m-increm|ent (mac|
|00000840| 72 6f 20 2e 20 23 5b 28 | 76 61 72 69 61 62 6c 65 |ro . #[(|variable|
|00000850| 29 20 22 c0 09 c2 09 44 | 45 87 22 20 5b 73 65 74 |) "....D|E." [set|
|00000860| 71 20 76 61 72 69 61 62 | 6c 65 20 31 2b 5d 20 34 |q variab|le 1+] 4|
|00000870| 5d 29 20 76 6d 2d 64 65 | 63 72 65 6d 65 6e 74 20 |]) vm-de|crement |
|00000880| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 76 61 72 69 |(macro .| #[(vari|
|00000890| 61 62 6c 65 29 20 22 c0 | 09 c2 09 44 45 87 22 20 |able) ".|...DE." |
|000008a0| 5b 73 65 74 71 20 76 61 | 72 69 61 62 6c 65 20 31 |[setq va|riable 1|
|000008b0| 2d 5d 20 34 5d 29 20 76 | 6d 2d 73 65 6c 65 63 74 |-] 4]) v|m-select|
|000008c0| 2d 66 6f 6c 64 65 72 2d | 62 75 66 66 65 72 20 28 |-folder-|buffer (|
|000008d0| 6d 61 63 72 6f 20 2e 20 | 23 5b 6e 69 6c 20 22 c0 |macro . |#[nil ".|
|000008e0| 87 22 20 5b 28 61 6e 64 | 20 76 6d 2d 6d 61 69 6c |." [(and| vm-mail|
|000008f0| 2d 62 75 66 66 65 72 20 | 28 6f 72 20 28 62 75 66 |-buffer |(or (buf|
|00000900| 66 65 72 2d 6e 61 6d 65 | 20 76 6d 2d 6d 61 69 6c |fer-name| vm-mail|
|00000910| 2d 62 75 66 66 65 72 29 | 20 28 65 72 72 6f 72 20 |-buffer)| (error |
|00000920| 22 46 6f 6c 64 65 72 20 | 62 75 66 66 65 72 20 68 |"Folder |buffer h|
|00000930| 61 73 20 62 65 65 6e 20 | 6b 69 6c 6c 65 64 2e 22 |as been |killed."|
|00000940| 29 29 20 28 73 65 74 2d | 62 75 66 66 65 72 20 76 |)) (set-|buffer v|
|00000950| 6d 2d 6d 61 69 6c 2d 62 | 75 66 66 65 72 29 29 5d |m-mail-b|uffer))]|
|00000960| 20 31 5d 29 20 76 6d 2d | 63 68 65 63 6b 2d 66 6f | 1]) vm-|check-fo|
|00000970| 72 2d 6b 69 6c 6c 65 64 | 2d 73 75 6d 6d 61 72 79 |r-killed|-summary|
|00000980| 20 23 5b 6e 69 6c 20 22 | c0 09 21 ad a5 c2 09 21 | #[nil "|..!....!|
|00000990| 3f ad 9f 0b 1c c5 11 0c | ad 97 0c 40 c6 48 c7 c5 |?.......|...@.H..|
|000009a0| 49 88 0c 40 c6 48 c8 c5 | 49 88 0c 41 89 14 ac 6a |I..@.H..|I..A...j|
|000009b0| c5 29 87 22 20 5b 62 75 | 66 66 65 72 70 20 76 6d |.)." [bu|fferp vm|
|000009c0| 2d 73 75 6d 6d 61 72 79 | 2d 62 75 66 66 65 72 20 |-summary|-buffer |
|000009d0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 76 6d 2d 6d |buffer-n|ame vm-m|
|000009e0| 65 73 73 61 67 65 2d 6c | 69 73 74 20 6d 70 20 6e |essage-l|ist mp n|
|000009f0| 69 6c 20 31 20 33 20 34 | 5d 20 34 5d 20 76 6d 2d |il 1 3 4|] 4] vm-|
|00000a00| 63 68 65 63 6b 2d 66 6f | 72 2d 6b 69 6c 6c 65 64 |check-fo|r-killed|
|00000a10| 2d 66 6f 6c 64 65 72 20 | 23 5b 6e 69 6c 20 22 c0 |-folder |#[nil ".|
|00000a20| 09 21 ad 89 c2 09 21 3f | ad 83 c3 89 11 87 22 20 |.!....!?|......" |
|00000a30| 5b 62 75 66 66 65 72 70 | 20 76 6d 2d 6d 61 69 6c |[bufferp| vm-mail|
|00000a40| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 6e |-buffer |buffer-n|
|00000a50| 61 6d 65 20 6e 69 6c 5d | 20 32 5d 20 76 6d 2d 65 |ame nil]| 2] vm-e|
|00000a60| 72 72 6f 72 2d 69 66 2d | 66 6f 6c 64 65 72 2d 72 |rror-if-|folder-r|
|00000a70| 65 61 64 2d 6f 6e 6c 79 | 20 28 6d 61 63 72 6f 20 |ead-only| (macro |
|00000a80| 2e 20 23 5b 6e 69 6c 20 | 22 c0 87 22 20 5b 28 77 |. #[nil |".." [(w|
|00000a90| 68 69 6c 65 20 76 6d 2d | 66 6f 6c 64 65 72 2d 72 |hile vm-|folder-r|
|00000aa0| 65 61 64 2d 6f 6e 6c 79 | 20 28 73 69 67 6e 61 6c |ead-only| (signal|
|00000ab0| 20 27 66 6f 6c 64 65 72 | 2d 72 65 61 64 2d 6f 6e | 'folder|-read-on|
|00000ac0| 6c 79 20 28 6c 69 73 74 | 20 28 63 75 72 72 65 6e |ly (list| (curren|
|00000ad0| 74 2d 62 75 66 66 65 72 | 29 29 29 29 5d 20 31 5d |t-buffer|))))] 1]|
|00000ae0| 29 20 70 75 74 20 66 6f | 6c 64 65 72 2d 72 65 61 |) put fo|lder-rea|
|00000af0| 64 2d 6f 6e 6c 79 20 65 | 72 72 6f 72 2d 63 6f 6e |d-only e|rror-con|
|00000b00| 64 69 74 69 6f 6e 73 20 | 28 66 6f 6c 64 65 72 2d |ditions |(folder-|
|00000b10| 72 65 61 64 2d 6f 6e 6c | 79 20 65 72 72 6f 72 29 |read-onl|y error)|
|00000b20| 20 65 72 72 6f 72 2d 6d | 65 73 73 61 67 65 20 22 | error-m|essage "|
|00000b30| 46 6f 6c 64 65 72 20 69 | 73 20 72 65 61 64 2d 6f |Folder i|s read-o|
|00000b40| 6e 6c 79 22 20 76 6d 2d | 65 72 72 6f 72 2d 69 66 |nly" vm-|error-if|
|00000b50| 2d 76 69 72 74 75 61 6c | 2d 66 6f 6c 64 65 72 20 |-virtual|-folder |
|00000b60| 28 6d 61 63 72 6f 20 2e | 20 23 5b 6e 69 6c 20 22 |(macro .| #[nil "|
|00000b70| c0 87 22 20 5b 28 61 6e | 64 20 28 65 71 20 6d 61 |.." [(an|d (eq ma|
|00000b80| 6a 6f 72 2d 6d 6f 64 65 | 20 27 76 6d 2d 76 69 72 |jor-mode| 'vm-vir|
|00000b90| 74 75 61 6c 2d 6d 6f 64 | 65 29 20 28 65 72 72 6f |tual-mod|e) (erro|
|00000ba0| 72 20 22 25 73 20 63 61 | 6e 6e 6f 74 20 62 65 20 |r "%s ca|nnot be |
|00000bb0| 61 70 70 6c 69 65 64 20 | 74 6f 20 76 69 72 74 75 |applied |to virtu|
|00000bc0| 61 6c 20 66 6f 6c 64 65 | 72 73 2e 22 20 74 68 69 |al folde|rs." thi|
|00000bd0| 73 2d 63 6f 6d 6d 61 6e | 64 29 29 5d 20 31 5d 29 |s-comman|d))] 1])|
|00000be0| 20 76 6d 2d 62 75 69 6c | 64 2d 74 68 72 65 61 64 | vm-buil|d-thread|
|00000bf0| 73 2d 69 66 2d 75 6e 62 | 75 69 6c 74 20 28 6d 61 |s-if-unb|uilt (ma|
|00000c00| 63 72 6f 20 2e 20 23 5b | 6e 69 6c 20 22 c0 87 22 |cro . #[|nil ".."|
|00000c10| 20 5b 28 69 66 20 28 6e | 75 6c 6c 20 76 6d 2d 74 | [(if (n|ull vm-t|
|00000c20| 68 72 65 61 64 2d 6f 62 | 61 72 72 61 79 29 20 28 |hread-ob|array) (|
|00000c30| 76 6d 2d 62 75 69 6c 64 | 2d 74 68 72 65 61 64 73 |vm-build|-threads|
|00000c40| 20 6e 69 6c 29 29 5d 20 | 31 5d 29 20 76 6d 2d 61 | nil))] |1]) vm-a|
|00000c50| 62 73 20 23 5b 28 6e 29 | 20 22 08 c1 57 ab 83 08 |bs #[(n)| "..W...|
|00000c60| 5b 87 08 87 22 20 5b 6e | 20 30 5d 20 32 5d 20 76 |[..." [n| 0] 2] v|
|00000c70| 6d 2d 73 61 76 65 2d 72 | 65 73 74 72 69 63 74 69 |m-save-r|estricti|
|00000c80| 6f 6e 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 26 |on (macr|o . #[(&|
|00000c90| 72 65 73 74 20 66 6f 72 | 6d 73 29 20 22 c0 c1 21 |rest for|ms) "..!|
|00000ca0| c0 c2 21 c0 c3 21 1c 1d | 1e 06 c7 0e 06 c8 44 0d |..!..!..|......D.|
|00000cb0| 0c 45 c9 0e 06 ca 0d cb | 45 ca 0c cc 45 46 cd ce |.E......|E...EF..|
|00000cc0| 0e 0f 42 d0 c9 0e 06 ce | d1 0d 0c 45 d2 0d d3 45 |..B.....|...E...E|
|00000cd0| d2 0c d3 45 46 45 46 46 | 2b 87 22 20 5b 6d 61 6b |...EFEFF|+." [mak|
|00000ce0| 65 2d 73 79 6d 62 6f 6c | 20 22 76 6d 2d 73 72 2d |e-symbol| "vm-sr-|
|00000cf0| 63 6c 69 70 22 20 22 76 | 6d 2d 73 72 2d 6d 69 6e |clip" "v|m-sr-min|
|00000d00| 22 20 22 76 6d 2d 73 72 | 2d 6d 61 78 22 20 76 6d |" "vm-sr|-max" vm|
|00000d10| 2d 73 72 2d 6d 61 78 20 | 76 6d 2d 73 72 2d 6d 69 |-sr-max |vm-sr-mi|
|00000d20| 6e 20 76 6d 2d 73 72 2d | 63 6c 69 70 20 6c 65 74 |n vm-sr-|clip let|
|00000d30| 20 28 3e 20 28 62 75 66 | 66 65 72 2d 73 69 7a 65 | (> (buf|fer-size|
|00000d40| 29 20 28 2d 20 28 70 6f | 69 6e 74 2d 6d 61 78 29 |) (- (po|int-max)|
|00000d50| 20 28 70 6f 69 6e 74 2d | 6d 69 6e 29 29 29 20 61 | (point-|min))) a|
|00000d60| 6e 64 20 73 65 74 71 20 | 28 73 65 74 2d 6d 61 72 |nd setq |(set-mar|
|00000d70| 6b 65 72 20 28 6d 61 6b | 65 2d 6d 61 72 6b 65 72 |ker (mak|e-marker|
|00000d80| 29 20 28 70 6f 69 6e 74 | 2d 6d 69 6e 29 29 20 28 |) (point|-min)) (|
|00000d90| 73 65 74 2d 6d 61 72 6b | 65 72 20 28 6d 61 6b 65 |set-mark|er (make|
|00000da0| 2d 6d 61 72 6b 65 72 29 | 20 28 70 6f 69 6e 74 2d |-marker)| (point-|
|00000db0| 6d 61 78 29 29 20 75 6e | 77 69 6e 64 2d 70 72 6f |max)) un|wind-pro|
|00000dc0| 74 65 63 74 20 70 72 6f | 67 6e 20 66 6f 72 6d 73 |tect pro|gn forms|
|00000dd0| 20 28 77 69 64 65 6e 29 | 20 6e 61 72 72 6f 77 2d | (widen)| narrow-|
|00000de0| 74 6f 2d 72 65 67 69 6f | 6e 20 73 65 74 2d 6d 61 |to-regio|n set-ma|
|00000df0| 72 6b 65 72 20 6e 69 6c | 5d 20 31 34 5d 29 20 76 |rker nil|] 14]) v|
|00000e00| 6d 2d 73 61 76 65 2d 62 | 75 66 66 65 72 2d 65 78 |m-save-b|uffer-ex|
|00000e10| 63 75 72 73 69 6f 6e 20 | 28 6d 61 63 72 6f 20 2e |cursion |(macro .|
|00000e20| 20 23 5b 28 26 72 65 73 | 74 20 66 6f 72 6d 73 29 | #[(&res|t forms)|
|00000e30| 20 22 c0 c1 c2 c3 0c 42 | c5 45 45 87 22 20 5b 6c | ".....B|.EE." [l|
|00000e40| 65 74 20 28 28 76 6d 2d | 73 62 65 2d 62 75 66 66 |et ((vm-|sbe-buff|
|00000e50| 65 72 20 28 63 75 72 72 | 65 6e 74 2d 62 75 66 66 |er (curr|ent-buff|
|00000e60| 65 72 29 29 29 20 75 6e | 77 69 6e 64 2d 70 72 6f |er))) un|wind-pro|
|00000e70| 74 65 63 74 20 70 72 6f | 67 6e 20 66 6f 72 6d 73 |tect pro|gn forms|
|00000e80| 20 28 61 6e 64 20 28 6e | 6f 74 20 28 65 71 20 76 | (and (n|ot (eq v|
|00000e90| 6d 2d 73 62 65 2d 62 75 | 66 66 65 72 20 28 63 75 |m-sbe-bu|ffer (cu|
|00000ea0| 72 72 65 6e 74 2d 62 75 | 66 66 65 72 29 29 29 20 |rrent-bu|ffer))) |
|00000eb0| 28 62 75 66 66 65 72 2d | 6e 61 6d 65 20 76 6d 2d |(buffer-|name vm-|
|00000ec0| 73 62 65 2d 62 75 66 66 | 65 72 29 20 28 73 65 74 |sbe-buff|er) (set|
|00000ed0| 2d 62 75 66 66 65 72 20 | 76 6d 2d 73 62 65 2d 62 |-buffer |vm-sbe-b|
|00000ee0| 75 66 66 65 72 29 29 5d | 20 35 5d 29 20 76 6d 2d |uffer))]| 5]) vm-|
|00000ef0| 6c 61 73 74 20 23 5b 28 | 6c 69 73 74 29 20 22 08 |last #[(|list) ".|
|00000f00| a3 ab 86 08 41 89 10 aa | 77 08 87 22 20 5b 6c 69 |....A...|w.." [li|
|00000f10| 73 74 5d 20 32 5d 20 76 | 6d 2d 76 65 63 74 6f 72 |st] 2] v|m-vector|
|00000f20| 2d 74 6f 2d 6c 69 73 74 | 20 23 5b 28 76 65 63 74 |-to-list| #[(vect|
|00000f30| 6f 72 29 20 22 08 47 53 | c1 1a 89 1b c4 59 ab 8c |or) ".GS|.....Y..|
|00000f40| 08 0b 48 5c 6e 42 12 0b | 53 89 13 aa 70 5c 6e 2a |..H\nB..|S...p\n*|
|00000f50| 87 22 20 5b 76 65 63 74 | 6f 72 20 6e 69 6c 20 6c |." [vect|or nil l|
|00000f60| 69 73 74 20 69 20 30 5d | 20 33 5d 20 76 6d 2d 65 |ist i 0]| 3] vm-e|
|00000f70| 78 74 65 6e 64 2d 76 65 | 63 74 6f 72 20 23 5b 28 |xtend-ve|ctor #[(|
|00000f80| 76 65 63 74 6f 72 20 6c | 65 6e 67 74 68 20 26 6f |vector l|ength &o|
|00000f90| 70 74 69 6f 6e 61 6c 20 | 66 69 6c 6c 29 20 22 08 |ptional |fill) ".|
|00000fa0| 47 89 19 5c 6e 57 ab 90 | c3 c0 c4 08 21 c5 5c 6e |G..\nW..|....!.\n|
|00000fb0| 09 5a 0e 06 5c 22 a4 5c | 22 aa 81 08 29 87 22 20 |.Z..\".\|"...)." |
|00000fc0| 5b 76 65 63 74 6f 72 20 | 76 6c 65 6e 67 74 68 20 |[vector |vlength |
|00000fd0| 6c 65 6e 67 74 68 20 61 | 70 70 6c 79 20 76 6d 2d |length a|pply vm-|
|00000fe0| 76 65 63 74 6f 72 2d 74 | 6f 2d 6c 69 73 74 20 6d |vector-t|o-list m|
|00000ff0| 61 6b 65 2d 6c 69 73 74 | 20 66 69 6c 6c 5d 20 37 |ake-list| fill] 7|
|00001000| 5d 20 76 6d 2d 6f 62 61 | 72 72 61 79 2d 74 6f 2d |] vm-oba|rray-to-|
|00001010| 73 74 72 69 6e 67 2d 6c | 69 73 74 20 23 5b 28 6f |string-l|ist #[(o|
|00001020| 62 61 72 72 61 79 29 20 | 22 c0 19 c2 c3 0c 5c 22 |barray) |".....\"|
|00001030| 88 09 29 87 22 20 5b 6e | 69 6c 20 6c 69 73 74 20 |..)." [n|il list |
|00001040| 6d 61 70 61 74 6f 6d 73 | 20 23 5b 28 73 29 20 22 |mapatoms| #[(s) "|
|00001050| c0 09 21 5c 6e 42 89 12 | 87 22 20 5b 73 79 6d 62 |..!\nB..|." [symb|
|00001060| 6f 6c 2d 6e 61 6d 65 20 | 73 20 6c 69 73 74 5d 20 |ol-name |s list] |
|00001070| 32 5d 20 6f 62 61 72 72 | 61 79 5d 20 33 5d 20 76 |2] obarr|ay] 3] v|
|00001080| 6d 2d 6d 61 70 63 61 72 | 20 23 5b 28 66 75 6e 63 |m-mapcar| #[(func|
|00001090| 74 69 6f 6e 20 26 72 65 | 73 74 20 6c 69 73 74 73 |tion &re|st lists|
|000010a0| 29 20 22 c0 89 19 1a 0b | 40 ab 95 c4 c5 0b 5c 22 |) ".....|@.....\"|
|000010b0| 12 c6 0e 07 5c 6e 5c 22 | 09 42 11 c4 c8 0b 5c 22 |....\n\"|.B....\"|
|000010c0| 89 13 aa 68 09 9f 2a 87 | 22 20 5b 6e 69 6c 20 72 |...h..*.|" [nil r|
|000010d0| 65 73 75 6c 74 20 61 72 | 67 6c 69 73 74 20 6c 69 |esult ar|glist li|
|000010e0| 73 74 73 20 6d 61 70 63 | 61 72 20 63 61 72 20 61 |sts mapc|ar car a|
|000010f0| 70 70 6c 79 20 66 75 6e | 63 74 69 6f 6e 20 63 64 |pply fun|ction cd|
|00001100| 72 5d 20 34 5d 20 76 6d | 2d 6d 61 70 63 20 23 5b |r] 4] vm|-mapc #[|
|00001110| 28 66 75 6e 63 74 69 6f | 6e 20 26 72 65 73 74 20 |(functio|n &rest |
|00001120| 6c 69 73 74 73 29 20 22 | c0 19 5c 6e 40 ad 93 c3 |lists) "|..\n@...|
|00001130| c4 5c 6e 5c 22 11 c5 0e | 06 09 5c 22 88 c3 c7 5c |.\n\"...|..\"...\|
|00001140| 6e 5c 22 89 12 aa 6a 29 | 87 22 20 5b 6e 69 6c 20 |n\"...j)|." [nil |
|00001150| 61 72 67 6c 69 73 74 20 | 6c 69 73 74 73 20 6d 61 |arglist |lists ma|
|00001160| 70 63 61 72 20 63 61 72 | 20 61 70 70 6c 79 20 66 |pcar car| apply f|
|00001170| 75 6e 63 74 69 6f 6e 20 | 63 64 72 5d 20 34 5d 20 |unction |cdr] 4] |
|00001180| 76 6d 2d 64 65 6c 65 74 | 65 20 23 5b 28 70 72 65 |vm-delet|e #[(pre|
|00001190| 64 69 63 61 74 65 20 6c | 69 73 74 20 26 6f 70 74 |dicate l|ist &opt|
|000011a0| 69 6f 6e 61 6c 20 72 65 | 76 65 72 73 65 29 20 22 |ional re|verse) "|
|000011b0| 08 09 ab 83 c2 aa 81 c3 | c4 1d 19 89 1e 06 ab af |........|........|
|000011c0| 09 0e 07 0e 06 40 21 21 | ab 9a 0d ac 89 08 41 89 |.....@!!|......A.|
|000011d0| 10 89 16 06 aa 68 0d 0e | 06 41 a1 88 0e 06 41 89 |.....h..|.A....A.|
|000011e0| 16 06 aa 5a 0e 06 15 0e | 06 41 89 16 06 ac 51 08 |...Z....|.A....Q.|
|000011f0| 2b 87 22 20 5b 6c 69 73 | 74 20 72 65 76 65 72 73 |+." [lis|t revers|
|00001200| 65 20 6e 6f 74 20 69 64 | 65 6e 74 69 74 79 20 6e |e not id|entity n|
|00001210| 69 6c 20 70 72 65 76 20 | 70 20 70 72 65 64 69 63 |il prev |p predic|
|00001220| 61 74 65 5d 20 34 5d 5d | 20 34 29 0a 28 66 73 65 |ate] 4]]| 4).(fse|
|00001230| 74 20 27 76 6d 2d 64 65 | 6c 65 74 65 2d 64 75 70 |t 'vm-de|lete-dup|
|00001240| 6c 69 63 61 74 65 73 20 | 23 5b 28 6c 69 73 74 20 |licates |#[(list |
|00001250| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 6c 6c 20 68 61 |&optiona|l all ha|
|00001260| 63 6b 2d 61 64 64 72 65 | 73 73 65 73 29 20 22 08 |ck-addre|sses) ".|
|00001270| c1 89 89 1a 1b 1c 1d c6 | 0d c7 5c 22 88 0e 08 ab |........|..\"....|
|00001280| b9 0e 09 ab 8a 0e 5c 6e | 0e 08 40 21 41 40 aa 83 |......\n|..@!A@..|
|00001290| 0e 08 40 13 cb 0b 0d 5c | 22 12 cc 5c 6e 21 ab 8b |..@....\|"..\n!..|
|000012a0| 0e 0d ab 91 5c 6e 4a c1 | a0 88 aa 8a 0e 08 40 0c |....\nJ.|......@.|
|000012b0| 42 14 5c 6e 0c 4c 88 0e | 08 41 89 16 08 ac 47 ce |B.\n.L..|.A....G.|
|000012c0| c1 0c 9f 5c 22 2c 87 22 | 20 5b 76 6d 2d 64 65 6c |...\",."| [vm-del|
|000012d0| 65 74 65 2d 64 75 70 6c | 69 63 61 74 65 73 2d 6f |ete-dupl|icates-o|
|000012e0| 62 61 72 72 61 79 20 6e | 69 6c 20 73 79 6d 20 73 |barray n|il sym s|
|000012f0| 79 6d 2d 73 74 72 69 6e | 67 20 6e 65 77 2d 6c 69 |ym-strin|g new-li|
|00001300| 73 74 20 68 61 73 68 74 | 61 62 6c 65 20 66 69 6c |st hasht|able fil|
|00001310| 6c 61 72 72 61 79 20 30 | 20 6c 69 73 74 20 68 61 |larray 0| list ha|
|00001320| 63 6b 2d 61 64 64 72 65 | 73 73 65 73 20 76 6d 2d |ck-addre|sses vm-|
|00001330| 63 68 6f 70 2d 66 75 6c | 6c 2d 6e 61 6d 65 2d 66 |chop-ful|l-name-f|
|00001340| 75 6e 63 74 69 6f 6e 20 | 69 6e 74 65 72 6e 20 62 |unction |intern b|
|00001350| 6f 75 6e 64 70 20 61 6c | 6c 20 64 65 6c 71 5d 20 |oundp al|l delq] |
|00001360| 35 20 22 5c 0a 44 65 6c | 65 74 65 20 64 75 70 6c |5 "\.Del|ete dupl|
|00001370| 69 63 61 74 65 20 65 71 | 75 69 76 61 6c 65 6e 74 |icate eq|uivalent|
|00001380| 20 73 74 72 69 6e 67 73 | 20 66 72 6f 6d 20 74 68 | strings| from th|
|00001390| 65 20 6c 69 73 74 2e 0a | 49 66 20 41 4c 4c 20 69 |e list..|If ALL i|
|000013a0| 73 20 74 2c 20 74 68 65 | 6e 20 69 66 20 74 68 65 |s t, the|n if the|
|000013b0| 72 65 20 69 73 20 6d 6f | 72 65 20 74 68 61 6e 20 |re is mo|re than |
|000013c0| 6f 6e 65 20 6f 63 63 75 | 72 72 65 6e 63 65 20 6f |one occu|rrence o|
|000013d0| 66 20 61 20 73 74 72 69 | 6e 67 20 69 6e 20 74 68 |f a stri|ng in th|
|000013e0| 65 20 6c 69 73 74 2c 0a | 20 74 68 65 6e 20 61 6c |e list,.| then al|
|000013f0| 6c 20 6f 63 63 75 72 72 | 65 6e 63 65 73 20 6f 66 |l occurr|ences of|
|00001400| 20 69 74 20 61 72 65 20 | 72 65 6d 6f 76 65 64 20 | it are |removed |
|00001410| 69 6e 73 74 65 61 64 20 | 6f 66 20 6a 75 73 74 20 |instead |of just |
|00001420| 74 68 65 20 73 75 62 73 | 65 71 75 65 6e 74 20 6f |the subs|equent o|
|00001430| 6e 65 73 2e 0a 49 66 20 | 48 41 43 4b 2d 41 44 44 |nes..If |HACK-ADD|
|00001440| 52 45 53 53 45 53 20 69 | 73 20 74 2c 20 74 68 65 |RESSES i|s t, the|
|00001450| 6e 20 74 68 65 20 73 74 | 72 69 6e 67 73 20 61 72 |n the st|rings ar|
|00001460| 65 20 63 6f 6e 73 69 64 | 65 72 65 64 20 74 6f 20 |e consid|ered to |
|00001470| 62 65 20 6d 61 69 6c 20 | 61 64 64 72 65 73 73 65 |be mail |addresse|
|00001480| 73 2c 0a 20 61 6e 64 20 | 6f 6e 6c 79 20 74 68 65 |s,. and |only the|
|00001490| 20 61 64 64 72 65 73 73 | 20 70 61 72 74 20 69 73 | address| part is|
|000014a0| 20 63 6f 6d 70 61 72 65 | 64 20 28 73 6f 20 74 68 | compare|d (so th|
|000014b0| 61 74 20 5c 22 4e 61 6d | 65 20 3c 66 6f 6f 3e 5c |at \"Nam|e <foo>\|
|000014c0| 22 20 61 6e 64 20 5c 22 | 66 6f 6f 5c 22 0a 20 77 |" and \"|foo\". w|
|000014d0| 6f 75 6c 64 20 62 65 20 | 63 6f 6e 73 69 64 65 72 |ould be |consider|
|000014e0| 65 64 20 74 6f 20 62 65 | 20 65 71 75 69 76 61 6c |ed to be| equival|
|000014f0| 65 6e 74 2e 29 22 5d 29 | 0a 28 62 79 74 65 2d 63 |ent.)"])|.(byte-c|
|00001500| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 c4 21 ab 83 c4 |ode "..M|....!...|
|00001510| aa 81 c0 4b 4d 88 c5 c6 | 4d 88 c7 c8 4d 88 c9 ca |...KM...|M...M...|
|00001520| cb cc 23 88 c9 ca cd ce | 23 88 c9 cf cb d0 23 88 |..#.....|#.....#.|
|00001530| c9 cf cd d1 23 88 d2 d3 | 4d 88 d4 d5 4d 88 d6 d7 |....#...|M...M...|
|00001540| 4d 88 d8 d9 4d 88 da db | 4d 88 dc dd 4d 88 de df |M...M...|M...M...|
|00001550| 4d 88 e0 e1 4d 88 e2 e3 | 4d 88 e4 e5 4d 88 c9 e6 |M...M...|M...M...|
|00001560| cb e7 23 88 c9 e6 cd e8 | 23 88 c9 e9 cb ea 23 88 |..#.....|#.....#.|
|00001570| c9 e9 cd eb 23 88 ec ed | 4d 88 ee ef 4d 88 f0 f1 |....#...|M...M...|
|00001580| 4d 88 f2 f3 4d 88 f4 f5 | 4d 87 22 20 5b 76 6d 2d |M...M...|M." [vm-|
|00001590| 6d 65 6d 62 65 72 2d 30 | 20 23 5b 28 74 68 69 6e |member-0| #[(thin|
|000015a0| 67 20 6c 69 73 74 29 20 | 22 c0 c1 8d 87 22 20 5b |g list) |"...." [|
|000015b0| 64 6f 6e 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |done (by|te-code |
|000015c0| 22 08 ab 91 08 40 09 9a | ab 85 c2 c3 08 5c 22 88 |"....@..|.....\".|
|000015d0| 08 41 89 10 ac 6f c4 87 | 22 20 5b 6c 69 73 74 20 |.A...o..|" [list |
|000015e0| 74 68 69 6e 67 20 74 68 | 72 6f 77 20 64 6f 6e 65 |thing th|row done|
|000015f0| 20 6e 69 6c 5d 20 34 29 | 5d 20 32 5d 20 76 6d 2d | nil] 4)|] 2] vm-|
|00001600| 6d 65 6d 62 65 72 20 66 | 62 6f 75 6e 64 70 20 6d |member f|boundp m|
|00001610| 65 6d 62 65 72 20 76 6d | 2d 64 65 6c 71 75 61 6c |ember vm|-delqual|
|00001620| 20 23 5b 28 6f 62 20 6c | 69 73 74 29 20 22 c0 09 | #[(ob l|ist) "..|
|00001630| 1a 1b 5c 6e ab a2 0c 5c | 6e 40 9a ac 88 5c 6e 13 |..\n...\|n@...\n.|
|00001640| 5c 6e 41 89 12 aa 70 0b | ac 88 09 41 89 11 89 12 |\nA...p.|...A....|
|00001650| aa 65 5c 6e 41 12 0b 5c | 6e a1 88 aa 5b 09 2a 87 |.e\nA..\|n...[.*.|
|00001660| 22 20 5b 6e 69 6c 20 6c | 69 73 74 20 63 75 72 72 |" [nil l|ist curr|
|00001670| 20 70 72 65 76 20 6f 62 | 5d 20 33 5d 20 76 6d 2d | prev ob|] 3] vm-|
|00001680| 63 6f 70 79 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |copy-loc|al-varia|
|00001690| 62 6c 65 73 20 23 5b 28 | 62 75 66 66 65 72 20 26 |bles #[(|buffer &|
|000016a0| 72 65 73 74 20 76 61 72 | 69 61 62 6c 65 73 29 20 |rest var|iables) |
|000016b0| 22 c0 c1 5c 6e 5c 22 1b | 8a 0c 71 88 c5 c6 5c 6e |"..\n\".|..q...\n|
|000016c0| 0b 23 2a 87 22 20 5b 6d | 61 70 63 61 72 20 73 79 |.#*." [m|apcar sy|
|000016d0| 6d 62 6f 6c 2d 76 61 6c | 75 65 20 76 61 72 69 61 |mbol-val|ue varia|
|000016e0| 62 6c 65 73 20 76 61 6c | 75 65 73 20 62 75 66 66 |bles val|ues buff|
|000016f0| 65 72 20 76 6d 2d 6d 61 | 70 63 20 73 65 74 5d 20 |er vm-ma|pc set] |
|00001700| 34 5d 20 70 75 74 20 66 | 6f 6c 64 65 72 2d 65 6d |4] put f|older-em|
|00001710| 70 74 79 20 65 72 72 6f | 72 2d 63 6f 6e 64 69 74 |pty erro|r-condit|
|00001720| 69 6f 6e 73 20 28 66 6f | 6c 64 65 72 2d 65 6d 70 |ions (fo|lder-emp|
|00001730| 74 79 20 65 72 72 6f 72 | 29 20 65 72 72 6f 72 2d |ty error|) error-|
|00001740| 6d 65 73 73 61 67 65 20 | 22 46 6f 6c 64 65 72 20 |message |"Folder |
|00001750| 69 73 20 65 6d 70 74 79 | 22 20 75 6e 72 65 63 6f |is empty|" unreco|
|00001760| 67 6e 69 7a 65 64 2d 66 | 6f 6c 64 65 72 2d 74 79 |gnized-f|older-ty|
|00001770| 70 65 20 28 75 6e 72 65 | 63 6f 67 6e 69 7a 65 64 |pe (unre|cognized|
|00001780| 2d 66 6f 6c 64 65 72 2d | 74 79 70 65 20 65 72 72 |-folder-|type err|
|00001790| 6f 72 29 20 22 55 6e 72 | 65 63 6f 67 6e 69 7a 65 |or) "Unr|ecognize|
|000017a0| 64 20 66 6f 6c 64 65 72 | 20 74 79 70 65 22 20 76 |d folder| type" v|
|000017b0| 6d 2d 65 72 72 6f 72 2d | 69 66 2d 66 6f 6c 64 65 |m-error-|if-folde|
|000017c0| 72 2d 65 6d 70 74 79 20 | 23 5b 6e 69 6c 20 22 08 |r-empty |#[nil ".|
|000017d0| 3f ad 91 09 ab 87 c2 c3 | c4 5c 22 88 aa 72 c2 c5 |?.......|.\"..r..|
|000017e0| c4 5c 22 88 aa 6b 87 22 | 20 5b 76 6d 2d 6d 65 73 |.\"..k."| [vm-mes|
|000017f0| 73 61 67 65 2d 6c 69 73 | 74 20 76 6d 2d 66 6f 6c |sage-lis|t vm-fol|
|00001800| 64 65 72 2d 74 79 70 65 | 20 73 69 67 6e 61 6c 20 |der-type| signal |
|00001810| 75 6e 72 65 63 6f 67 6e | 69 7a 65 64 2d 66 6f 6c |unrecogn|ized-fol|
|00001820| 64 65 72 2d 74 79 70 65 | 20 6e 69 6c 20 66 6f 6c |der-type| nil fol|
|00001830| 64 65 72 2d 65 6d 70 74 | 79 5d 20 33 5d 20 76 6d |der-empt|y] 3] vm|
|00001840| 2d 63 6f 70 79 20 23 5b | 28 6f 62 6a 65 63 74 29 |-copy #[|(object)|
|00001850| 20 22 08 3a ab ad c1 89 | 1a 1b c4 08 40 21 c1 42 | ".:....|....@!.B|
|00001860| 89 13 12 08 41 89 10 3a | ab 92 5c 6e c4 08 40 21 |....A..:|..\n..@!|
|00001870| c1 42 a1 88 5c 6e 41 12 | 08 41 89 10 aa 6b 5c 6e |.B..\nA.|.A...k\n|
|00001880| 08 a1 88 0b 2a 87 c5 08 | 21 ab 88 c6 c7 c8 c4 08 |....*...|!.......|
|00001890| 5c 22 5c 22 87 08 3b ab | 84 c9 08 21 87 08 87 22 |\"\"..;.|...!..."|
|000018a0| 20 5b 6f 62 6a 65 63 74 | 20 6e 69 6c 20 63 6f 6e | [object| nil con|
|000018b0| 73 20 72 65 74 75 72 6e | 2d 76 61 6c 75 65 20 76 |s return|-value v|
|000018c0| 6d 2d 63 6f 70 79 20 76 | 65 63 74 6f 72 70 20 61 |m-copy v|ectorp a|
|000018d0| 70 70 6c 79 20 76 65 63 | 74 6f 72 20 6d 61 70 63 |pply vec|tor mapc|
|000018e0| 61 72 20 63 6f 70 79 2d | 73 65 71 75 65 6e 63 65 |ar copy-|sequence|
|000018f0| 5d 20 36 5d 20 76 6d 2d | 78 65 6d 61 63 73 2d 70 |] 6] vm-|xemacs-p|
|00001900| 20 23 5b 6e 69 6c 20 22 | c0 19 c2 c3 0c 5c 22 29 | #[nil "|.....\")|
|00001910| 87 22 20 5b 6e 69 6c 20 | 63 61 73 65 2d 66 6f 6c |." [nil |case-fol|
|00001920| 64 2d 73 65 61 72 63 68 | 20 73 74 72 69 6e 67 2d |d-search| string-|
|00001930| 6d 61 74 63 68 20 22 58 | 45 6d 61 63 73 22 20 65 |match "X|Emacs" e|
|00001940| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 5d 20 33 5d |macs-ver|sion] 3]|
|00001950| 20 76 6d 2d 66 73 66 65 | 6d 61 63 73 2d 31 39 2d | vm-fsfe|macs-19-|
|00001960| 70 20 23 5b 6e 69 6c 20 | 22 c0 c1 5c 6e 5c 22 ad |p #[nil |"..\n\".|
|00001970| 85 c0 c3 5c 6e 5c 22 3f | 87 22 20 5b 73 74 72 69 |...\n\"?|." [stri|
|00001980| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 31 39 22 20 65 |ng-match| "^19" e|
|00001990| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 58 45 |macs-ver|sion "XE|
|000019a0| 6d 61 63 73 5c 5c 7c 4c | 75 63 69 64 22 5d 20 33 |macs\\|L|ucid"] 3|
|000019b0| 5d 20 76 6d 2d 6d 75 6c | 74 69 70 6c 65 2d 66 72 |] vm-mul|tiple-fr|
|000019c0| 61 6d 65 73 2d 70 6f 73 | 73 69 62 6c 65 2d 70 20 |ames-pos|sible-p |
|000019d0| 23 5b 6e 69 6c 20 22 c0 | c1 21 ab 86 09 c2 3d 3f |#[nil ".|.!....=?|
|000019e0| ae 89 c3 c4 21 ad 84 c4 | 20 c5 3d 87 22 20 5b 62 |....!...| .=." [b|
|000019f0| 6f 75 6e 64 70 20 77 69 | 6e 64 6f 77 2d 73 79 73 |oundp wi|ndow-sys|
|00001a00| 74 65 6d 20 6e 69 6c 20 | 66 62 6f 75 6e 64 70 20 |tem nil |fboundp |
|00001a10| 64 65 76 69 63 65 2d 74 | 79 70 65 20 78 5d 20 32 |device-t|ype x] 2|
|00001a20| 5d 20 76 6d 2d 6d 6f 75 | 73 65 2d 73 75 70 70 6f |] vm-mou|se-suppo|
|00001a30| 72 74 2d 70 6f 73 73 69 | 62 6c 65 2d 70 20 23 5b |rt-possi|ble-p #[|
|00001a40| 6e 69 6c 20 22 c0 20 87 | 22 20 5b 76 6d 2d 6d 75 |nil ". .|" [vm-mu|
|00001a50| 6c 74 69 70 6c 65 2d 66 | 72 61 6d 65 73 2d 70 6f |ltiple-f|rames-po|
|00001a60| 73 73 69 62 6c 65 2d 70 | 5d 20 31 5d 20 76 6d 2d |ssible-p|] 1] vm-|
|00001a70| 6d 65 6e 75 2d 73 75 70 | 70 6f 72 74 2d 70 6f 73 |menu-sup|port-pos|
|00001a80| 73 69 62 6c 65 2d 70 20 | 23 5b 6e 69 6c 20 22 c0 |sible-p |#[nil ".|
|00001a90| 20 87 22 20 5b 76 6d 2d | 6d 75 6c 74 69 70 6c 65 | ." [vm-|multiple|
|00001aa0| 2d 66 72 61 6d 65 73 2d | 70 6f 73 73 69 62 6c 65 |-frames-|possible|
|00001ab0| 2d 70 5d 20 31 5d 20 76 | 6d 2d 74 6f 6f 6c 62 61 |-p] 1] v|m-toolba|
|00001ac0| 72 2d 73 75 70 70 6f 72 | 74 2d 70 6f 73 73 69 62 |r-suppor|t-possib|
|00001ad0| 6c 65 2d 70 20 23 5b 6e | 69 6c 20 22 c0 20 ad 87 |le-p #[n|il ". ..|
|00001ae0| c1 20 ad 83 c2 c3 21 87 | 22 20 5b 76 6d 2d 78 65 |. ....!.|" [vm-xe|
|00001af0| 6d 61 63 73 2d 70 20 76 | 6d 2d 6d 75 6c 74 69 70 |macs-p v|m-multip|
|00001b00| 6c 65 2d 66 72 61 6d 65 | 73 2d 70 6f 73 73 69 62 |le-frame|s-possib|
|00001b10| 6c 65 2d 70 20 66 65 61 | 74 75 72 65 70 20 74 6f |le-p fea|turep to|
|00001b20| 6f 6c 62 61 72 5d 20 32 | 5d 20 76 6d 2d 72 75 6e |olbar] 2|] vm-run|
|00001b30| 2d 6d 65 73 73 61 67 65 | 2d 68 6f 6f 6b 20 23 5b |-message|-hook #[|
|00001b40| 28 6d 65 73 73 61 67 65 | 20 26 6f 70 74 69 6f 6e |(message| &option|
|00001b50| 61 6c 20 68 6f 6f 6b 2d | 76 61 72 69 61 62 6c 65 |al hook-|variable|
|00001b60| 29 20 22 8a 08 c1 48 c2 | 48 71 88 c3 20 64 65 5a |) "...H.|Hq.. deZ|
|00001b70| 56 c4 89 1d 1e 06 89 1e | 07 ab 90 c8 20 65 c4 93 |V.......|.... e..|
|00001b80| 89 16 06 ab 86 c8 20 64 | c4 93 15 c9 8e 7e 88 8a |...... d|.....~..|
|00001b90| 08 ca 48 c1 48 08 ca 48 | cb 48 7d 88 cc 0e 0d 21 |..H.H..H|.H}....!|
|00001ba0| 2e 06 87 22 20 5b 6d 65 | 73 73 61 67 65 20 31 20 |..." [me|ssage 1 |
|00001bb0| 39 20 62 75 66 66 65 72 | 2d 73 69 7a 65 20 6e 69 |9 buffer|-size ni|
|00001bc0| 6c 20 76 6d 2d 73 72 2d | 6d 61 78 20 76 6d 2d 73 |l vm-sr-|max vm-s|
|00001bd0| 72 2d 6d 69 6e 20 76 6d | 2d 73 72 2d 63 6c 69 70 |r-min vm|-sr-clip|
|00001be0| 20 6d 61 6b 65 2d 6d 61 | 72 6b 65 72 20 28 28 62 | make-ma|rker ((b|
|00001bf0| 79 74 65 2d 63 6f 64 65 | 20 22 7e 88 08 ab 8e 09 |yte-code| "~.....|
|00001c00| 5c 6e 7d 88 09 c3 89 93 | 88 5c 6e c3 89 93 88 c3 |\n}.....|.\n.....|
|00001c10| 87 22 20 5b 76 6d 2d 73 | 72 2d 63 6c 69 70 20 76 |." [vm-s|r-clip v|
|00001c20| 6d 2d 73 72 2d 6d 69 6e | 20 76 6d 2d 73 72 2d 6d |m-sr-min| vm-sr-m|
|00001c30| 61 78 20 6e 69 6c 5d 20 | 33 29 29 20 30 20 34 20 |ax nil] |3)) 0 4 |
|00001c40| 72 75 6e 2d 68 6f 6f 6b | 73 20 68 6f 6f 6b 2d 76 |run-hook|s hook-v|
|00001c50| 61 72 69 61 62 6c 65 5d | 20 34 5d 20 76 6d 2d 65 |ariable]| 4] vm-e|
|00001c60| 72 72 6f 72 2d 66 72 65 | 65 2d 63 61 6c 6c 20 23 |rror-fre|e-call #|
|00001c70| 5b 28 66 75 6e 63 74 69 | 6f 6e 20 26 72 65 73 74 |[(functi|on &rest|
|00001c80| 20 61 72 67 73 29 20 22 | c0 c1 c2 8f 87 22 20 5b | args) "|....." [|
|00001c90| 6e 69 6c 20 28 61 70 70 | 6c 79 20 66 75 6e 63 74 |nil (app|ly funct|
|00001ca0| 69 6f 6e 20 61 72 67 73 | 29 20 28 28 65 72 72 6f |ion args|) ((erro|
|00001cb0| 72 29 29 5d 20 33 5d 20 | 62 65 67 69 6e 6e 69 6e |r))] 3] |beginnin|
|00001cc0| 67 2d 6f 66 2d 66 6f 6c | 64 65 72 20 28 62 65 67 |g-of-fol|der (beg|
|00001cd0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 66 6f 6c 64 65 72 |inning-o|f-folder|
|00001ce0| 20 65 72 72 6f 72 29 20 | 22 42 65 67 69 6e 6e 69 | error) |"Beginni|
|00001cf0| 6e 67 20 6f 66 20 66 6f | 6c 64 65 72 22 20 65 6e |ng of fo|lder" en|
|00001d00| 64 2d 6f 66 2d 66 6f 6c | 64 65 72 20 28 65 6e 64 |d-of-fol|der (end|
|00001d10| 2d 6f 66 2d 66 6f 6c 64 | 65 72 20 65 72 72 6f 72 |-of-fold|er error|
|00001d20| 29 20 22 45 6e 64 20 6f | 66 20 66 6f 6c 64 65 72 |) "End o|f folder|
|00001d30| 22 20 76 6d 2d 74 72 61 | 63 65 20 23 5b 28 26 72 |" vm-tra|ce #[(&r|
|00001d40| 65 73 74 20 61 72 67 73 | 29 20 22 8a c0 c1 21 71 |est args|) "...!q|
|00001d50| 88 c2 c3 0c 5c 22 29 87 | 22 20 5b 67 65 74 2d 62 |....\").|" [get-b|
|00001d60| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 2a 76 |uffer-cr|eate "*v|
|00001d70| 6d 2d 74 72 61 63 65 2a | 22 20 61 70 70 6c 79 20 |m-trace*|" apply |
|00001d80| 69 6e 73 65 72 74 20 61 | 72 67 73 5d 20 33 5d 20 |insert a|rgs] 3] |
|00001d90| 76 6d 2d 74 69 6d 65 7a | 6f 6e 65 2d 6d 61 6b 65 |vm-timez|one-make|
|00001da0| 2d 64 61 74 65 2d 73 6f | 72 74 61 62 6c 65 20 23 |-date-so|rtable #|
|00001db0| 5b 28 73 74 72 69 6e 67 | 29 20 22 08 09 9e 41 ae |[(string|) "...A.|
|00001dc0| fe c2 08 21 c3 c4 20 c5 | 5c 22 1e 06 89 1e 07 c8 |...!.. .|\"......|
|00001dd0| 48 c9 9a ab 89 0e 07 c8 | ca 0e 06 38 49 88 0e 07 |H.......|...8I...|
|00001de0| ca 48 c9 9a ab 89 0e 07 | ca 0e 06 41 40 49 88 0e |.H......|...A@I..|
|00001df0| 07 cb 48 c9 9a ab 89 0e | 07 cb cc 0e 06 38 49 88 |..H.....|.....8I.|
|00001e00| 0e 07 cc 48 c9 9a ab 86 | 0e 07 cc cd 49 88 0e 07 |...H....|....I...|
|00001e10| ce 48 c9 9a ab 87 0e 07 | ce cf 20 49 88 08 d0 d1 |.H......|.. I....|
|00001e20| d2 0e 07 c8 48 0e 07 ca | 48 0e 07 cb 48 0e 07 cc |....H...|H...H...|
|00001e30| 48 0e 07 ce 48 26 06 21 | 42 09 42 89 11 40 41 2a |H...H&.!|B.B..@A*|
|00001e40| 87 22 20 5b 73 74 72 69 | 6e 67 20 76 6d 2d 73 6f |." [stri|ng vm-so|
|00001e50| 72 74 61 62 6c 65 2d 64 | 61 74 65 2d 61 6c 69 73 |rtable-d|ate-alis|
|00001e60| 74 20 76 6d 2d 70 61 72 | 73 65 2d 64 61 74 65 20 |t vm-par|se-date |
|00001e70| 76 6d 2d 70 61 72 73 65 | 20 63 75 72 72 65 6e 74 |vm-parse| current|
|00001e80| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 22 20 2a |-time-st|ring " *|
|00001e90| 5c 5c 28 5b 5e 20 5d 2b | 5c 5c 29 22 20 64 61 74 |\\([^ ]+|\\)" dat|
|00001ea0| 65 20 76 65 63 74 20 31 | 20 22 22 20 32 20 33 20 |e vect 1| "" 2 3 |
|00001eb0| 34 20 22 30 30 3a 30 30 | 3a 30 30 22 20 35 20 76 |4 "00:00|:00" 5 v|
|00001ec0| 6d 2d 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 7a |m-curren|t-time-z|
|00001ed0| 6f 6e 65 20 74 69 6d 65 | 7a 6f 6e 65 2d 6d 61 6b |one time|zone-mak|
|00001ee0| 65 2d 64 61 74 65 2d 73 | 6f 72 74 61 62 6c 65 20 |e-date-s|ortable |
|00001ef0| 66 6f 72 6d 61 74 20 22 | 25 73 20 25 73 20 25 73 |format "|%s %s %s|
|00001f00| 20 25 73 20 25 73 22 5d | 20 31 31 5d 20 76 6d 2d | %s %s"]| 11] vm-|
|00001f10| 63 75 72 72 65 6e 74 2d | 74 69 6d 65 2d 7a 6f 6e |current-|time-zon|
|00001f20| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 8f ae 8a c0 |e #[nil |".......|
|00001f30| 1b c0 c4 c5 8f 29 ae 81 | c6 87 22 20 5b 6e 69 6c |.....)..|.." [nil|
|00001f40| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 20 40 | (byte-c|ode ". @|
|00001f50| 19 c2 09 21 c3 a5 1c c5 | c6 09 c7 57 ab 83 c8 aa |...!....|...W....|
|00001f60| 81 c9 0c c3 a5 0c c3 a6 | 24 2a 87 22 20 5b 63 75 |........|$*." [cu|
|00001f70| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 7a 6f 6e 65 20 |rrent-ti|me-zone |
|00001f80| 7a 6f 6e 65 20 76 6d 2d | 61 62 73 20 36 30 20 61 |zone vm-|abs 60 a|
|00001f90| 62 73 6d 69 6e 20 66 6f | 72 6d 61 74 20 22 25 63 |bsmin fo|rmat "%c|
|00001fa0| 25 30 32 64 25 30 32 64 | 22 20 30 20 34 35 20 34 |%02d%02d|" 0 45 4|
|00001fb0| 33 5d 20 36 29 20 28 28 | 65 72 72 6f 72 29 29 20 |3] 6) ((|error)) |
|00001fc0| 74 65 6d 70 2d 62 75 66 | 66 65 72 20 28 62 79 74 |temp-buf|fer (byt|
|00001fd0| 65 2d 63 6f 64 65 20 22 | c0 8e 8a c1 c2 21 89 13 |e-code "|.....!..|
|00001fe0| 71 88 c4 c5 c6 0b c6 24 | 88 c7 c8 c9 20 ca 5c 22 |q......$|.... .\"|
|00001ff0| 38 2a 87 22 20 5b 28 28 | 62 79 74 65 2d 63 6f 64 |8*." [((|byte-cod|
|00002000| 65 20 22 08 ab 84 c1 08 | 21 88 c1 87 22 20 5b 74 |e ".....|!..." [t|
|00002010| 65 6d 70 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |emp-buff|er kill-|
|00002020| 62 75 66 66 65 72 5d 20 | 32 29 29 20 67 65 6e 65 |buffer] |2)) gene|
|00002030| 72 61 74 65 2d 6e 65 77 | 2d 62 75 66 66 65 72 20 |rate-new|-buffer |
|00002040| 22 2a 76 6d 2d 77 6f 72 | 6b 2a 22 20 74 65 6d 70 |"*vm-wor|k*" temp|
|00002050| 2d 62 75 66 66 65 72 20 | 63 61 6c 6c 2d 70 72 6f |-buffer |call-pro|
|00002060| 63 65 73 73 20 22 64 61 | 74 65 22 20 6e 69 6c 20 |cess "da|te" nil |
|00002070| 34 20 76 6d 2d 70 61 72 | 73 65 20 76 6d 2d 62 75 |4 vm-par|se vm-bu|
|00002080| 66 66 65 72 2d 73 74 72 | 69 6e 67 2d 6e 6f 2d 70 |ffer-str|ing-no-p|
|00002090| 72 6f 70 65 72 74 69 65 | 73 20 22 20 2a 5c 5c 28 |ropertie|s " *\\(|
|000020a0| 5b 5e 20 5d 2b 5c 5c 29 | 22 5d 20 36 29 20 28 28 |[^ ]+\\)|"] 6) ((|
|000020b0| 65 72 72 6f 72 29 29 20 | 22 22 5d 20 33 5d 20 76 |error)) |""] 3] v|
|000020c0| 6d 2d 73 68 6f 75 6c 64 | 2d 67 65 6e 65 72 61 74 |m-should|-generat|
|000020d0| 65 2d 73 75 6d 6d 61 72 | 79 20 23 5b 6e 69 6c 20 |e-summar|y #[nil |
|000020e0| 22 08 c1 3d ab 82 c1 87 | 08 a8 ab 95 08 89 1a c3 |"..=....|........|
|000020f0| 57 ab 88 c4 5c 6e 21 0d | 38 3f aa 84 5c 6e 53 0d |W...\n!.|8?..\nS.|
|00002100| 38 29 87 08 ab 82 c1 87 | c6 87 22 20 5b 76 6d 2d |8)......|.." [vm-|
|00002110| 73 74 61 72 74 75 70 2d | 77 69 74 68 2d 73 75 6d |startup-|with-sum|
|00002120| 6d 61 72 79 20 74 20 6e | 20 30 20 76 6d 2d 61 62 |mary t n| 0 vm-ab|
|00002130| 73 20 76 6d 2d 6d 65 73 | 73 61 67 65 2d 6c 69 73 |s vm-mes|sage-lis|
|00002140| 74 20 6e 69 6c 5d 20 33 | 5d 20 76 6d 2d 66 69 6e |t nil] 3|] vm-fin|
|00002150| 64 2d 63 6f 6d 70 6f 73 | 69 74 69 6f 6e 2d 62 75 |d-compos|ition-bu|
|00002160| 66 66 65 72 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ffer #[(|&optiona|
|00002170| 6c 20 6e 6f 74 2d 70 69 | 63 6b 79 29 20 22 c0 20 |l not-pi|cky) ". |
|00002180| c1 89 1a 1b 1c 8a 0c ab | a9 0c 40 71 88 0d c6 3d |........|..@q...=|
|00002190| ab 9a c7 20 ab 87 70 13 | c1 89 14 aa 6a 0e 08 ab |... ..p.|....j...|
|000021a0| 85 5c 6e ac 82 70 12 0c | 41 89 14 aa 5b 0c 41 89 |.\n..p..|A...[.A.|
|000021b0| 14 ac 57 0b ae 81 5c 6e | 2c 87 22 20 5b 62 75 66 |..W...\n|,." [buf|
|000021c0| 66 65 72 2d 6c 69 73 74 | 20 6e 69 6c 20 61 6c 74 |fer-list| nil alt|
|000021d0| 65 72 6e 61 74 65 20 63 | 68 6f 69 63 65 20 62 2d |ernate c|hoice b-|
|000021e0| 6c 69 73 74 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |list maj|or-mode |
|000021f0| 6d 61 69 6c 2d 6d 6f 64 | 65 20 62 75 66 66 65 72 |mail-mod|e buffer|
|00002200| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 6e 6f 74 2d |-modifie|d-p not-|
|00002210| 70 69 63 6b 79 5d 20 34 | 5d 5d 20 34 29 0a 28 66 |picky] 4|]] 4).(f|
|00002220| 73 65 74 20 27 76 6d 2d | 67 65 74 2d 66 69 6c 65 |set 'vm-|get-file|
|00002230| 2d 62 75 66 66 65 72 20 | 23 5b 28 66 69 6c 65 29 |-buffer |#[(file)|
|00002240| 20 22 c0 09 21 ae 8a c2 | c3 21 ad 85 c0 c3 09 21 | "..!...|.!.....!|
|00002250| 21 87 22 20 5b 67 65 74 | 2d 66 69 6c 65 2d 62 75 |!." [get|-file-bu|
|00002260| 66 66 65 72 20 66 69 6c | 65 20 66 62 6f 75 6e 64 |ffer fil|e fbound|
|00002270| 70 20 66 69 6c 65 2d 74 | 72 75 65 6e 61 6d 65 5d |p file-t|ruename]|
|00002280| 20 33 20 22 5c 0a 4c 69 | 6b 65 20 67 65 74 2d 66 | 3 "\.Li|ke get-f|
|00002290| 69 6c 65 2d 62 75 66 66 | 65 72 2c 20 62 75 74 20 |ile-buff|er, but |
|000022a0| 61 6c 73 6f 20 63 68 65 | 63 6b 73 20 62 75 66 66 |also che|cks buff|
|000022b0| 65 72 73 20 61 67 61 69 | 6e 73 74 20 46 49 4c 45 |ers agai|nst FILE|
|000022c0| 27 73 20 74 72 75 65 6e | 61 6d 65 22 5d 29 0a 28 |'s truen|ame"]).(|
|000022d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|000022e0| c3 4d 88 c4 c5 4d 88 c6 | c7 c8 21 ab 83 c8 aa 88 |.M...M..|..!.....|
|000022f0| c9 20 ab 83 ca aa 81 c4 | 4d 88 cb cc 4d 87 22 20 |. ......|M...M." |
|00002300| 5b 76 6d 2d 73 65 74 2d | 72 65 67 69 6f 6e 2d 66 |[vm-set-|region-f|
|00002310| 61 63 65 20 23 5b 28 73 | 74 61 72 74 20 65 6e 64 |ace #[(s|tart end|
|00002320| 20 66 61 63 65 29 20 22 | c0 c1 21 ab 8d c1 5c 6e | face) "|..!...\n|
|00002330| 0b 5c 22 1c c5 0c c6 0e | 06 23 29 87 c0 c7 21 ad |.\".....|.#)...!.|
|00002340| 8c c7 5c 6e 0b 5c 22 1c | c8 0c c6 0e 06 23 29 87 |..\n.\".|.....#).|
|00002350| 22 20 5b 66 62 6f 75 6e | 64 70 20 6d 61 6b 65 2d |" [fboun|dp make-|
|00002360| 6f 76 65 72 6c 61 79 20 | 73 74 61 72 74 20 65 6e |overlay |start en|
|00002370| 64 20 6f 20 6f 76 65 72 | 6c 61 79 2d 70 75 74 20 |d o over|lay-put |
|00002380| 66 61 63 65 20 6d 61 6b | 65 2d 65 78 74 65 6e 74 |face mak|e-extent|
|00002390| 20 73 65 74 2d 65 78 74 | 65 6e 74 2d 70 72 6f 70 | set-ext|ent-prop|
|000023a0| 65 72 74 79 5d 20 34 5d | 20 76 6d 2d 75 6e 73 61 |erty] 4]| vm-unsa|
|000023b0| 76 65 64 2d 6d 65 73 73 | 61 67 65 20 23 5b 28 26 |ved-mess|age #[(&|
|000023c0| 72 65 73 74 20 61 72 67 | 73 29 20 22 c0 19 c2 c3 |rest arg|s) "....|
|000023d0| 0c 5c 22 29 87 22 20 5b | 6e 69 6c 20 6d 65 73 73 |.\")." [|nil mess|
|000023e0| 61 67 65 2d 6c 6f 67 2d | 6d 61 78 20 61 70 70 6c |age-log-|max appl|
|000023f0| 79 20 6d 65 73 73 61 67 | 65 20 61 72 67 73 5d 20 |y messag|e args] |
|00002400| 33 5d 20 76 6d 2d 64 65 | 66 61 75 6c 74 2d 62 75 |3] vm-de|fault-bu|
|00002410| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 2d 6e |ffer-sub|string-n|
|00002420| 6f 2d 70 72 6f 70 65 72 | 74 69 65 73 20 23 5b 28 |o-proper|ties #[(|
|00002430| 62 65 67 20 65 6e 64 20 | 26 6f 70 74 69 6f 6e 61 |beg end |&optiona|
|00002440| 6c 20 62 75 66 66 65 72 | 29 20 22 08 ab 8a 8a 08 |l buffer|) ".....|
|00002450| 71 88 09 5c 6e 7b 29 aa | 83 09 5c 6e 7b 1b c4 c5 |q..\n{).|..\n{...|
|00002460| 0b 47 c6 0b 24 88 c7 0b | 21 29 87 22 20 5b 62 75 |.G..$...|!)." [bu|
|00002470| 66 66 65 72 20 62 65 67 | 20 65 6e 64 20 73 20 73 |ffer beg| end s s|
|00002480| 65 74 2d 74 65 78 74 2d | 70 72 6f 70 65 72 74 69 |et-text-|properti|
|00002490| 65 73 20 30 20 6e 69 6c | 20 63 6f 70 79 2d 73 65 |es 0 nil| copy-se|
|000024a0| 71 75 65 6e 63 65 5d 20 | 35 5d 20 76 6d 2d 62 75 |quence] |5] vm-bu|
|000024b0| 66 66 65 72 2d 73 75 62 | 73 74 72 69 6e 67 2d 6e |ffer-sub|string-n|
|000024c0| 6f 2d 70 72 6f 70 65 72 | 74 69 65 73 20 66 62 6f |o-proper|ties fbo|
|000024d0| 75 6e 64 70 20 62 75 66 | 66 65 72 2d 73 75 62 73 |undp buf|fer-subs|
|000024e0| 74 72 69 6e 67 2d 6e 6f | 2d 70 72 6f 70 65 72 74 |tring-no|-propert|
|000024f0| 69 65 73 20 76 6d 2d 78 | 65 6d 61 63 73 2d 70 20 |ies vm-x|emacs-p |
|00002500| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00002510| 20 76 6d 2d 62 75 66 66 | 65 72 2d 73 74 72 69 6e | vm-buff|er-strin|
|00002520| 67 2d 6e 6f 2d 70 72 6f | 70 65 72 74 69 65 73 20 |g-no-pro|perties |
|00002530| 23 5b 6e 69 6c 20 22 c0 | 65 64 5c 22 87 22 20 5b |#[nil ".|ed\"." [|
|00002540| 76 6d 2d 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |vm-buffe|r-substr|
|00002550| 69 6e 67 2d 6e 6f 2d 70 | 72 6f 70 65 72 74 69 65 |ing-no-p|ropertie|
|00002560| 73 5d 20 33 5d 5d 20 33 | 29 0a                   |s] 3]] 3|).      |
+--------+-------------------------+-------------------------+--------+--------+