/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / compile.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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 33 34 3a 31 | 31 20 31 39 39 33 0a 3b | 22:34:1|1 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 63 6f 6d | 70 69 6c 65 2e 65 6c 0a |lisp/com|pile.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 31 35 2e | 31 36 2e 0a 3b 3b 3b 20 |n 19.15.|16..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 70 69 6c 61 |.(defvar| compila|
|000001d0| 74 69 6f 6e 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 20 6e |tion-mod|e-hook n|
|000001e0| 69 6c 20 22 5c 0a 2a 4c | 69 73 74 20 6f 66 20 68 |il "\.*L|ist of h|
|000001f0| 6f 6f 6b 20 66 75 6e 63 | 74 69 6f 6e 73 20 72 75 |ook func|tions ru|
|00000200| 6e 20 62 79 20 60 63 6f | 6d 70 69 6c 61 74 69 6f |n by `co|mpilatio|
|00000210| 6e 2d 6d 6f 64 65 27 20 | 28 73 65 65 20 60 72 75 |n-mode' |(see `ru|
|00000220| 6e 2d 68 6f 6f 6b 73 27 | 29 2e 22 29 0a 28 64 65 |n-hooks'|).").(de|
|00000230| 66 63 6f 6e 73 74 20 63 | 6f 6d 70 69 6c 61 74 69 |fconst c|ompilati|
|00000240| 6f 6e 2d 77 69 6e 64 6f | 77 2d 68 65 69 67 68 74 |on-windo|w-height|
|00000250| 20 6e 69 6c 20 22 5c 0a | 2a 4e 75 6d 62 65 72 20 | nil "\.|*Number |
|00000260| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 61 20 63 6f |of lines| in a co|
|00000270| 6d 70 69 6c 61 74 69 6f | 6e 20 77 69 6e 64 6f 77 |mpilatio|n window|
|00000280| 2e 20 20 49 66 20 6e 69 | 6c 2c 20 75 73 65 20 45 |.  If ni|l, use E|
|00000290| 6d 61 63 73 20 64 65 66 | 61 75 6c 74 2e 22 29 0a |macs def|ault.").|
|000002a0| 28 64 65 66 76 61 72 20 | 63 6f 6d 70 69 6c 61 74 |(defvar |compilat|
|000002b0| 69 6f 6e 2d 65 72 72 6f | 72 2d 6c 69 73 74 20 6e |ion-erro|r-list n|
|000002c0| 69 6c 20 22 5c 0a 4c 69 | 73 74 20 6f 66 20 65 72 |il "\.Li|st of er|
|000002d0| 72 6f 72 20 6d 65 73 73 | 61 67 65 20 64 65 73 63 |ror mess|age desc|
|000002e0| 72 69 70 74 6f 72 73 20 | 66 6f 72 20 76 69 73 69 |riptors |for visi|
|000002f0| 74 69 6e 67 20 65 72 72 | 69 6e 67 20 66 75 6e 63 |ting err|ing func|
|00000300| 74 69 6f 6e 73 2e 0a 45 | 61 63 68 20 65 72 72 6f |tions..E|ach erro|
|00000310| 72 20 64 65 73 63 72 69 | 70 74 6f 72 20 69 73 20 |r descri|ptor is |
|00000320| 61 20 63 6f 6e 73 20 28 | 6f 72 20 6e 69 6c 29 2e |a cons (|or nil).|
|00000330| 20 20 49 74 73 20 63 61 | 72 20 69 73 20 61 20 6d |  Its ca|r is a m|
|00000340| 61 72 6b 65 72 0a 70 6f | 69 6e 74 69 6e 67 20 74 |arker.po|inting t|
|00000350| 6f 20 61 6e 20 65 72 72 | 6f 72 20 6d 65 73 73 61 |o an err|or messa|
|00000360| 67 65 2e 20 20 49 66 20 | 69 74 73 20 63 64 72 20 |ge.  If |its cdr |
|00000370| 69 73 20 61 20 6d 61 72 | 6b 65 72 2c 20 69 74 20 |is a mar|ker, it |
|00000380| 70 6f 69 6e 74 73 20 74 | 6f 0a 74 68 65 20 74 65 |points t|o.the te|
|00000390| 78 74 20 6f 66 20 74 68 | 65 20 6c 69 6e 65 20 74 |xt of th|e line t|
|000003a0| 68 65 20 6d 65 73 73 61 | 67 65 20 69 73 20 61 62 |he messa|ge is ab|
|000003b0| 6f 75 74 2e 20 20 49 66 | 20 69 74 73 20 63 64 72 |out.  If| its cdr|
|000003c0| 20 69 73 20 61 20 63 6f | 6e 73 2c 20 74 68 61 74 | is a co|ns, that|
|000003d0| 0a 63 6f 6e 73 27 73 20 | 63 61 72 20 69 73 20 74 |.cons's |car is t|
|000003e0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 66 |he name |of the f|
|000003f0| 69 6c 65 20 74 68 65 20 | 6d 65 73 73 61 67 65 20 |ile the |message |
|00000400| 69 73 20 61 62 6f 75 74 | 2c 20 61 6e 64 20 69 74 |is about|, and it|
|00000410| 73 20 63 64 72 0a 69 73 | 20 74 68 65 20 6e 75 6d |s cdr.is| the num|
|00000420| 62 65 72 20 6f 66 20 74 | 68 65 20 6c 69 6e 65 20 |ber of t|he line |
|00000430| 74 68 65 20 6d 65 73 73 | 61 67 65 20 69 73 20 61 |the mess|age is a|
|00000440| 62 6f 75 74 2e 20 20 4f | 72 20 69 74 73 20 63 64 |bout.  O|r its cd|
|00000450| 72 20 6d 61 79 20 62 65 | 20 6e 69 6c 0a 69 66 20 |r may be| nil.if |
|00000460| 74 68 61 74 20 65 72 72 | 6f 72 20 69 73 20 6e 6f |that err|or is no|
|00000470| 74 20 69 6e 74 65 72 65 | 73 74 69 6e 67 2e 0a 0a |t intere|sting...|
|00000480| 54 68 65 20 76 61 6c 75 | 65 20 6d 61 79 20 62 65 |The valu|e may be|
|00000490| 20 74 20 69 6e 73 74 65 | 61 64 20 6f 66 20 61 20 | t inste|ad of a |
|000004a0| 6c 69 73 74 3b 20 74 68 | 69 73 20 6d 65 61 6e 73 |list; th|is means|
|000004b0| 20 74 68 61 74 20 74 68 | 65 20 62 75 66 66 65 72 | that th|e buffer|
|000004c0| 20 6f 66 0a 65 72 72 6f | 72 20 6d 65 73 73 61 67 | of.erro|r messag|
|000004d0| 65 73 20 73 68 6f 75 6c | 64 20 62 65 20 72 65 70 |es shoul|d be rep|
|000004e0| 61 72 73 65 64 20 74 68 | 65 20 6e 65 78 74 20 74 |arsed th|e next t|
|000004f0| 69 6d 65 20 74 68 65 20 | 6c 69 73 74 20 6f 66 20 |ime the |list of |
|00000500| 65 72 72 6f 72 73 20 69 | 73 20 77 61 6e 74 65 64 |errors i|s wanted|
|00000510| 2e 0a 0a 53 6f 6d 65 20 | 6f 74 68 65 72 20 63 6f |...Some |other co|
|00000520| 6d 6d 61 6e 64 73 20 28 | 6c 69 6b 65 20 60 64 69 |mmands (|like `di|
|00000530| 66 66 27 29 20 75 73 65 | 20 74 68 69 73 20 6c 69 |ff') use| this li|
|00000540| 73 74 20 74 6f 20 63 6f | 6e 74 72 6f 6c 20 74 68 |st to co|ntrol th|
|00000550| 65 20 65 72 72 6f 72 0a | 6d 65 73 73 61 67 65 20 |e error.|message |
|00000560| 74 72 61 63 6b 69 6e 67 | 20 66 61 63 69 6c 69 74 |tracking| facilit|
|00000570| 65 73 3b 20 69 66 20 79 | 6f 75 20 63 68 61 6e 67 |es; if y|ou chang|
|00000580| 65 20 69 74 73 20 73 74 | 72 75 63 74 75 72 65 2c |e its st|ructure,|
|00000590| 20 79 6f 75 20 73 68 6f | 75 6c 64 20 6d 61 6b 65 | you sho|uld make|
|000005a0| 0a 73 75 72 65 20 79 6f | 75 20 61 6c 73 6f 20 63 |.sure yo|u also c|
|000005b0| 68 61 6e 67 65 20 74 68 | 6f 73 65 20 70 61 63 6b |hange th|ose pack|
|000005c0| 61 67 65 73 2e 20 20 50 | 65 72 68 61 70 73 20 69 |ages.  P|erhaps i|
|000005d0| 74 20 69 73 20 62 65 74 | 74 65 72 20 6e 6f 74 20 |t is bet|ter not |
|000005e0| 74 6f 20 63 68 61 6e 67 | 65 0a 69 74 20 61 74 20 |to chang|e.it at |
|000005f0| 61 6c 6c 2e 22 29 0a 28 | 64 65 66 76 61 72 20 63 |all.").(|defvar c|
|00000600| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 6f 6c 64 2d 65 |ompilati|on-old-e|
|00000610| 72 72 6f 72 2d 6c 69 73 | 74 20 6e 69 6c 20 22 5c |rror-lis|t nil "\|
|00000620| 0a 56 61 6c 75 65 20 6f | 66 20 60 63 6f 6d 70 69 |.Value o|f `compi|
|00000630| 6c 61 74 69 6f 6e 2d 65 | 72 72 6f 72 2d 6c 69 73 |lation-e|rror-lis|
|00000640| 74 27 20 61 66 74 65 72 | 20 65 72 72 6f 72 73 20 |t' after| errors |
|00000650| 77 65 72 65 20 70 61 72 | 73 65 64 2e 22 29 0a 28 |were par|sed.").(|
|00000660| 64 65 66 76 61 72 20 63 | 6f 6d 70 69 6c 61 74 69 |defvar c|ompilati|
|00000670| 6f 6e 2d 70 61 72 73 65 | 2d 65 72 72 6f 72 73 2d |on-parse|-errors-|
|00000680| 66 75 6e 63 74 69 6f 6e | 20 28 71 75 6f 74 65 20 |function| (quote |
|00000690| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 70 61 72 73 |compilat|ion-pars|
|000006a0| 65 2d 65 72 72 6f 72 73 | 29 20 22 5c 0a 46 75 6e |e-errors|) "\.Fun|
|000006b0| 63 74 69 6f 6e 20 74 6f | 20 63 61 6c 6c 20 74 6f |ction to| call to|
|000006c0| 20 70 61 72 73 65 20 65 | 72 72 6f 72 20 6d 65 73 | parse e|rror mes|
|000006d0| 73 61 67 65 73 20 66 72 | 6f 6d 20 61 20 63 6f 6d |sages fr|om a com|
|000006e0| 70 69 6c 61 74 69 6f 6e | 2e 0a 49 74 20 74 61 6b |pilation|..It tak|
|000006f0| 65 73 20 61 72 67 73 20 | 4c 49 4d 49 54 2d 53 45 |es args |LIMIT-SE|
|00000700| 41 52 43 48 20 61 6e 64 | 20 46 49 4e 44 2d 41 54 |ARCH and| FIND-AT|
|00000710| 2d 4c 45 41 53 54 2e 0a | 49 66 20 4c 49 4d 49 54 |-LEAST..|If LIMIT|
|00000720| 2d 53 45 41 52 43 48 20 | 69 73 20 6e 6f 6e 2d 6e |-SEARCH |is non-n|
|00000730| 69 6c 2c 20 64 6f 6e 27 | 74 20 62 6f 74 68 65 72 |il, don'|t bother|
|00000740| 20 70 61 72 73 69 6e 67 | 20 70 61 73 74 20 74 68 | parsing| past th|
|00000750| 61 74 20 6c 6f 63 61 74 | 69 6f 6e 2e 0a 49 66 20 |at locat|ion..If |
|00000760| 46 49 4e 44 2d 41 54 2d | 4c 45 41 53 54 20 69 73 |FIND-AT-|LEAST is|
|00000770| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 64 6f 6e 27 74 20 | non-nil|, don't |
|00000780| 62 6f 74 68 65 72 20 70 | 61 72 73 69 6e 67 20 61 |bother p|arsing a|
|00000790| 66 74 65 72 20 66 69 6e | 64 69 6e 67 20 74 68 61 |fter fin|ding tha|
|000007a0| 74 20 0a 20 6d 61 6e 79 | 20 6e 65 77 20 65 72 72 |t . many| new err|
|000007b0| 6f 73 2e 0a 49 74 20 73 | 68 6f 75 6c 64 20 72 65 |os..It s|hould re|
|000007c0| 61 64 20 69 6e 20 74 68 | 65 20 73 6f 75 72 63 65 |ad in th|e source|
|000007d0| 20 66 69 6c 65 73 20 77 | 68 69 63 68 20 68 61 76 | files w|hich hav|
|000007e0| 65 20 65 72 72 6f 72 73 | 20 61 6e 64 20 73 65 74 |e errors| and set|
|000007f0| 0a 60 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 65 72 |.`compil|ation-er|
|00000800| 72 6f 72 2d 6c 69 73 74 | 27 20 74 6f 20 61 20 6c |ror-list|' to a l|
|00000810| 69 73 74 20 77 69 74 68 | 20 61 6e 20 65 6c 65 6d |ist with| an elem|
|00000820| 65 6e 74 20 66 6f 72 20 | 65 61 63 68 20 65 72 72 |ent for |each err|
|00000830| 6f 72 20 6d 65 73 73 61 | 67 65 0a 66 6f 75 6e 64 |or messa|ge.found|
|00000840| 2e 20 20 53 65 65 20 74 | 68 61 74 20 76 61 72 69 |.  See t|hat vari|
|00000850| 61 62 6c 65 20 66 6f 72 | 20 6d 6f 72 65 20 69 6e |able for| more in|
|00000860| 66 6f 2e 22 29 0a 28 64 | 65 66 76 61 72 20 63 6f |fo.").(d|efvar co|
|00000870| 6d 70 69 6c 61 74 69 6f | 6e 2d 62 75 66 66 65 72 |mpilatio|n-buffer|
|00000880| 2d 6e 61 6d 65 2d 66 75 | 6e 63 74 69 6f 6e 20 6e |-name-fu|nction n|
|00000890| 69 6c 20 22 5c 0a 46 75 | 6e 63 74 69 6f 6e 20 74 |il "\.Fu|nction t|
|000008a0| 6f 20 63 6f 6d 70 75 74 | 65 20 74 68 65 20 6e 61 |o comput|e the na|
|000008b0| 6d 65 20 6f 66 20 61 20 | 63 6f 6d 70 69 6c 61 74 |me of a |compilat|
|000008c0| 69 6f 6e 20 62 75 66 66 | 65 72 2e 0a 54 68 65 20 |ion buff|er..The |
|000008d0| 66 75 6e 63 74 69 6f 6e | 20 72 65 63 65 69 76 65 |function| receive|
|000008e0| 73 20 6f 6e 65 20 61 72 | 67 75 6d 65 6e 74 2c 20 |s one ar|gument, |
|000008f0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00000900| 6d 61 6a 6f 72 20 6d 6f | 64 65 20 6f 66 20 74 68 |major mo|de of th|
|00000910| 65 0a 63 6f 6d 70 69 6c | 61 74 69 6f 6e 20 62 75 |e.compil|ation bu|
|00000920| 66 66 65 72 2e 20 20 49 | 74 20 73 68 6f 75 6c 64 |ffer.  I|t should|
|00000930| 20 72 65 74 75 72 6e 20 | 61 20 73 74 72 69 6e 67 | return |a string|
|00000940| 2e 0a 6e 69 6c 20 6d 65 | 61 6e 73 20 63 6f 6d 70 |..nil me|ans comp|
|00000950| 75 74 65 20 74 68 65 20 | 6e 61 6d 65 20 77 69 74 |ute the |name wit|
|00000960| 68 20 60 28 63 6f 6e 63 | 61 74 20 5c 22 2a 5c 22 |h `(conc|at \"*\"|
|00000970| 20 28 64 6f 77 6e 63 61 | 73 65 20 6d 61 6a 6f 72 | (downca|se major|
|00000980| 2d 6d 6f 64 65 29 20 5c | 22 2a 5c 22 29 27 2e 22 |-mode) \|"*\")'."|
|00000990| 29 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 70 69 6c |).(defva|r compil|
|000009a0| 61 74 69 6f 6e 2d 66 69 | 6e 69 73 68 2d 66 75 6e |ation-fi|nish-fun|
|000009b0| 63 74 69 6f 6e 20 6e 69 | 6c 20 22 5c 0a 2a 46 75 |ction ni|l "\.*Fu|
|000009c0| 6e 63 74 69 6f 6e 20 74 | 6f 20 63 61 6c 6c 20 77 |nction t|o call w|
|000009d0| 68 65 6e 20 61 20 63 6f | 6d 70 69 6c 61 74 69 6f |hen a co|mpilatio|
|000009e0| 6e 20 70 72 6f 63 65 73 | 73 20 66 69 6e 69 73 68 |n proces|s finish|
|000009f0| 65 73 2e 0a 49 74 20 69 | 73 20 63 61 6c 6c 65 64 |es..It i|s called|
|00000a00| 20 77 69 74 68 20 74 77 | 6f 20 61 72 67 75 6d 65 | with tw|o argume|
|00000a10| 6e 74 73 3a 20 74 68 65 | 20 63 6f 6d 70 69 6c 61 |nts: the| compila|
|00000a20| 74 69 6f 6e 20 62 75 66 | 66 65 72 2c 20 61 6e 64 |tion buf|fer, and|
|00000a30| 20 61 20 73 74 72 69 6e | 67 0a 64 65 73 63 72 69 | a strin|g.descri|
|00000a40| 62 69 6e 67 20 68 6f 77 | 20 74 68 65 20 70 72 6f |bing how| the pro|
|00000a50| 63 65 73 73 20 66 69 6e | 69 73 68 65 64 2e 22 29 |cess fin|ished.")|
|00000a60| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 70 69 6c 61 |.(defvar| compila|
|00000a70| 74 69 6f 6e 2d 6c 61 73 | 74 2d 62 75 66 66 65 72 |tion-las|t-buffer|
|00000a80| 20 6e 69 6c 20 22 5c 0a | 54 68 65 20 6d 6f 73 74 | nil "\.|The most|
|00000a90| 20 72 65 63 65 6e 74 20 | 63 6f 6d 70 69 6c 61 74 | recent |compilat|
|00000aa0| 69 6f 6e 20 62 75 66 66 | 65 72 2e 0a 41 20 62 75 |ion buff|er..A bu|
|00000ab0| 66 66 65 72 20 62 65 63 | 6f 6d 65 73 20 6d 6f 73 |ffer bec|omes mos|
|00000ac0| 74 20 72 65 63 65 6e 74 | 20 77 68 65 6e 20 69 74 |t recent| when it|
|00000ad0| 73 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 20 69 73 |s compil|ation is|
|00000ae0| 20 73 74 61 72 74 65 64 | 0a 6f 72 20 77 68 65 6e | started|.or when|
|00000af0| 20 69 74 20 69 73 20 75 | 73 65 64 20 77 69 74 68 | it is u|sed with|
|00000b00| 20 5c 5c 5b 6e 65 78 74 | 2d 65 72 72 6f 72 5d 20 | \\[next|-error] |
|00000b10| 6f 72 20 5c 5c 5b 63 6f | 6d 70 69 6c 65 2d 67 6f |or \\[co|mpile-go|
|00000b20| 74 6f 2d 65 72 72 6f 72 | 5d 2e 22 29 0a 28 64 65 |to-error|].").(de|
|00000b30| 66 76 61 72 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |fvar com|pilation|
|00000b40| 2d 69 6e 2d 70 72 6f 67 | 72 65 73 73 20 6e 69 6c |-in-prog|ress nil|
|00000b50| 20 22 5c 0a 4c 69 73 74 | 20 6f 66 20 63 6f 6d 70 | "\.List| of comp|
|00000b60| 69 6c 61 74 69 6f 6e 20 | 70 72 6f 63 65 73 73 65 |ilation |processe|
|00000b70| 73 20 6e 6f 77 20 72 75 | 6e 6e 69 6e 67 2e 22 29 |s now ru|nning.")|
|00000b80| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 9e |.(byte-c|ode "...|
|00000b90| 84 5c 6e 00 c2 09 42 11 | c0 87 22 20 5b 63 6f 6d |.\n...B.|.." [com|
|00000ba0| 70 69 6c 61 74 69 6f 6e | 2d 69 6e 2d 70 72 6f 67 |pilation|-in-prog|
|00000bb0| 72 65 73 73 20 6d 69 6e | 6f 72 2d 6d 6f 64 65 2d |ress min|or-mode-|
|00000bc0| 61 6c 69 73 74 20 28 63 | 6f 6d 70 69 6c 61 74 69 |alist (c|ompilati|
|00000bd0| 6f 6e 2d 69 6e 2d 70 72 | 6f 67 72 65 73 73 20 22 |on-in-pr|ogress "|
|00000be0| 20 43 6f 6d 70 69 6c 69 | 6e 67 22 29 5d 20 32 29 | Compili|ng")] 2)|
|00000bf0| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 70 69 6c 61 |.(defvar| compila|
|00000c00| 74 69 6f 6e 2d 70 61 72 | 73 69 6e 67 2d 65 6e 64 |tion-par|sing-end|
|00000c10| 20 6e 69 6c 20 22 5c 0a | 50 6f 73 69 74 69 6f 6e | nil "\.|Position|
|00000c20| 20 6f 66 20 65 6e 64 20 | 6f 66 20 62 75 66 66 65 | of end |of buffe|
|00000c30| 72 20 77 68 65 6e 20 6c | 61 73 74 20 65 72 72 6f |r when l|ast erro|
|00000c40| 72 20 6d 65 73 73 61 67 | 65 73 20 77 65 72 65 20 |r messag|es were |
|00000c50| 70 61 72 73 65 64 2e 22 | 29 0a 28 64 65 66 76 61 |parsed."|).(defva|
|00000c60| 72 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 65 72 |r compil|ation-er|
|00000c70| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 22 4e 6f 20 |ror-mess|age "No |
|00000c80| 6d 6f 72 65 20 65 72 72 | 6f 72 73 22 20 22 5c 0a |more err|ors" "\.|
|00000c90| 4d 65 73 73 61 67 65 20 | 74 6f 20 70 72 69 6e 74 |Message |to print|
|00000ca0| 20 77 68 65 6e 20 6e 6f | 20 6d 6f 72 65 20 6d 61 | when no| more ma|
|00000cb0| 74 63 68 65 73 20 61 72 | 65 20 66 6f 75 6e 64 2e |tches ar|e found.|
|00000cc0| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 69 |").(defv|ar compi|
|00000cd0| 6c 61 74 69 6f 6e 2d 65 | 72 72 6f 72 2d 72 65 67 |lation-e|rror-reg|
|00000ce0| 65 78 70 2d 61 6c 69 73 | 74 20 28 71 75 6f 74 65 |exp-alis|t (quote|
|00000cf0| 20 28 28 22 5c 6e 5c 5c | 28 5b 5e 3a 28 20 09 5c | (("\n\\|([^:( .\|
|00000d00| 6e 5d 2b 5c 5c 29 5b 3a | 28 5d 5b 20 09 5d 2a 5c |n]+\\)[:|(][ .]*\|
|00000d10| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 5b 3a 29 20 09 |\([0-9]+|\\)[:) .|
|00000d20| 5d 22 20 31 20 32 29 20 | 28 22 5b 20 09 3a 5d 5c |]" 1 2) |("[ .:]\|
|00000d30| 5c 28 5b 5e 3a 28 20 09 | 5c 6e 5d 2b 5c 5c 29 5b |\([^:( .|\n]+\\)[|
|00000d40| 3a 28 5d 28 2b 5b 20 09 | 5d 2a 5c 5c 28 5b 30 2d |:(](+[ .|]*\\([0-|
|00000d50| 39 5d 2b 5c 5c 29 29 5b | 3a 29 20 09 5d 2a 24 22 |9]+\\))[|:) .]*$"|
|00000d60| 20 31 20 32 29 20 28 22 | 28 5b 20 09 5d 2a 5c 5c | 1 2) ("|([ .]*\\|
|00000d70| 28 5b 5e 3a 28 20 09 5c | 6e 5d 2b 5c 5c 29 5b 3a |([^:( .\|n]+\\)[:|
|00000d80| 28 5d 5b 20 09 5d 2a 5c | 5c 28 5b 30 2d 39 5d 2b |(][ .]*\|\([0-9]+|
|00000d90| 5c 5c 29 29 22 20 31 20 | 32 29 20 28 22 5c 6e 5b |\\))" 1 |2) ("\n[|
|00000da0| 4c 6c 5d 69 6e 65 5b 20 | 09 5d 2b 5c 5c 28 5b 30 |Ll]ine[ |.]+\\([0|
|00000db0| 2d 39 5d 2b 5c 5c 29 5b | 20 09 5d 2b 6f 66 5b 20 |-9]+\\)[| .]+of[ |
|00000dc0| 09 5d 2b 5c 22 5c 5c 28 | 5b 5e 5c 22 5c 6e 5d 2b |.]+\"\\(|[^\"\n]+|
|00000dd0| 5c 5c 29 5c 22 3a 22 20 | 32 20 31 29 20 28 22 5c |\\)\":" |2 1) ("\|
|00000de0| 22 5c 5c 28 5b 5e 2c 5c | 22 20 5c 6e 09 5d 2b 5c |"\\([^,\|" \n.]+\|
|00000df0| 5c 29 5c 22 2c 20 6c 69 | 6e 65 20 5c 5c 28 5b 30 |\)\", li|ne \\([0|
|00000e00| 2d 39 5d 2b 5c 5c 29 5b | 3a 2e 5d 22 20 31 20 32 |-9]+\\)[|:.]" 1 2|
|00000e10| 29 20 28 22 72 72 6f 72 | 3a 20 5c 5c 28 5b 5e 2c |) ("rror|: \\([^,|
|00000e20| 5c 22 20 5c 6e 09 5d 2b | 5c 5c 29 2c 20 6c 69 6e |\" \n.]+|\\), lin|
|00000e30| 65 20 5c 5c 28 5b 30 2d | 39 5d 2b 5c 5c 29 3a 22 |e \\([0-|9]+\\):"|
|00000e40| 20 31 20 32 29 20 28 22 | 69 6e 20 6c 69 6e 65 20 | 1 2) ("|in line |
|00000e50| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 20 6f 66 20 |\\([0-9]|+\\) of |
|00000e60| 66 69 6c 65 20 5c 5c 28 | 5b 5e 20 5c 6e 5d 2b 5b |file \\(|[^ \n]+[|
|00000e70| 5e 2e 20 5c 6e 5d 5c 5c | 29 5c 5c 2e 3f 20 22 20 |^. \n]\\|)\\.? " |
|00000e80| 32 20 31 29 29 29 20 22 | 5c 0a 41 6c 69 73 74 20 |2 1))) "|\.Alist |
|00000e90| 74 68 61 74 20 73 70 65 | 63 69 66 69 65 73 20 68 |that spe|cifies h|
|00000ea0| 6f 77 20 74 6f 20 6d 61 | 74 63 68 20 65 72 72 6f |ow to ma|tch erro|
|00000eb0| 72 73 20 69 6e 20 63 6f | 6d 70 69 6c 65 72 20 6f |rs in co|mpiler o|
|00000ec0| 75 74 70 75 74 2e 0a 45 | 61 63 68 20 65 6c 65 6d |utput..E|ach elem|
|00000ed0| 65 6e 74 20 68 61 73 20 | 74 68 65 20 66 6f 72 6d |ent has |the form|
|00000ee0| 20 28 52 45 47 45 58 50 | 20 46 49 4c 45 2d 49 44 | (REGEXP| FILE-ID|
|00000ef0| 58 20 4c 49 4e 45 2d 49 | 44 58 29 2e 0a 49 66 20 |X LINE-I|DX)..If |
|00000f00| 52 45 47 45 58 50 20 6d | 61 74 63 68 65 73 2c 20 |REGEXP m|atches, |
|00000f10| 74 68 65 20 46 49 4c 45 | 2d 49 44 58 27 74 68 20 |the FILE|-IDX'th |
|00000f20| 73 75 62 65 78 70 72 65 | 73 73 69 6f 6e 20 67 69 |subexpre|ssion gi|
|00000f30| 76 65 73 20 74 68 65 20 | 66 69 6c 65 0a 6e 61 6d |ves the |file.nam|
|00000f40| 65 2c 20 61 6e 64 20 74 | 68 65 20 4c 49 4e 45 2d |e, and t|he LINE-|
|00000f50| 49 44 58 27 74 68 20 73 | 75 62 65 78 70 72 65 73 |IDX'th s|ubexpres|
|00000f60| 73 69 6f 6e 20 67 69 76 | 65 73 20 74 68 65 20 6c |sion giv|es the l|
|00000f70| 69 6e 65 20 6e 75 6d 62 | 65 72 2e 22 29 0a 28 64 |ine numb|er.").(d|
|00000f80| 65 66 76 61 72 20 67 72 | 65 70 2d 72 65 67 65 78 |efvar gr|ep-regex|
|00000f90| 70 2d 61 6c 69 73 74 20 | 28 71 75 6f 74 65 20 28 |p-alist |(quote (|
|00000fa0| 28 22 5e 5c 5c 28 5b 5e | 3a 28 20 09 5c 6e 5d 2b |("^\\([^|:( .\n]+|
|00000fb0| 5c 5c 29 5b 3a 28 20 09 | 5d 2b 5c 5c 28 5b 30 2d |\\)[:( .|]+\\([0-|
|00000fc0| 39 5d 2b 5c 5c 29 5b 3a | 29 20 09 5d 22 20 31 20 |9]+\\)[:|) .]" 1 |
|00000fd0| 32 29 29 29 20 22 5c 0a | 52 65 67 65 78 70 20 75 |2))) "\.|Regexp u|
|00000fe0| 73 65 64 20 74 6f 20 6d | 61 74 63 68 20 67 72 65 |sed to m|atch gre|
|00000ff0| 70 20 68 69 74 73 2e 20 | 20 53 65 65 20 60 63 6f |p hits. | See `co|
|00001000| 6d 70 69 6c 61 74 69 6f | 6e 2d 65 72 72 6f 72 2d |mpilatio|n-error-|
|00001010| 72 65 67 65 78 70 2d 61 | 6c 69 73 74 27 2e 22 29 |regexp-a|list'.")|
|00001020| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 70 69 6c 61 |.(defvar| compila|
|00001030| 74 69 6f 6e 2d 73 65 61 | 72 63 68 2d 70 61 74 68 |tion-sea|rch-path|
|00001040| 20 28 71 75 6f 74 65 20 | 28 6e 69 6c 29 29 20 22 | (quote |(nil)) "|
|00001050| 5c 0a 2a 4c 69 73 74 20 | 6f 66 20 64 69 72 65 63 |\.*List |of direc|
|00001060| 74 6f 72 69 65 73 20 74 | 6f 20 73 65 61 72 63 68 |tories t|o search|
|00001070| 20 66 6f 72 20 73 6f 75 | 72 63 65 20 66 69 6c 65 | for sou|rce file|
|00001080| 73 20 6e 61 6d 65 64 20 | 69 6e 20 65 72 72 6f 72 |s named |in error|
|00001090| 20 6d 65 73 73 61 67 65 | 73 2e 0a 45 6c 65 6d 65 | message|s..Eleme|
|000010a0| 6e 74 73 20 73 68 6f 75 | 6c 64 20 62 65 20 64 69 |nts shou|ld be di|
|000010b0| 72 65 63 74 6f 72 79 20 | 6e 61 6d 65 73 2c 20 6e |rectory |names, n|
|000010c0| 6f 74 20 66 69 6c 65 20 | 6e 61 6d 65 73 20 6f 66 |ot file |names of|
|000010d0| 20 64 69 72 65 63 74 6f | 72 69 65 73 2e 0a 6e 69 | directo|ries..ni|
|000010e0| 6c 20 61 73 20 61 6e 20 | 65 6c 65 6d 65 6e 74 20 |l as an |element |
|000010f0| 6d 65 61 6e 73 20 74 6f | 20 74 72 79 20 74 68 65 |means to| try the|
|00001100| 20 64 65 66 61 75 6c 74 | 20 64 69 72 65 63 74 6f | default| directo|
|00001110| 72 79 2e 22 29 0a 28 64 | 65 66 76 61 72 20 63 6f |ry.").(d|efvar co|
|00001120| 6d 70 69 6c 65 2d 63 6f | 6d 6d 61 6e 64 20 22 6d |mpile-co|mmand "m|
|00001130| 61 6b 65 20 2d 6b 20 22 | 20 22 5c 0a 4c 61 73 74 |ake -k "| "\.Last|
|00001140| 20 73 68 65 6c 6c 20 63 | 6f 6d 6d 61 6e 64 20 75 | shell c|ommand u|
|00001150| 73 65 64 20 74 6f 20 64 | 6f 20 61 20 63 6f 6d 70 |sed to d|o a comp|
|00001160| 69 6c 61 74 69 6f 6e 3b | 20 64 65 66 61 75 6c 74 |ilation;| default|
|00001170| 20 66 6f 72 20 6e 65 78 | 74 20 63 6f 6d 70 69 6c | for nex|t compil|
|00001180| 61 74 69 6f 6e 2e 0a 0a | 53 6f 6d 65 74 69 6d 65 |ation...|Sometime|
|00001190| 73 20 69 74 20 69 73 20 | 75 73 65 66 75 6c 20 66 |s it is |useful f|
|000011a0| 6f 72 20 66 69 6c 65 73 | 20 74 6f 20 73 75 70 70 |or files| to supp|
|000011b0| 6c 79 20 6c 6f 63 61 6c | 20 76 61 6c 75 65 73 20 |ly local| values |
|000011c0| 66 6f 72 20 74 68 69 73 | 20 76 61 72 69 61 62 6c |for this| variabl|
|000011d0| 65 2e 0a 59 6f 75 20 6d | 69 67 68 74 20 61 6c 73 |e..You m|ight als|
|000011e0| 6f 20 75 73 65 20 6d 6f | 64 65 20 68 6f 6f 6b 73 |o use mo|de hooks|
|000011f0| 20 74 6f 20 73 70 65 63 | 69 66 79 20 69 74 20 69 | to spec|ify it i|
|00001200| 6e 20 63 65 72 74 61 69 | 6e 20 6d 6f 64 65 73 2c |n certai|n modes,|
|00001210| 20 6c 69 6b 65 20 74 68 | 69 73 3a 0a 0a 20 20 20 | like th|is:..   |
|00001220| 20 28 73 65 74 71 20 63 | 2d 6d 6f 64 65 2d 68 6f | (setq c|-mode-ho|
|00001230| 6f 6b 0a 20 20 20 20 20 | 20 27 28 6c 61 6d 62 64 |ok.     | '(lambd|
|00001240| 61 20 28 29 20 28 6f 72 | 20 28 66 69 6c 65 2d 65 |a () (or| (file-e|
|00001250| 78 69 73 74 73 2d 70 20 | 5c 22 6d 61 6b 65 66 69 |xists-p |\"makefi|
|00001260| 6c 65 5c 22 29 20 28 66 | 69 6c 65 2d 65 78 69 73 |le\") (f|ile-exis|
|00001270| 74 73 2d 70 20 5c 22 4d | 61 6b 65 66 69 6c 65 5c |ts-p \"M|akefile\|
|00001280| 22 29 0a 09 09 20 20 20 | 20 20 20 28 70 72 6f 67 |")...   |   (prog|
|00001290| 6e 20 28 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 |n (make-|local-va|
|000012a0| 72 69 61 62 6c 65 20 27 | 63 6f 6d 70 69 6c 65 2d |riable '|compile-|
|000012b0| 63 6f 6d 6d 61 6e 64 29 | 0a 09 09 09 20 20 20 20 |command)|....    |
|000012c0| 20 28 73 65 74 71 20 63 | 6f 6d 70 69 6c 65 2d 63 | (setq c|ompile-c|
|000012d0| 6f 6d 6d 61 6e 64 0a 09 | 09 09 09 20 20 20 20 28 |ommand..|...    (|
|000012e0| 63 6f 6e 63 61 74 20 5c | 22 6d 61 6b 65 20 2d 6b |concat \|"make -k|
|000012f0| 20 5c 22 0a 09 09 09 09 | 09 20 20 20 20 62 75 66 | \".....|.    buf|
|00001300| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 29 29 29 |fer-file|-name)))|
|00001310| 29 29 29 22 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |)))").(d|efconst |
|00001320| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 65 6e 74 65 |compilat|ion-ente|
|00001330| 72 2d 64 69 72 65 63 74 | 6f 72 79 2d 72 65 67 65 |r-direct|ory-rege|
|00001340| 78 70 20 22 3a 20 45 6e | 74 65 72 69 6e 67 20 64 |xp ": En|tering d|
|00001350| 69 72 65 63 74 6f 72 79 | 20 60 5c 5c 28 2e 2a 5c |irectory| `\\(.*\|
|00001360| 5c 29 27 24 22 20 22 5c | 0a 52 65 67 75 6c 61 72 |\)'$" "\|.Regular|
|00001370| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 6d 61 74 63 | express|ion matc|
|00001380| 68 69 6e 67 20 6c 69 6e | 65 73 20 74 68 61 74 20 |hing lin|es that |
|00001390| 69 6e 64 69 63 61 74 65 | 20 61 20 6e 65 77 20 63 |indicate| a new c|
|000013a0| 75 72 72 65 6e 74 20 64 | 69 72 65 63 74 6f 72 79 |urrent d|irectory|
|000013b0| 2e 0a 54 68 69 73 20 6d | 75 73 74 20 63 6f 6e 74 |..This m|ust cont|
|000013c0| 61 69 6e 20 6f 6e 65 20 | 5c 5c 28 2c 20 5c 5c 29 |ain one |\\(, \\)|
|000013d0| 20 70 61 69 72 20 61 72 | 6f 75 6e 64 20 74 68 65 | pair ar|ound the|
|000013e0| 20 64 69 72 65 63 74 6f | 72 79 20 6e 61 6d 65 2e | directo|ry name.|
|000013f0| 0a 0a 54 68 65 20 64 65 | 66 61 75 6c 74 20 76 61 |..The de|fault va|
|00001400| 6c 75 65 20 6d 61 74 63 | 68 65 73 20 6c 69 6e 65 |lue matc|hes line|
|00001410| 73 20 70 72 69 6e 74 65 | 64 20 62 79 20 74 68 65 |s printe|d by the|
|00001420| 20 60 2d 77 27 20 6f 70 | 74 69 6f 6e 20 6f 66 20 | `-w' op|tion of |
|00001430| 47 4e 55 20 4d 61 6b 65 | 2e 22 29 0a 28 64 65 66 |GNU Make|.").(def|
|00001440| 63 6f 6e 73 74 20 63 6f | 6d 70 69 6c 61 74 69 6f |const co|mpilatio|
|00001450| 6e 2d 6c 65 61 76 65 2d | 64 69 72 65 63 74 6f 72 |n-leave-|director|
|00001460| 79 2d 72 65 67 65 78 70 | 20 22 3a 20 4c 65 61 76 |y-regexp| ": Leav|
|00001470| 69 6e 67 20 64 69 72 65 | 63 74 6f 72 79 20 60 5c |ing dire|ctory `\|
|00001480| 5c 28 2e 2a 5c 5c 29 27 | 24 22 20 22 5c 0a 52 65 |\(.*\\)'|$" "\.Re|
|00001490| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|000014a0| 20 6d 61 74 63 68 69 6e | 67 20 6c 69 6e 65 73 20 | matchin|g lines |
|000014b0| 74 68 61 74 20 69 6e 64 | 69 63 61 74 65 20 72 65 |that ind|icate re|
|000014c0| 73 74 6f 72 69 6e 67 20 | 63 75 72 72 65 6e 74 20 |storing |current |
|000014d0| 64 69 72 65 63 74 6f 72 | 79 2e 0a 54 68 69 73 20 |director|y..This |
|000014e0| 6d 61 79 20 63 6f 6e 74 | 61 69 6e 20 6f 6e 65 20 |may cont|ain one |
|000014f0| 5c 5c 28 2c 20 5c 5c 29 | 20 70 61 69 72 20 61 72 |\\(, \\)| pair ar|
|00001500| 6f 75 6e 64 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |ound the| name of|
|00001510| 20 74 68 65 20 64 69 72 | 65 63 74 6f 72 79 0a 62 | the dir|ectory.b|
|00001520| 65 69 6e 67 20 6d 6f 76 | 65 64 20 66 72 6f 6d 2e |eing mov|ed from.|
|00001530| 20 20 49 66 20 69 74 20 | 64 6f 65 73 20 6e 6f 74 |  If it |does not|
|00001540| 2c 20 74 68 65 20 6c 61 | 73 74 20 64 69 72 65 63 |, the la|st direc|
|00001550| 74 6f 72 79 20 65 6e 74 | 65 72 65 64 20 28 62 79 |tory ent|ered (by|
|00001560| 20 61 0a 6c 69 6e 65 20 | 6d 61 74 63 68 69 6e 67 | a.line |matching|
|00001570| 20 60 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 65 6e | `compil|ation-en|
|00001580| 74 65 72 2d 64 69 72 65 | 63 74 6f 72 79 2d 72 65 |ter-dire|ctory-re|
|00001590| 67 65 78 70 27 29 20 69 | 73 20 61 73 73 75 6d 65 |gexp') i|s assume|
|000015a0| 64 2e 0a 0a 54 68 65 20 | 64 65 66 61 75 6c 74 20 |d...The |default |
|000015b0| 76 61 6c 75 65 20 6d 61 | 74 63 68 65 73 20 6c 69 |value ma|tches li|
|000015c0| 6e 65 73 20 70 72 69 6e | 74 65 64 20 62 79 20 74 |nes prin|ted by t|
|000015d0| 68 65 20 60 2d 77 27 20 | 6f 70 74 69 6f 6e 20 6f |he `-w' |option o|
|000015e0| 66 20 47 4e 55 20 4d 61 | 6b 65 2e 22 29 0a 28 64 |f GNU Ma|ke.").(d|
|000015f0| 65 66 76 61 72 20 63 6f | 6d 70 69 6c 61 74 69 6f |efvar co|mpilatio|
|00001600| 6e 2d 64 69 72 65 63 74 | 6f 72 79 2d 73 74 61 63 |n-direct|ory-stac|
|00001610| 6b 20 6e 69 6c 20 22 5c | 0a 53 74 61 63 6b 20 6f |k nil "\|.Stack o|
|00001620| 66 20 70 72 65 76 69 6f | 75 73 20 64 69 72 65 63 |f previo|us direc|
|00001630| 74 6f 72 69 65 73 20 66 | 6f 72 20 60 63 6f 6d 70 |tories f|or `comp|
|00001640| 69 6c 61 74 69 6f 6e 2d | 6c 65 61 76 65 2d 64 69 |ilation-|leave-di|
|00001650| 72 65 63 74 6f 72 79 2d | 72 65 67 65 78 70 27 2e |rectory-|regexp'.|
|00001660| 0a 54 68 65 20 68 65 61 | 64 20 65 6c 65 6d 65 6e |.The hea|d elemen|
|00001670| 74 20 69 73 20 74 68 65 | 20 64 69 72 65 63 74 6f |t is the| directo|
|00001680| 72 79 20 74 68 65 20 63 | 6f 6d 70 69 6c 61 74 69 |ry the c|ompilati|
|00001690| 6f 6e 20 77 61 73 20 73 | 74 61 72 74 65 64 20 69 |on was s|tarted i|
|000016a0| 6e 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |n.").(by|te-code |
|000016b0| 22 c0 c1 21 84 08 00 c2 | 11 c0 c3 21 84 10 00 c2 |"..!....|...!....|
|000016c0| 13 c2 87 22 20 5b 62 6f | 75 6e 64 70 20 63 6f 6d |..." [bo|undp com|
|000016d0| 70 69 6c 65 2d 68 69 73 | 74 6f 72 79 20 6e 69 6c |pile-his|tory nil|
|000016e0| 20 67 72 65 70 2d 68 69 | 73 74 6f 72 79 5d 20 32 | grep-hi|story] 2|
|000016f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |).(defal|ias 'com|
|00001700| 70 69 6c 65 20 23 5b 28 | 63 6f 6d 6d 61 6e 64 29 |pile #[(|command)|
|00001710| 20 22 08 11 c2 c3 89 5c | 22 88 c4 09 c5 5c 22 87 | ".....\|"....\".|
|00001720| 22 20 5b 63 6f 6d 6d 61 | 6e 64 20 63 6f 6d 70 69 |" [comma|nd compi|
|00001730| 6c 65 2d 63 6f 6d 6d 61 | 6e 64 20 73 61 76 65 2d |le-comma|nd save-|
|00001740| 73 6f 6d 65 2d 62 75 66 | 66 65 72 73 20 6e 69 6c |some-buf|fers nil|
|00001750| 20 63 6f 6d 70 69 6c 65 | 2d 69 6e 74 65 72 6e 61 | compile|-interna|
|00001760| 6c 20 22 4e 6f 20 6d 6f | 72 65 20 65 72 72 6f 72 |l "No mo|re error|
|00001770| 73 22 5d 20 33 20 22 5c | 0a 43 6f 6d 70 69 6c 65 |s"] 3 "\|.Compile|
|00001780| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 69 6e 63 | the pro|gram inc|
|00001790| 6c 75 64 69 6e 67 20 74 | 68 65 20 63 75 72 72 65 |luding t|he curre|
|000017a0| 6e 74 20 62 75 66 66 65 | 72 2e 20 20 44 65 66 61 |nt buffe|r.  Defa|
|000017b0| 75 6c 74 3a 20 72 75 6e | 20 60 6d 61 6b 65 27 2e |ult: run| `make'.|
|000017c0| 0a 52 75 6e 73 20 43 4f | 4d 4d 41 4e 44 2c 20 61 |.Runs CO|MMAND, a|
|000017d0| 20 73 68 65 6c 6c 20 63 | 6f 6d 6d 61 6e 64 2c 20 | shell c|ommand, |
|000017e0| 69 6e 20 61 20 73 65 70 | 61 72 61 74 65 20 70 72 |in a sep|arate pr|
|000017f0| 6f 63 65 73 73 20 61 73 | 79 6e 63 68 72 6f 6e 6f |ocess as|ynchrono|
|00001800| 75 73 6c 79 0a 77 69 74 | 68 20 6f 75 74 70 75 74 |usly.wit|h output|
|00001810| 20 67 6f 69 6e 67 20 74 | 6f 20 74 68 65 20 62 75 | going t|o the bu|
|00001820| 66 66 65 72 20 60 2a 63 | 6f 6d 70 69 6c 61 74 69 |ffer `*c|ompilati|
|00001830| 6f 6e 2a 27 2e 0a 0a 59 | 6f 75 20 63 61 6e 20 74 |on*'...Y|ou can t|
|00001840| 68 65 6e 20 75 73 65 20 | 74 68 65 20 63 6f 6d 6d |hen use |the comm|
|00001850| 61 6e 64 20 5c 5c 5b 6e | 65 78 74 2d 65 72 72 6f |and \\[n|ext-erro|
|00001860| 72 5d 20 74 6f 20 66 69 | 6e 64 20 74 68 65 20 6e |r] to fi|nd the n|
|00001870| 65 78 74 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |ext erro|r messag|
|00001880| 65 0a 61 6e 64 20 6d 6f | 76 65 20 74 6f 20 74 68 |e.and mo|ve to th|
|00001890| 65 20 73 6f 75 72 63 65 | 20 63 6f 64 65 20 74 68 |e source| code th|
|000018a0| 61 74 20 63 61 75 73 65 | 64 20 69 74 2e 0a 0a 54 |at cause|d it...T|
|000018b0| 6f 20 72 75 6e 20 6d 6f | 72 65 20 74 68 61 6e 20 |o run mo|re than |
|000018c0| 6f 6e 65 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |one comp|ilation |
|000018d0| 61 74 20 6f 6e 63 65 2c | 20 73 74 61 72 74 20 6f |at once,| start o|
|000018e0| 6e 65 20 61 6e 64 20 72 | 65 6e 61 6d 65 20 74 68 |ne and r|ename th|
|000018f0| 65 0a 60 2a 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2a |e.`*comp|ilation*|
|00001900| 27 20 62 75 66 66 65 72 | 20 74 6f 20 73 6f 6d 65 |' buffer| to some|
|00001910| 20 6f 74 68 65 72 20 6e | 61 6d 65 20 77 69 74 68 | other n|ame with|
|00001920| 20 5c 5c 5b 72 65 6e 61 | 6d 65 2d 62 75 66 66 65 | \\[rena|me-buffe|
|00001930| 72 5d 2e 0a 54 68 65 6e | 20 73 74 61 72 74 20 74 |r]..Then| start t|
|00001940| 68 65 20 6e 65 78 74 20 | 6f 6e 65 2e 0a 0a 54 68 |he next |one...Th|
|00001950| 65 20 6e 61 6d 65 20 75 | 73 65 64 20 66 6f 72 20 |e name u|sed for |
|00001960| 74 68 65 20 62 75 66 66 | 65 72 20 69 73 20 61 63 |the buff|er is ac|
|00001970| 74 75 61 6c 6c 79 20 77 | 68 61 74 65 76 65 72 20 |tually w|hatever |
|00001980| 69 73 20 72 65 74 75 72 | 6e 65 64 20 62 79 0a 74 |is retur|ned by.t|
|00001990| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 69 6e 20 60 |he funct|ion in `|
|000019a0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 62 75 66 66 |compilat|ion-buff|
|000019b0| 65 72 2d 6e 61 6d 65 2d | 66 75 6e 63 74 69 6f 6e |er-name-|function|
|000019c0| 27 2c 20 73 6f 20 79 6f | 75 20 63 61 6e 20 73 65 |', so yo|u can se|
|000019d0| 74 20 74 68 61 74 0a 74 | 6f 20 61 20 66 75 6e 63 |t that.t|o a func|
|000019e0| 74 69 6f 6e 20 74 68 61 | 74 20 67 65 6e 65 72 61 |tion tha|t genera|
|000019f0| 74 65 73 20 61 20 75 6e | 69 71 75 65 20 6e 61 6d |tes a un|ique nam|
|00001a00| 65 2e 22 20 28 6c 69 73 | 74 20 28 72 65 61 64 2d |e." (lis|t (read-|
|00001a10| 66 72 6f 6d 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |from-min|ibuffer |
|00001a20| 22 43 6f 6d 70 69 6c 65 | 20 63 6f 6d 6d 61 6e 64 |"Compile| command|
|00001a30| 3a 20 22 20 63 6f 6d 70 | 69 6c 65 2d 63 6f 6d 6d |: " comp|ile-comm|
|00001a40| 61 6e 64 20 6e 69 6c 20 | 6e 69 6c 20 28 71 75 6f |and nil |nil (quo|
|00001a50| 74 65 20 28 63 6f 6d 70 | 69 6c 65 2d 68 69 73 74 |te (comp|ile-hist|
|00001a60| 6f 72 79 20 2e 20 31 29 | 29 29 29 5d 29 0a 28 64 |ory . 1)|)))]).(d|
|00001a70| 65 66 61 6c 69 61 73 20 | 27 67 72 65 70 20 23 5b |efalias |'grep #[|
|00001a80| 28 63 6f 6d 6d 61 6e 64 | 2d 61 72 67 73 29 20 22 |(command|-args) "|
|00001a90| c0 09 c2 50 c3 c4 c5 0e | 06 25 87 22 20 5b 63 6f |...P....|.%." [co|
|00001aa0| 6d 70 69 6c 65 2d 69 6e | 74 65 72 6e 61 6c 20 63 |mpile-in|ternal c|
|00001ab0| 6f 6d 6d 61 6e 64 2d 61 | 72 67 73 20 22 20 2f 64 |ommand-a|rgs " /d|
|00001ac0| 65 76 2f 6e 75 6c 6c 22 | 20 22 4e 6f 20 6d 6f 72 |ev/null"| "No mor|
|00001ad0| 65 20 67 72 65 70 20 68 | 69 74 73 22 20 22 67 72 |e grep h|its" "gr|
|00001ae0| 65 70 22 20 6e 69 6c 20 | 67 72 65 70 2d 72 65 67 |ep" nil |grep-reg|
|00001af0| 65 78 70 2d 61 6c 69 73 | 74 5d 20 36 20 22 5c 0a |exp-alis|t] 6 "\.|
|00001b00| 52 75 6e 20 67 72 65 70 | 2c 20 77 69 74 68 20 75 |Run grep|, with u|
|00001b10| 73 65 72 2d 73 70 65 63 | 69 66 69 65 64 20 61 72 |ser-spec|ified ar|
|00001b20| 67 73 2c 20 61 6e 64 20 | 63 6f 6c 6c 65 63 74 20 |gs, and |collect |
|00001b30| 6f 75 74 70 75 74 20 69 | 6e 20 61 20 62 75 66 66 |output i|n a buff|
|00001b40| 65 72 2e 0a 57 68 69 6c | 65 20 67 72 65 70 20 72 |er..Whil|e grep r|
|00001b50| 75 6e 73 20 61 73 79 6e | 63 68 72 6f 6e 6f 75 73 |uns asyn|chronous|
|00001b60| 6c 79 2c 20 79 6f 75 20 | 63 61 6e 20 75 73 65 20 |ly, you |can use |
|00001b70| 74 68 65 20 5c 5c 5b 6e | 65 78 74 2d 65 72 72 6f |the \\[n|ext-erro|
|00001b80| 72 5d 20 63 6f 6d 6d 61 | 6e 64 0a 74 6f 20 66 69 |r] comma|nd.to fi|
|00001b90| 6e 64 20 74 68 65 20 74 | 65 78 74 20 74 68 61 74 |nd the t|ext that|
|00001ba0| 20 67 72 65 70 20 68 69 | 74 73 20 72 65 66 65 72 | grep hi|ts refer|
|00001bb0| 20 74 6f 2e 0a 0a 54 68 | 69 73 20 63 6f 6d 6d 61 | to...Th|is comma|
|00001bc0| 6e 64 20 75 73 65 73 20 | 61 20 73 70 65 63 69 61 |nd uses |a specia|
|00001bd0| 6c 20 68 69 73 74 6f 72 | 79 20 6c 69 73 74 20 66 |l histor|y list f|
|00001be0| 6f 72 20 69 74 73 20 61 | 72 67 75 6d 65 6e 74 73 |or its a|rguments|
|00001bf0| 2c 20 73 6f 20 79 6f 75 | 20 63 61 6e 0a 65 61 73 |, so you| can.eas|
|00001c00| 69 6c 79 20 72 65 70 65 | 61 74 20 61 20 67 72 65 |ily repe|at a gre|
|00001c10| 70 20 63 6f 6d 6d 61 6e | 64 2e 22 20 28 6c 69 73 |p comman|d." (lis|
|00001c20| 74 20 28 72 65 61 64 2d | 66 72 6f 6d 2d 6d 69 6e |t (read-|from-min|
|00001c30| 69 62 75 66 66 65 72 20 | 22 52 75 6e 20 67 72 65 |ibuffer |"Run gre|
|00001c40| 70 20 28 6c 69 6b 65 20 | 74 68 69 73 29 3a 20 22 |p (like |this): "|
|00001c50| 20 22 67 72 65 70 20 2d | 6e 20 22 20 6e 69 6c 20 | "grep -|n " nil |
|00001c60| 6e 69 6c 20 28 71 75 6f | 74 65 20 67 72 65 70 2d |nil (quo|te grep-|
|00001c70| 68 69 73 74 6f 72 79 29 | 29 29 5d 29 0a 28 64 65 |history)|))]).(de|
|00001c80| 66 61 6c 69 61 73 20 27 | 63 6f 6d 70 69 6c 65 2d |falias '|compile-|
|00001c90| 69 6e 74 65 72 6e 61 6c | 20 23 5b 28 63 6f 6d 6d |internal| #[(comm|
|00001ca0| 61 6e 64 20 65 72 72 6f | 72 2d 6d 65 73 73 61 67 |and erro|r-messag|
|00001cb0| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 6e 61 6d 65 |e &optio|nal name|
|00001cc0| 2d 6f 66 2d 6d 6f 64 65 | 20 70 61 72 73 65 72 20 |-of-mode| parser |
|00001cd0| 72 65 67 65 78 70 2d 61 | 6c 69 73 74 20 6e 61 6d |regexp-a|list nam|
|00001ce0| 65 2d 66 75 6e 63 74 69 | 6f 6e 29 20 22 c0 19 8a |e-functi|on) "...|
|00001cf0| 5c 6e 84 09 00 c3 12 c4 | 0d 86 14 00 0e 06 86 14 |\n......|........|
|00001d00| 00 c7 5c 6e 21 21 89 11 | 71 88 c8 70 21 89 1e 09 |..\n!!..|q..p!...|
|00001d10| 83 44 00 ca 0e 09 21 cb | 3d 83 36 00 cc cd ce 5c |.D....!.|=.6....\|
|00001d20| 6e 5c 22 21 83 3e 00 c0 | cf d0 8f 88 82 44 00 d1 |n\"!.>..|.....D..|
|00001d30| d2 d3 20 5c 22 88 29 d4 | 20 88 29 0e 15 86 50 00 |.. \".).| .)...P.|
|00001d40| 0e 16 0e 17 86 57 00 0e | 18 0e 19 c0 1e 1a 1e 1b |.....W..|........|
|00001d50| 1e 17 1e 15 8a 09 71 88 | c0 16 1c dd 20 88 0e 1b |......q.|.... ...|
|00001d60| 16 19 de 0e 1b df 0e 20 | df b1 05 88 e1 c0 21 88 |....... |......!.|
|00001d70| 29 09 70 3d 83 88 00 64 | 62 88 e2 09 21 16 1a 8a |).p=...d|b...!...|
|00001d80| 09 71 88 e3 20 88 e4 70 | 21 88 e5 16 1c e6 d8 21 |.q.. ..p|!......!|
|00001d90| 0e 17 4c 88 e6 e7 21 0e | 28 4c 88 e6 d6 21 0e 15 |..L...!.|(L...!..|
|00001da0| 4c 88 0e 1b 89 16 19 43 | 16 29 ea 0e 1a 65 5c 22 |L......C|.)...e\"|
|00001db0| 88 5c 6e 16 2b 0e 1a ec | 20 3d 84 cf 00 ed 0e 1a |.\n.+...| =......|
|00001dc0| 65 5c 22 88 0e 2e 83 f2 | 00 ef 0e 1a 21 f0 20 55 |e\".....|....!. U|
|00001dd0| 83 f2 00 ec 20 1e 31 f2 | 8e f3 0e 1a 21 88 f4 0e |.... .1.|....!...|
|00001de0| 2e f5 20 5a 21 88 2a f6 | 0e 2b 97 09 0e 20 23 1e |.. Z!.*.|.+... #.|
|00001df0| 37 f8 0e 37 f9 5c 22 88 | fa 0e 37 fb 5c 22 88 fc |7..7.\".|..7.\"..|
|00001e00| 0e 37 21 60 09 93 88 0e | 37 0e 3d 42 16 3d 2e 06 |.7!`....|7.=B.=..|
|00001e10| 09 89 16 3e 29 87 22 20 | 5b 6e 69 6c 20 6f 75 74 |...>)." |[nil out|
|00001e20| 62 75 66 20 6e 61 6d 65 | 2d 6f 66 2d 6d 6f 64 65 |buf name|-of-mode|
|00001e30| 20 22 43 6f 6d 70 69 6c | 61 74 69 6f 6e 22 20 67 | "Compil|ation" g|
|00001e40| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00001e50| 20 6e 61 6d 65 2d 66 75 | 6e 63 74 69 6f 6e 20 63 | name-fu|nction c|
|00001e60| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 62 75 66 66 65 |ompilati|on-buffe|
|00001e70| 72 2d 6e 61 6d 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |r-name-f|unction |
|00001e80| 23 5b 28 6d 6f 64 65 29 | 20 22 c0 09 97 c0 51 87 |#[(mode)| "....Q.|
|00001e90| 22 20 5b 22 2a 22 20 6d | 6f 64 65 5d 20 33 5d 20 |" ["*" m|ode] 3] |
|00001ea0| 67 65 74 2d 62 75 66 66 | 65 72 2d 70 72 6f 63 65 |get-buff|er-proce|
|00001eb0| 73 73 20 63 6f 6d 70 2d | 70 72 6f 63 20 70 72 6f |ss comp-|proc pro|
|00001ec0| 63 65 73 73 2d 73 74 61 | 74 75 73 20 72 75 6e 20 |cess-sta|tus run |
|00001ed0| 79 65 73 2d 6f 72 2d 6e | 6f 2d 70 20 66 6f 72 6d |yes-or-n|o-p form|
|00001ee0| 61 74 20 22 41 20 25 73 | 20 70 72 6f 63 65 73 73 |at "A %s| process|
|00001ef0| 20 69 73 20 72 75 6e 6e | 69 6e 67 3b 20 6b 69 6c | is runn|ing; kil|
|00001f00| 6c 20 69 74 3f 20 22 20 | 28 62 79 74 65 2d 63 6f |l it? " |(byte-co|
|00001f10| 64 65 20 22 c0 09 21 88 | c2 c3 21 88 c4 09 21 87 |de "..!.|..!...!.|
|00001f20| 22 20 5b 69 6e 74 65 72 | 72 75 70 74 2d 70 72 6f |" [inter|rupt-pro|
|00001f30| 63 65 73 73 20 63 6f 6d | 70 2d 70 72 6f 63 20 73 |cess com|p-proc s|
|00001f40| 69 74 2d 66 6f 72 20 31 | 20 64 65 6c 65 74 65 2d |it-for 1| delete-|
|00001f50| 70 72 6f 63 65 73 73 5d | 20 32 29 20 28 28 65 72 |process]| 2) ((er|
|00001f60| 72 6f 72 29 29 20 65 72 | 72 6f 72 20 22 43 61 6e |ror)) er|ror "Can|
|00001f70| 6e 6f 74 20 68 61 76 65 | 20 74 77 6f 20 70 72 6f |not have| two pro|
|00001f80| 63 65 73 73 65 73 20 69 | 6e 20 60 25 73 27 20 61 |cesses i|n `%s' a|
|00001f90| 74 20 6f 6e 63 65 22 20 | 62 75 66 66 65 72 2d 6e |t once" |buffer-n|
|00001fa0| 61 6d 65 20 6b 69 6c 6c | 2d 61 6c 6c 2d 6c 6f 63 |ame kill|-all-loc|
|00001fb0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 72 65 67 |al-varia|bles reg|
|00001fc0| 65 78 70 2d 61 6c 69 73 | 74 20 63 6f 6d 70 69 6c |exp-alis|t compil|
|00001fd0| 61 74 69 6f 6e 2d 65 72 | 72 6f 72 2d 72 65 67 65 |ation-er|ror-rege|
|00001fe0| 78 70 2d 61 6c 69 73 74 | 20 70 61 72 73 65 72 20 |xp-alist| parser |
|00001ff0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 70 61 72 73 |compilat|ion-pars|
|00002000| 65 2d 65 72 72 6f 72 73 | 2d 66 75 6e 63 74 69 6f |e-errors|-functio|
|00002010| 6e 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |n defaul|t-direct|
|00002020| 6f 72 79 20 6f 75 74 77 | 69 6e 20 74 68 69 73 64 |ory outw|in thisd|
|00002030| 69 72 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |ir buffe|r-read-o|
|00002040| 6e 6c 79 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |nly eras|e-buffer|
|00002050| 20 22 63 64 20 22 20 22 | 5c 6e 22 20 63 6f 6d 6d | "cd " "|\n" comm|
|00002060| 61 6e 64 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |and set-|buffer-m|
|00002070| 6f 64 69 66 69 65 64 2d | 70 20 64 69 73 70 6c 61 |odified-|p displa|
|00002080| 79 2d 62 75 66 66 65 72 | 20 63 6f 6d 70 69 6c 61 |y-buffer| compila|
|00002090| 74 69 6f 6e 2d 6d 6f 64 | 65 20 62 75 66 66 65 72 |tion-mod|e buffer|
|000020a0| 2d 64 69 73 61 62 6c 65 | 2d 75 6e 64 6f 20 74 20 |-disable|-undo t |
|000020b0| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|000020c0| 62 6c 65 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |ble comp|ilation-|
|000020d0| 65 72 72 6f 72 2d 6d 65 | 73 73 61 67 65 20 65 72 |error-me|ssage er|
|000020e0| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 63 6f 6d 70 |ror-mess|age comp|
|000020f0| 69 6c 61 74 69 6f 6e 2d | 64 69 72 65 63 74 6f 72 |ilation-|director|
|00002100| 79 2d 73 74 61 63 6b 20 | 73 65 74 2d 77 69 6e 64 |y-stack |set-wind|
|00002110| 6f 77 2d 73 74 61 72 74 | 20 6d 6f 64 65 2d 6e 61 |ow-start| mode-na|
|00002120| 6d 65 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |me selec|ted-wind|
|00002130| 6f 77 20 73 65 74 2d 77 | 69 6e 64 6f 77 2d 70 6f |ow set-w|indow-po|
|00002140| 69 6e 74 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |int comp|ilation-|
|00002150| 77 69 6e 64 6f 77 2d 68 | 65 69 67 68 74 20 77 69 |window-h|eight wi|
|00002160| 6e 64 6f 77 2d 77 69 64 | 74 68 20 66 72 61 6d 65 |ndow-wid|th frame|
|00002170| 2d 77 69 64 74 68 20 77 | 20 28 28 73 65 6c 65 63 |-width w| ((selec|
|00002180| 74 2d 77 69 6e 64 6f 77 | 20 77 29 29 20 73 65 6c |t-window| w)) sel|
|00002190| 65 63 74 2d 77 69 6e 64 | 6f 77 20 65 6e 6c 61 72 |ect-wind|ow enlar|
|000021a0| 67 65 2d 77 69 6e 64 6f | 77 20 77 69 6e 64 6f 77 |ge-windo|w window|
|000021b0| 2d 68 65 69 67 68 74 20 | 73 74 61 72 74 2d 70 72 |-height |start-pr|
|000021c0| 6f 63 65 73 73 2d 73 68 | 65 6c 6c 2d 63 6f 6d 6d |ocess-sh|ell-comm|
|000021d0| 61 6e 64 20 70 72 6f 63 | 20 73 65 74 2d 70 72 6f |and proc| set-pro|
|000021e0| 63 65 73 73 2d 73 65 6e | 74 69 6e 65 6c 20 63 6f |cess-sen|tinel co|
|000021f0| 6d 70 69 6c 61 74 69 6f | 6e 2d 73 65 6e 74 69 6e |mpilatio|n-sentin|
|00002200| 65 6c 20 73 65 74 2d 70 | 72 6f 63 65 73 73 2d 66 |el set-p|rocess-f|
|00002210| 69 6c 74 65 72 20 63 6f | 6d 70 69 6c 61 74 69 6f |ilter co|mpilatio|
|00002220| 6e 2d 66 69 6c 74 65 72 | 20 70 72 6f 63 65 73 73 |n-filter| process|
|00002230| 2d 6d 61 72 6b 20 63 6f | 6d 70 69 6c 61 74 69 6f |-mark co|mpilatio|
|00002240| 6e 2d 69 6e 2d 70 72 6f | 67 72 65 73 73 20 63 6f |n-in-pro|gress co|
|00002250| 6d 70 69 6c 61 74 69 6f | 6e 2d 6c 61 73 74 2d 62 |mpilatio|n-last-b|
|00002260| 75 66 66 65 72 5d 20 36 | 20 22 5c 0a 52 75 6e 20 |uffer] 6| "\.Run |
|00002270| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 63 6f 6d 6d |compilat|ion comm|
|00002280| 61 6e 64 20 43 4f 4d 4d | 41 4e 44 20 28 6c 6f 77 |and COMM|AND (low|
|00002290| 20 6c 65 76 65 6c 20 69 | 6e 74 65 72 66 61 63 65 | level i|nterface|
|000022a0| 29 2e 0a 45 52 52 4f 52 | 2d 4d 45 53 53 41 47 45 |)..ERROR|-MESSAGE|
|000022b0| 20 69 73 20 61 20 73 74 | 72 69 6e 67 20 74 6f 20 | is a st|ring to |
|000022c0| 70 72 69 6e 74 20 69 66 | 20 74 68 65 20 75 73 65 |print if| the use|
|000022d0| 72 20 61 73 6b 73 20 74 | 6f 20 73 65 65 20 61 6e |r asks t|o see an|
|000022e0| 6f 74 68 65 72 20 65 72 | 72 6f 72 0a 61 6e 64 20 |other er|ror.and |
|000022f0| 74 68 65 72 65 20 61 72 | 65 20 6e 6f 20 6d 6f 72 |there ar|e no mor|
|00002300| 65 20 65 72 72 6f 72 73 | 2e 20 20 54 68 69 72 64 |e errors|.  Third|
|00002310| 20 61 72 67 75 6d 65 6e | 74 20 4e 41 4d 45 2d 4f | argumen|t NAME-O|
|00002320| 46 2d 4d 4f 44 45 20 69 | 73 20 74 68 65 20 6e 61 |F-MODE i|s the na|
|00002330| 6d 65 0a 74 6f 20 64 69 | 73 70 6c 61 79 20 61 73 |me.to di|splay as|
|00002340| 20 74 68 65 20 6d 61 6a | 6f 72 20 6d 6f 64 65 20 | the maj|or mode |
|00002350| 69 6e 20 74 68 65 20 63 | 6f 6d 70 69 6c 61 74 69 |in the c|ompilati|
|00002360| 6f 6e 20 62 75 66 66 65 | 72 2e 0a 0a 46 6f 75 72 |on buffe|r...Four|
|00002370| 74 68 20 61 72 67 20 50 | 41 52 53 45 52 20 69 73 |th arg P|ARSER is|
|00002380| 20 74 68 65 20 65 72 72 | 6f 72 20 70 61 72 73 65 | the err|or parse|
|00002390| 72 20 66 75 6e 63 74 69 | 6f 6e 20 28 6e 69 6c 20 |r functi|on (nil |
|000023a0| 6d 65 61 6e 73 20 74 68 | 65 20 64 65 66 61 75 6c |means th|e defaul|
|000023b0| 74 29 2e 20 20 46 69 66 | 74 68 0a 61 72 67 20 52 |t).  Fif|th.arg R|
|000023c0| 45 47 45 58 50 2d 41 4c | 49 53 54 20 69 73 20 74 |EGEXP-AL|IST is t|
|000023d0| 68 65 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |he error| message|
|000023e0| 20 72 65 67 65 78 70 20 | 61 6c 69 73 74 20 74 6f | regexp |alist to|
|000023f0| 20 75 73 65 20 28 6e 69 | 6c 20 6d 65 61 6e 73 20 | use (ni|l means |
|00002400| 74 68 65 0a 64 65 66 61 | 75 6c 74 29 2e 20 20 53 |the.defa|ult).  S|
|00002410| 69 78 74 68 20 61 72 67 | 20 4e 41 4d 45 2d 46 55 |ixth arg| NAME-FU|
|00002420| 4e 43 54 49 4f 4e 20 69 | 73 20 61 20 66 75 6e 63 |NCTION i|s a func|
|00002430| 74 69 6f 6e 20 63 61 6c | 6c 65 64 20 74 6f 20 6e |tion cal|led to n|
|00002440| 61 6d 65 20 74 68 65 20 | 62 75 66 66 65 72 20 28 |ame the |buffer (|
|00002450| 6e 69 6c 0a 6d 65 61 6e | 73 20 74 68 65 20 64 65 |nil.mean|s the de|
|00002460| 66 61 75 6c 74 29 2e 20 | 20 54 68 65 20 64 65 66 |fault). | The def|
|00002470| 61 75 6c 74 73 20 66 6f | 72 20 74 68 65 73 65 20 |aults fo|r these |
|00002480| 76 61 72 69 61 62 6c 65 | 73 20 61 72 65 20 74 68 |variable|s are th|
|00002490| 65 20 67 6c 6f 62 61 6c | 20 76 61 6c 75 65 73 20 |e global| values |
|000024a0| 6f 66 0a 60 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |of.`comp|ilation-|
|000024b0| 70 61 72 73 65 2d 65 72 | 72 6f 72 73 2d 66 75 6e |parse-er|rors-fun|
|000024c0| 63 74 69 6f 6e 27 2c 20 | 60 63 6f 6d 70 69 6c 61 |ction', |`compila|
|000024d0| 74 69 6f 6e 2d 65 72 72 | 6f 72 2d 72 65 67 65 78 |tion-err|or-regex|
|000024e0| 70 2d 61 6c 69 73 74 27 | 2c 20 61 6e 64 0a 60 63 |p-alist'|, and.`c|
|000024f0| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 62 75 66 66 65 |ompilati|on-buffe|
|00002500| 72 2d 6e 61 6d 65 2d 66 | 75 6e 63 74 69 6f 6e 27 |r-name-f|unction'|
|00002510| 2c 20 72 65 73 70 65 63 | 74 69 76 65 6c 79 2e 0a |, respec|tively..|
|00002520| 0a 52 65 74 75 72 6e 73 | 20 74 68 65 20 63 6f 6d |.Returns| the com|
|00002530| 70 69 6c 61 74 69 6f 6e | 20 62 75 66 66 65 72 20 |pilation| buffer |
|00002540| 63 72 65 61 74 65 64 2e | 22 5d 29 0a 28 64 65 66 |created.|"]).(def|
|00002550| 76 61 72 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |var comp|ilation-|
|00002560| 6d 69 6e 6f 72 2d 6d 6f | 64 65 2d 6d 61 70 20 28 |minor-mo|de-map (|
|00002570| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 20 19 c2 09 |byte-cod|e ". ...|
|00002580| c3 c4 23 88 c2 09 c5 c6 | 23 88 c2 09 c7 c8 23 88 |..#.....|#.....#.|
|00002590| c2 09 c9 ca 23 88 c2 09 | cb cc 23 88 c2 09 cd ce |....#...|..#.....|
|000025a0| 23 88 09 29 87 22 20 5b | 6d 61 6b 65 2d 73 70 61 |#..)." [|make-spa|
|000025b0| 72 73 65 2d 6b 65 79 6d | 61 70 20 6d 61 70 20 64 |rse-keym|ap map d|
|000025c0| 65 66 69 6e 65 2d 6b 65 | 79 20 22 03 03 22 20 63 |efine-ke|y ".." c|
|000025d0| 6f 6d 70 69 6c 65 2d 67 | 6f 74 6f 2d 65 72 72 6f |ompile-g|oto-erro|
|000025e0| 72 20 22 03 0b 22 20 6b | 69 6c 6c 2d 63 6f 6d 70 |r ".." k|ill-comp|
|000025f0| 69 6c 61 74 69 6f 6e 20 | 22 ee 22 20 63 6f 6d 70 |ilation |"." comp|
|00002600| 69 6c 61 74 69 6f 6e 2d | 6e 65 78 74 2d 65 72 72 |ilation-|next-err|
|00002610| 6f 72 20 22 f0 22 20 63 | 6f 6d 70 69 6c 61 74 69 |or "." c|ompilati|
|00002620| 6f 6e 2d 70 72 65 76 69 | 6f 75 73 2d 65 72 72 6f |on-previ|ous-erro|
|00002630| 72 20 22 fb 22 20 63 6f | 6d 70 69 6c 61 74 69 6f |r "." co|mpilatio|
|00002640| 6e 2d 70 72 65 76 69 6f | 75 73 2d 66 69 6c 65 20 |n-previo|us-file |
|00002650| 22 fd 22 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |"." comp|ilation-|
|00002660| 6e 65 78 74 2d 66 69 6c | 65 5d 20 34 29 20 22 5c |next-fil|e] 4) "\|
|00002670| 0a 4b 65 79 6d 61 70 20 | 66 6f 72 20 60 63 6f 6d |.Keymap |for `com|
|00002680| 70 69 6c 61 74 69 6f 6e | 2d 6d 69 6e 6f 72 2d 6d |pilation|-minor-m|
|00002690| 6f 64 65 27 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ode'.").|(defvar |
|000026a0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 6d 6f 64 65 |compilat|ion-mode|
|000026b0| 2d 6d 61 70 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |-map (by|te-code |
|000026c0| 22 c0 09 42 1a c3 5c 6e | c4 c5 23 88 c3 5c 6e c6 |"..B..\n|..#..\n.|
|000026d0| c7 23 88 5c 6e 29 87 22 | 20 5b 6b 65 79 6d 61 70 |.#.\n)."| [keymap|
|000026e0| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 6d 69 6e | compila|tion-min|
|000026f0| 6f 72 2d 6d 6f 64 65 2d | 6d 61 70 20 6d 61 70 20 |or-mode-|map map |
|00002700| 64 65 66 69 6e 65 2d 6b | 65 79 20 22 20 22 20 73 |define-k|ey " " s|
|00002710| 63 72 6f 6c 6c 2d 75 70 | 20 22 7f 22 20 73 63 72 |croll-up| "." scr|
|00002720| 6f 6c 6c 2d 64 6f 77 6e | 5d 20 34 29 20 22 5c 0a |oll-down|] 4) "\.|
|00002730| 4b 65 79 6d 61 70 20 66 | 6f 72 20 63 6f 6d 70 69 |Keymap f|or compi|
|00002740| 6c 61 74 69 6f 6e 20 6c | 6f 67 20 62 75 66 66 65 |lation l|og buffe|
|00002750| 72 73 2e 0a 60 63 6f 6d | 70 69 6c 61 74 69 6f 6e |rs..`com|pilation|
|00002760| 2d 6d 69 6e 6f 72 2d 6d | 6f 64 65 2d 6d 61 70 27 |-minor-m|ode-map'|
|00002770| 20 69 73 20 61 20 63 64 | 72 20 6f 66 20 74 68 69 | is a cd|r of thi|
|00002780| 73 2e 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |s.").(de|falias '|
|00002790| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 6d 6f 64 65 |compilat|ion-mode|
|000027a0| 20 23 5b 6e 69 6c 20 22 | c0 20 88 c1 5c 6e 21 88 | #[nil "|. ..\n!.|
|000027b0| c3 14 c5 16 06 c7 20 88 | c8 c9 21 87 22 20 5b 66 |...... .|..!." [f|
|000027c0| 75 6e 64 61 6d 65 6e 74 | 61 6c 2d 6d 6f 64 65 20 |undament|al-mode |
|000027d0| 75 73 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 63 6f |use-loca|l-map co|
|000027e0| 6d 70 69 6c 61 74 69 6f | 6e 2d 6d 6f 64 65 2d 6d |mpilatio|n-mode-m|
|000027f0| 61 70 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 6d |ap compi|lation-m|
|00002800| 6f 64 65 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 22 |ode majo|r-mode "|
|00002810| 43 6f 6d 70 69 6c 61 74 | 69 6f 6e 22 20 6d 6f 64 |Compilat|ion" mod|
|00002820| 65 2d 6e 61 6d 65 20 63 | 6f 6d 70 69 6c 61 74 69 |e-name c|ompilati|
|00002830| 6f 6e 2d 73 65 74 75 70 | 20 72 75 6e 2d 68 6f 6f |on-setup| run-hoo|
|00002840| 6b 73 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 6d |ks compi|lation-m|
|00002850| 6f 64 65 2d 68 6f 6f 6b | 5d 20 32 20 22 5c 0a 4d |ode-hook|] 2 "\.M|
|00002860| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 63 6f |ajor mod|e for co|
|00002870| 6d 70 69 6c 61 74 69 6f | 6e 20 6c 6f 67 20 62 75 |mpilatio|n log bu|
|00002880| 66 66 65 72 73 2e 0a 5c | 5c 3c 63 6f 6d 70 69 6c |ffers..\|\<compil|
|00002890| 61 74 69 6f 6e 2d 6d 6f | 64 65 2d 6d 61 70 3e 54 |ation-mo|de-map>T|
|000028a0| 6f 20 76 69 73 69 74 20 | 74 68 65 20 73 6f 75 72 |o visit |the sour|
|000028b0| 63 65 20 66 6f 72 20 61 | 20 6c 69 6e 65 2d 6e 75 |ce for a| line-nu|
|000028c0| 6d 62 65 72 65 64 20 65 | 72 72 6f 72 2c 0a 6d 6f |mbered e|rror,.mo|
|000028d0| 76 65 20 70 6f 69 6e 74 | 20 74 6f 20 74 68 65 20 |ve point| to the |
|000028e0| 65 72 72 6f 72 20 6d 65 | 73 73 61 67 65 20 6c 69 |error me|ssage li|
|000028f0| 6e 65 20 61 6e 64 20 74 | 79 70 65 20 5c 5c 5b 63 |ne and t|ype \\[c|
|00002900| 6f 6d 70 69 6c 65 2d 67 | 6f 74 6f 2d 65 72 72 6f |ompile-g|oto-erro|
|00002910| 72 5d 2e 0a 54 6f 20 6b | 69 6c 6c 20 74 68 65 20 |r]..To k|ill the |
|00002920| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2c 20 74 79 70 |compilat|ion, typ|
|00002930| 65 20 5c 5c 5b 6b 69 6c | 6c 2d 63 6f 6d 70 69 6c |e \\[kil|l-compil|
|00002940| 61 74 69 6f 6e 5d 2e 0a | 0a 52 75 6e 73 20 60 63 |ation]..|.Runs `c|
|00002950| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 6d 6f 64 65 2d |ompilati|on-mode-|
|00002960| 68 6f 6f 6b 27 20 77 69 | 74 68 20 60 72 75 6e 2d |hook' wi|th `run-|
|00002970| 68 6f 6f 6b 73 27 20 28 | 77 68 69 63 68 20 73 65 |hooks' (|which se|
|00002980| 65 29 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |e)." nil|]).(defa|
|00002990| 6c 69 61 73 20 28 71 75 | 6f 74 65 20 63 6f 6d 70 |lias (qu|ote comp|
|000029a0| 69 6c 61 74 69 6f 6e 2d | 73 65 74 75 70 29 20 23 |ilation-|setup) #|
|000029b0| 5b 6e 69 6c 20 22 c0 11 | c2 c3 21 c4 4c 88 c2 c5 |[nil "..|..!.L...|
|000029c0| 21 c4 4c 88 c2 c6 21 c7 | 4c 88 c2 c8 21 c4 4c 88 |!.L...!.|L...!.L.|
|000029d0| 70 89 16 09 87 22 20 5b | 28 22 3a 20 25 73 22 29 |p...." [|(": %s")|
|000029e0| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 70 72 6f 63 65 | mode-li|ne-proce|
|000029f0| 73 73 20 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 |ss make-|local-va|
|00002a00| 72 69 61 62 6c 65 20 63 | 6f 6d 70 69 6c 61 74 69 |riable c|ompilati|
|00002a10| 6f 6e 2d 65 72 72 6f 72 | 2d 6c 69 73 74 20 6e 69 |on-error|-list ni|
|00002a20| 6c 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 6f 6c |l compil|ation-ol|
|00002a30| 64 2d 65 72 72 6f 72 2d | 6c 69 73 74 20 63 6f 6d |d-error-|list com|
|00002a40| 70 69 6c 61 74 69 6f 6e | 2d 70 61 72 73 69 6e 67 |pilation|-parsing|
|00002a50| 2d 65 6e 64 20 31 20 63 | 6f 6d 70 69 6c 61 74 69 |-end 1 c|ompilati|
|00002a60| 6f 6e 2d 64 69 72 65 63 | 74 6f 72 79 2d 73 74 61 |on-direc|tory-sta|
|00002a70| 63 6b 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 6c |ck compi|lation-l|
|00002a80| 61 73 74 2d 62 75 66 66 | 65 72 5d 20 32 5d 29 0a |ast-buff|er] 2]).|
|00002a90| 28 64 65 66 76 61 72 20 | 63 6f 6d 70 69 6c 61 74 |(defvar |compilat|
|00002aa0| 69 6f 6e 2d 6d 69 6e 6f | 72 2d 6d 6f 64 65 20 6e |ion-mino|r-mode n|
|00002ab0| 69 6c 20 22 5c 0a 4e 6f | 6e 2d 6e 69 6c 20 77 68 |il "\.No|n-nil wh|
|00002ac0| 65 6e 20 69 6e 20 63 6f | 6d 70 69 6c 61 74 69 6f |en in co|mpilatio|
|00002ad0| 6e 2d 6d 69 6e 6f 72 2d | 6d 6f 64 65 2e 0a 49 6e |n-minor-|mode..In|
|00002ae0| 20 74 68 69 73 20 6d 69 | 6e 6f 72 20 6d 6f 64 65 | this mi|nor mode|
|00002af0| 2c 20 61 6c 6c 20 74 68 | 65 20 65 72 72 6f 72 2d |, all th|e error-|
|00002b00| 70 61 72 73 69 6e 67 20 | 63 6f 6d 6d 61 6e 64 73 |parsing |commands|
|00002b10| 20 6f 66 20 74 68 65 0a | 43 6f 6d 70 69 6c 61 74 | of the.|Compilat|
|00002b20| 69 6f 6e 20 6d 61 6a 6f | 72 20 6d 6f 64 65 20 61 |ion majo|r mode a|
|00002b30| 72 65 20 61 76 61 69 6c | 61 62 6c 65 2e 22 29 0a |re avail|able.").|
|00002b40| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 09 9e 84 |(byte-co|de "....|
|00002b50| 5c 6e 00 c2 09 42 11 c0 | 0b 9e 84 16 00 c0 0c 42 |\n...B..|.......B|
|00002b60| 0b 42 13 c0 87 22 20 5b | 63 6f 6d 70 69 6c 61 74 |.B..." [|compilat|
|00002b70| 69 6f 6e 2d 6d 69 6e 6f | 72 2d 6d 6f 64 65 20 6d |ion-mino|r-mode m|
|00002b80| 69 6e 6f 72 2d 6d 6f 64 | 65 2d 61 6c 69 73 74 20 |inor-mod|e-alist |
|00002b90| 28 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 6d 69 6e |(compila|tion-min|
|00002ba0| 6f 72 2d 6d 6f 64 65 20 | 22 20 43 6f 6d 70 69 6c |or-mode |" Compil|
|00002bb0| 61 74 69 6f 6e 22 29 20 | 6d 69 6e 6f 72 2d 6d 6f |ation") |minor-mo|
|00002bc0| 64 65 2d 6d 61 70 2d 61 | 6c 69 73 74 20 63 6f 6d |de-map-a|list com|
|00002bd0| 70 69 6c 61 74 69 6f 6e | 2d 6d 69 6e 6f 72 2d 6d |pilation|-minor-m|
|00002be0| 6f 64 65 2d 6d 61 70 5d | 20 32 29 0a 28 64 65 66 |ode-map]| 2).(def|
|00002bf0| 61 6c 69 61 73 20 27 63 | 6f 6d 70 69 6c 61 74 69 |alias 'c|ompilati|
|00002c00| 6f 6e 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 23 5b |on-minor|-mode #[|
|00002c10| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00002c20| 22 08 84 09 00 09 3f 82 | 0e 00 c2 08 21 c3 56 89 |".....?.|....!.V.|
|00002c30| 11 85 15 00 c4 20 87 22 | 20 5b 61 72 67 20 63 6f |..... ."| [arg co|
|00002c40| 6d 70 69 6c 61 74 69 6f | 6e 2d 6d 69 6e 6f 72 2d |mpilatio|n-minor-|
|00002c50| 6d 6f 64 65 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |mode pre|fix-nume|
|00002c60| 72 69 63 2d 76 61 6c 75 | 65 20 30 20 63 6f 6d 70 |ric-valu|e 0 comp|
|00002c70| 69 6c 61 74 69 6f 6e 2d | 73 65 74 75 70 5d 20 32 |ilation-|setup] 2|
|00002c80| 20 22 5c 0a 54 6f 67 67 | 6c 65 20 63 6f 6d 70 69 | "\.Togg|le compi|
|00002c90| 6c 61 74 69 6f 6e 20 6d | 69 6e 6f 72 20 6d 6f 64 |lation m|inor mod|
|00002ca0| 65 2e 0a 57 69 74 68 20 | 61 72 67 2c 20 74 75 72 |e..With |arg, tur|
|00002cb0| 6e 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 20 6d 6f |n compil|ation mo|
|00002cc0| 64 65 20 6f 6e 20 69 66 | 20 61 6e 64 20 6f 6e 6c |de on if| and onl|
|00002cd0| 79 20 69 66 20 61 72 67 | 20 69 73 20 70 6f 73 69 |y if arg| is posi|
|00002ce0| 74 69 76 65 2e 0a 53 65 | 65 20 60 63 6f 6d 70 69 |tive..Se|e `compi|
|00002cf0| 6c 61 74 69 6f 6e 2d 6d | 6f 64 65 27 2e 22 20 22 |lation-m|ode'." "|
|00002d00| 50 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |P"]).(de|falias '|
|00002d10| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 73 65 6e 74 |compilat|ion-sent|
|00002d20| 69 6e 65 6c 20 23 5b 28 | 70 72 6f 63 20 6d 73 67 |inel #[(|proc msg|
|00002d30| 29 20 22 c0 09 21 1a c3 | 09 21 c4 3e 85 86 00 c5 |) "..!..|.!.>....|
|00002d40| 5c 6e 21 84 1a 00 c6 09 | c7 5c 22 88 82 7e 00 70 |\n!.....|.\"..~.p|
|00002d50| c7 89 1e 08 1e 09 1e 5c | 6e cb 8e 5c 6e 71 88 c7 |.......\|n..\nq..|
|00002d60| 1e 0c 64 16 09 60 16 08 | 0e 09 62 88 cd 0e 0e cf |..d..`..|..b.....|
|00002d70| 0e 10 b1 04 88 d1 75 88 | d2 d3 20 d4 d5 4f b1 02 |......u.|.. ..O..|
|00002d80| 88 d6 75 88 d7 d8 c3 09 | 21 21 50 16 19 da 09 21 |..u.....|!!P....!|
|00002d90| 88 db dc 20 21 88 29 0e | 08 83 71 00 0e 08 0e 09 |... !.).|..q.....|
|00002da0| 57 83 71 00 0e 08 62 88 | 0e 1d 83 7d 00 0e 1d 5c |W.q...b.|...}...\|
|00002db0| 6e 0e 10 5c 22 88 2c de | 09 0e 1f 5c 22 89 16 1f |n..\".,.|...\"...|
|00002dc0| 29 87 22 20 5b 70 72 6f | 63 65 73 73 2d 62 75 66 |)." [pro|cess-buf|
|00002dd0| 66 65 72 20 70 72 6f 63 | 20 62 75 66 66 65 72 20 |fer proc| buffer |
|00002de0| 70 72 6f 63 65 73 73 2d | 73 74 61 74 75 73 20 28 |process-|status (|
|00002df0| 73 69 67 6e 61 6c 20 65 | 78 69 74 29 20 62 75 66 |signal e|xit) buf|
|00002e00| 66 65 72 2d 6e 61 6d 65 | 20 73 65 74 2d 70 72 6f |fer-name| set-pro|
|00002e10| 63 65 73 73 2d 62 75 66 | 66 65 72 20 6e 69 6c 20 |cess-buf|fer nil |
|00002e20| 6f 70 6f 69 6e 74 20 6f | 6d 61 78 20 6f 62 75 66 |opoint o|max obuf|
|00002e30| 20 28 28 73 65 74 2d 62 | 75 66 66 65 72 20 6f 62 | ((set-b|uffer ob|
|00002e40| 75 66 29 29 20 62 75 66 | 66 65 72 2d 72 65 61 64 |uf)) buf|fer-read|
|00002e50| 2d 6f 6e 6c 79 20 31 30 | 20 6d 6f 64 65 2d 6e 61 |-only 10| mode-na|
|00002e60| 6d 65 20 22 20 22 20 6d | 73 67 20 2d 31 20 22 20 |me " " m|sg -1 " |
|00002e70| 61 74 20 22 20 63 75 72 | 72 65 6e 74 2d 74 69 6d |at " cur|rent-tim|
|00002e80| 65 2d 73 74 72 69 6e 67 | 20 30 20 31 39 20 31 20 |e-string| 0 19 1 |
|00002e90| 22 3a 20 22 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |": " sym|bol-name|
|00002ea0| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 70 72 6f 63 65 | mode-li|ne-proce|
|00002eb0| 73 73 20 64 65 6c 65 74 | 65 2d 70 72 6f 63 65 73 |ss delet|e-proces|
|00002ec0| 73 20 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |s set-bu|ffer-mod|
|00002ed0| 69 66 69 65 64 2d 70 20 | 62 75 66 66 65 72 2d 6d |ified-p |buffer-m|
|00002ee0| 6f 64 69 66 69 65 64 2d | 70 20 63 6f 6d 70 69 6c |odified-|p compil|
|00002ef0| 61 74 69 6f 6e 2d 66 69 | 6e 69 73 68 2d 66 75 6e |ation-fi|nish-fun|
|00002f00| 63 74 69 6f 6e 20 64 65 | 6c 71 20 63 6f 6d 70 69 |ction de|lq compi|
|00002f10| 6c 61 74 69 6f 6e 2d 69 | 6e 2d 70 72 6f 67 72 65 |lation-i|n-progre|
|00002f20| 73 73 5d 20 34 20 22 5c | 0a 53 65 6e 74 69 6e 65 |ss] 4 "\|.Sentine|
|00002f30| 6c 20 66 6f 72 20 63 6f | 6d 70 69 6c 61 74 69 6f |l for co|mpilatio|
|00002f40| 6e 20 62 75 66 66 65 72 | 73 2e 22 5d 29 0a 28 64 |n buffer|s."]).(d|
|00002f50| 65 66 61 6c 69 61 73 20 | 27 63 6f 6d 70 69 6c 61 |efalias |'compila|
|00002f60| 74 69 6f 6e 2d 66 69 6c | 74 65 72 20 23 5b 28 70 |tion-fil|ter #[(p|
|00002f70| 72 6f 63 20 73 74 72 69 | 6e 67 29 20 22 8a c0 09 |roc stri|ng) "...|
|00002f80| 21 71 88 c2 1b 8a c4 09 | 21 62 88 c5 0e 06 21 88 |!q......|!b....!.|
|00002f90| c4 09 21 60 c2 93 2b 87 | 22 20 5b 70 72 6f 63 65 |..!`..+.|" [proce|
|00002fa0| 73 73 2d 62 75 66 66 65 | 72 20 70 72 6f 63 20 6e |ss-buffe|r proc n|
|00002fb0| 69 6c 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |il buffe|r-read-o|
|00002fc0| 6e 6c 79 20 70 72 6f 63 | 65 73 73 2d 6d 61 72 6b |nly proc|ess-mark|
|00002fd0| 20 69 6e 73 65 72 74 2d | 62 65 66 6f 72 65 2d 6d | insert-|before-m|
|00002fe0| 61 72 6b 65 72 73 20 73 | 74 72 69 6e 67 5d 20 33 |arkers s|tring] 3|
|00002ff0| 20 22 5c 0a 50 72 6f 63 | 65 73 73 20 66 69 6c 74 | "\.Proc|ess filt|
|00003000| 65 72 20 66 6f 72 20 63 | 6f 6d 70 69 6c 61 74 69 |er for c|ompilati|
|00003010| 6f 6e 20 62 75 66 66 65 | 72 73 2e 0a 4a 75 73 74 |on buffe|rs..Just|
|00003020| 20 69 6e 73 65 72 74 73 | 20 74 68 65 20 74 65 78 | inserts| the tex|
|00003030| 74 2c 20 62 75 74 20 75 | 73 65 73 20 60 69 6e 73 |t, but u|ses `ins|
|00003040| 65 72 74 2d 62 65 66 6f | 72 65 2d 6d 61 72 6b 65 |ert-befo|re-marke|
|00003050| 72 73 27 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |rs'."]).|(defalia|
|00003060| 73 20 28 71 75 6f 74 65 | 20 63 6f 6d 70 69 6c 65 |s (quote| compile|
|00003070| 2d 65 72 72 6f 72 2d 61 | 74 2d 70 6f 69 6e 74 29 |-error-a|t-point)|
|00003080| 20 23 5b 6e 69 6c 20 22 | c0 c1 60 5c 22 88 5c 6e | #[nil "|..`\".\n|
|00003090| 89 1b 83 1a 00 60 0b 40 | 40 56 83 1a 00 0b 41 89 |.....`.@|@V....A.|
|000030a0| 13 84 0b 00 0b 29 87 22 | 20 5b 63 6f 6d 70 69 6c |.....)."| [compil|
|000030b0| 65 2d 72 65 69 6e 69 74 | 69 61 6c 69 7a 65 2d 65 |e-reinit|ialize-e|
|000030c0| 72 72 6f 72 73 20 6e 69 | 6c 20 63 6f 6d 70 69 6c |rrors ni|l compil|
|000030d0| 61 74 69 6f 6e 2d 6f 6c | 64 2d 65 72 72 6f 72 2d |ation-ol|d-error-|
|000030e0| 6c 69 73 74 20 65 72 72 | 6f 72 73 5d 20 34 5d 29 |list err|ors] 4])|
|000030f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6f 6d 70 |.(defali|as 'comp|
|00003100| 69 6c 61 74 69 6f 6e 2d | 6e 65 78 74 2d 65 72 72 |ilation-|next-err|
|00003110| 6f 72 20 23 5b 28 6e 29 | 20 22 c0 70 21 84 5c 6e |or #[(n)| ".p!.\n|
|00003120| 00 c1 c2 21 88 70 13 c4 | 20 1d 0e 06 c7 57 83 4d |...!.p..| ....W.M|
|00003130| 00 c7 0e 08 1e 09 1e 5c | 6e 0e 09 0d 3d 84 32 00 |.......\|n...=.2.|
|00003140| 0e 5c 6e 54 16 5c 6e 0e | 09 41 89 16 09 82 1f 00 |.\nT.\n.|.A......|
|00003150| 0e 06 5b 0e 5c 6e 56 83 | 41 00 c1 cb 21 82 49 00 |..[.\nV.|A...!.I.|
|00003160| 0e 5c 6e 0e 06 5c 5c 0e | 08 38 2a 82 6a 00 0d 41 |.\n..\\.|.8*.j..A|
|00003170| 1e 0c cd ce 89 0e 06 23 | 88 0e 0c 83 66 00 0e 06 |.......#|....f...|
|00003180| 53 0e 0c 38 82 69 00 c1 | cf 21 29 40 62 29 87 22 |S..8.i..|.!)@b)."|
|00003190| 20 5b 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 62 75 | [compil|ation-bu|
|000031a0| 66 66 65 72 2d 70 20 65 | 72 72 6f 72 20 22 4e 6f |ffer-p e|rror "No|
|000031b0| 74 20 69 6e 20 61 20 63 | 6f 6d 70 69 6c 61 74 69 |t in a c|ompilati|
|000031c0| 6f 6e 20 62 75 66 66 65 | 72 2e 22 20 63 6f 6d 70 |on buffe|r." comp|
|000031d0| 69 6c 61 74 69 6f 6e 2d | 6c 61 73 74 2d 62 75 66 |ilation-|last-buf|
|000031e0| 66 65 72 20 63 6f 6d 70 | 69 6c 65 2d 65 72 72 6f |fer comp|ile-erro|
|000031f0| 72 2d 61 74 2d 70 6f 69 | 6e 74 20 65 72 72 6f 72 |r-at-poi|nt error|
|00003200| 73 20 6e 20 30 20 63 6f | 6d 70 69 6c 61 74 69 6f |s n 0 co|mpilatio|
|00003210| 6e 2d 6f 6c 64 2d 65 72 | 72 6f 72 2d 6c 69 73 74 |n-old-er|ror-list|
|00003220| 20 65 20 69 20 22 4d 6f | 76 65 64 20 62 61 63 6b | e i "Mo|ved back|
|00003230| 20 70 61 73 74 20 66 69 | 72 73 74 20 65 72 72 6f | past fi|rst erro|
|00003240| 72 22 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 65 |r" compi|lation-e|
|00003250| 72 72 6f 72 2d 6c 69 73 | 74 20 63 6f 6d 70 69 6c |rror-lis|t compil|
|00003260| 65 2d 72 65 69 6e 69 74 | 69 61 6c 69 7a 65 2d 65 |e-reinit|ialize-e|
|00003270| 72 72 6f 72 73 20 6e 69 | 6c 20 22 4d 6f 76 65 64 |rrors ni|l "Moved|
|00003280| 20 70 61 73 74 20 6c 61 | 73 74 20 65 72 72 6f 72 | past la|st error|
|00003290| 22 5d 20 35 20 22 5c 0a | 4d 6f 76 65 20 70 6f 69 |"] 5 "\.|Move poi|
|000032a0| 6e 74 20 74 6f 20 74 68 | 65 20 6e 65 78 74 20 65 |nt to th|e next e|
|000032b0| 72 72 6f 72 20 69 6e 20 | 74 68 65 20 63 6f 6d 70 |rror in |the comp|
|000032c0| 69 6c 61 74 69 6f 6e 20 | 62 75 66 66 65 72 2e 0a |ilation |buffer..|
|000032d0| 44 6f 65 73 20 4e 4f 54 | 20 66 69 6e 64 20 74 68 |Does NOT| find th|
|000032e0| 65 20 73 6f 75 72 63 65 | 20 6c 69 6e 65 20 6c 69 |e source| line li|
|000032f0| 6b 65 20 5c 5c 5b 6e 65 | 78 74 2d 65 72 72 6f 72 |ke \\[ne|xt-error|
|00003300| 5d 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |]." "p"]|).(defal|
|00003310| 69 61 73 20 27 63 6f 6d | 70 69 6c 61 74 69 6f 6e |ias 'com|pilation|
|00003320| 2d 70 72 65 76 69 6f 75 | 73 2d 65 72 72 6f 72 20 |-previou|s-error |
|00003330| 23 5b 28 6e 29 20 22 c0 | 09 5b 21 87 22 20 5b 63 |#[(n) ".|.[!." [c|
|00003340| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 6e 65 78 74 2d |ompilati|on-next-|
|00003350| 65 72 72 6f 72 20 6e 5d | 20 32 20 22 5c 0a 4d 6f |error n]| 2 "\.Mo|
|00003360| 76 65 20 70 6f 69 6e 74 | 20 74 6f 20 74 68 65 20 |ve point| to the |
|00003370| 70 72 65 76 69 6f 75 73 | 20 65 72 72 6f 72 20 69 |previous| error i|
|00003380| 6e 20 74 68 65 20 63 6f | 6d 70 69 6c 61 74 69 6f |n the co|mpilatio|
|00003390| 6e 20 62 75 66 66 65 72 | 2e 0a 44 6f 65 73 20 4e |n buffer|..Does N|
|000033a0| 4f 54 20 66 69 6e 64 20 | 74 68 65 20 73 6f 75 72 |OT find |the sour|
|000033b0| 63 65 20 6c 69 6e 65 20 | 6c 69 6b 65 20 5c 5c 5b |ce line |like \\[|
|000033c0| 6e 65 78 74 2d 65 72 72 | 6f 72 5d 2e 22 20 22 70 |next-err|or]." "p|
|000033d0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 28 71 |"]).(def|alias (q|
|000033e0| 75 6f 74 65 20 63 6f 6d | 70 69 6c 65 2d 66 69 6c |uote com|pile-fil|
|000033f0| 65 2d 6f 66 2d 65 72 72 | 6f 72 29 20 23 5b 28 64 |e-of-err|or) #[(d|
|00003400| 61 74 61 29 20 22 08 41 | 10 c1 08 21 83 0f 00 c2 |ata) ".A|...!....|
|00003410| c3 08 21 21 87 08 40 87 | 22 20 5b 64 61 74 61 20 |..!!..@.|" [data |
|00003420| 6d 61 72 6b 65 72 70 20 | 62 75 66 66 65 72 2d 66 |markerp |buffer-f|
|00003430| 69 6c 65 2d 6e 61 6d 65 | 20 6d 61 72 6b 65 72 2d |ile-name| marker-|
|00003440| 62 75 66 66 65 72 5d 20 | 33 5d 29 0a 28 64 65 66 |buffer] |3]).(def|
|00003450| 61 6c 69 61 73 20 27 63 | 6f 6d 70 69 6c 61 74 69 |alias 'c|ompilati|
|00003460| 6f 6e 2d 6e 65 78 74 2d | 66 69 6c 65 20 23 5b 28 |on-next-|file #[(|
|00003470| 6e 29 20 22 c0 70 21 84 | 5c 6e 00 c1 c2 21 88 70 |n) ".p!.|\n...!.p|
|00003480| 13 0c c5 57 c6 89 1e 07 | 1e 08 89 1e 09 84 28 00 |...W....|......(.|
|00003490| ca 20 86 23 00 c1 cb 21 | 16 08 82 4d 00 cc c6 60 |. .#...!|...M...`|
|000034a0| 5c 22 88 cd 0e 0e 21 16 | 08 0c 5b 14 0e 08 83 4d |\"....!.|..[....M|
|000034b0| 00 60 0e 08 40 40 57 83 | 4d 00 0e 08 41 89 16 08 |.`..@@W.|M...A...|
|000034c0| 84 3b 00 0c c5 56 83 9b | 00 cf 0e 08 40 21 16 07 |.;...V..|....@!..|
|000034d0| 0e 07 cf 0e 08 86 86 00 | 0e 09 83 6f 00 c1 d0 0e |........|...o....|
|000034e0| 07 5c 22 82 7e 00 c6 1e | 11 cc c6 89 d2 23 88 0e |.\".~...|.....#..|
|000034f0| 11 89 16 08 29 86 86 00 | c1 d3 0e 07 5c 22 40 21 |....)...|....\"@!|
|00003500| 98 83 94 00 0e 08 41 16 | 08 82 5a 00 0c 53 89 14 |......A.|..Z..S..|
|00003510| 82 4e 00 0e 08 86 b7 00 | 0e 09 83 ab 00 c1 d4 21 |.N......|.......!|
|00003520| 82 b7 00 c6 1e 11 cc c6 | 89 d5 23 88 0e 11 29 40 |........|..#...)@|
|00003530| 40 62 2b 87 22 20 5b 63 | 6f 6d 70 69 6c 61 74 69 |@b+." [c|ompilati|
|00003540| 6f 6e 2d 62 75 66 66 65 | 72 2d 70 20 65 72 72 6f |on-buffe|r-p erro|
|00003550| 72 20 22 4e 6f 74 20 69 | 6e 20 61 20 63 6f 6d 70 |r "Not i|n a comp|
|00003560| 69 6c 61 74 69 6f 6e 20 | 62 75 66 66 65 72 2e 22 |ilation |buffer."|
|00003570| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 6c 61 73 | compila|tion-las|
|00003580| 74 2d 62 75 66 66 65 72 | 20 6e 20 30 20 6e 69 6c |t-buffer| n 0 nil|
|00003590| 20 66 69 6c 65 20 65 72 | 72 6f 72 73 20 72 65 76 | file er|rors rev|
|000035a0| 65 72 73 65 64 20 63 6f | 6d 70 69 6c 65 2d 65 72 |ersed co|mpile-er|
|000035b0| 72 6f 72 2d 61 74 2d 70 | 6f 69 6e 74 20 22 4d 6f |ror-at-p|oint "Mo|
|000035c0| 76 65 64 20 70 61 73 74 | 20 6c 61 73 74 20 65 72 |ved past| last er|
|000035d0| 72 6f 72 22 20 63 6f 6d | 70 69 6c 65 2d 72 65 69 |ror" com|pile-rei|
|000035e0| 6e 69 74 69 61 6c 69 7a | 65 2d 65 72 72 6f 72 73 |nitializ|e-errors|
|000035f0| 20 72 65 76 65 72 73 65 | 20 63 6f 6d 70 69 6c 61 | reverse| compila|
|00003600| 74 69 6f 6e 2d 6f 6c 64 | 2d 65 72 72 6f 72 2d 6c |tion-old|-error-l|
|00003610| 69 73 74 20 63 6f 6d 70 | 69 6c 65 2d 66 69 6c 65 |ist comp|ile-file|
|00003620| 2d 6f 66 2d 65 72 72 6f | 72 20 22 25 73 20 74 68 |-of-erro|r "%s th|
|00003630| 65 20 66 69 72 73 74 20 | 65 72 72 69 6e 67 20 66 |e first |erring f|
|00003640| 69 6c 65 22 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |ile" com|pilation|
|00003650| 2d 65 72 72 6f 72 2d 6c | 69 73 74 20 32 20 22 25 |-error-l|ist 2 "%|
|00003660| 73 20 69 73 20 74 68 65 | 20 6c 61 73 74 20 65 72 |s is the| last er|
|00003670| 72 69 6e 67 20 66 69 6c | 65 22 20 22 54 68 69 73 |ring fil|e" "This|
|00003680| 20 69 73 20 74 68 65 20 | 66 69 72 73 74 20 65 72 | is the |first er|
|00003690| 72 69 6e 67 20 66 69 6c | 65 22 20 31 5d 20 37 20 |ring fil|e" 1] 7 |
|000036a0| 22 5c 0a 4d 6f 76 65 20 | 70 6f 69 6e 74 20 74 6f |"\.Move |point to|
|000036b0| 20 74 68 65 20 6e 65 78 | 74 20 65 72 72 6f 72 20 | the nex|t error |
|000036c0| 66 6f 72 20 61 20 64 69 | 66 66 65 72 65 6e 74 20 |for a di|fferent |
|000036d0| 66 69 6c 65 20 74 68 61 | 6e 20 74 68 65 20 63 75 |file tha|n the cu|
|000036e0| 72 72 65 6e 74 20 6f 6e | 65 2e 22 20 22 70 22 5d |rrent on|e." "p"]|
|000036f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |).(defal|ias 'com|
|00003700| 70 69 6c 61 74 69 6f 6e | 2d 70 72 65 76 69 6f 75 |pilation|-previou|
|00003710| 73 2d 66 69 6c 65 20 23 | 5b 28 6e 29 20 22 c0 09 |s-file #|[(n) "..|
|00003720| 5b 21 87 22 20 5b 63 6f | 6d 70 69 6c 61 74 69 6f |[!." [co|mpilatio|
|00003730| 6e 2d 6e 65 78 74 2d 66 | 69 6c 65 20 6e 5d 20 32 |n-next-f|ile n] 2|
|00003740| 20 22 5c 0a 4d 6f 76 65 | 20 70 6f 69 6e 74 20 74 | "\.Move| point t|
|00003750| 6f 20 74 68 65 20 70 72 | 65 76 69 6f 75 73 20 65 |o the pr|evious e|
|00003760| 72 72 6f 72 20 66 6f 72 | 20 61 20 64 69 66 66 65 |rror for| a diffe|
|00003770| 72 65 6e 74 20 66 69 6c | 65 20 74 68 61 6e 20 74 |rent fil|e than t|
|00003780| 68 65 20 63 75 72 72 65 | 6e 74 20 6f 6e 65 2e 22 |he curre|nt one."|
|00003790| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|000037a0| 20 27 6b 69 6c 6c 2d 63 | 6f 6d 70 69 6c 61 74 69 | 'kill-c|ompilati|
|000037b0| 6f 6e 20 23 5b 6e 69 6c | 20 22 c0 20 19 c2 09 21 |on #[nil| ". ...!|
|000037c0| 83 11 00 c3 c2 09 21 21 | 82 14 00 c4 c5 21 29 87 |......!!|.....!).|
|000037d0| 22 20 5b 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 66 |" [compi|lation-f|
|000037e0| 69 6e 64 2d 62 75 66 66 | 65 72 20 62 75 66 66 65 |ind-buff|er buffe|
|000037f0| 72 20 67 65 74 2d 62 75 | 66 66 65 72 2d 70 72 6f |r get-bu|ffer-pro|
|00003800| 63 65 73 73 20 69 6e 74 | 65 72 72 75 70 74 2d 70 |cess int|errupt-p|
|00003810| 72 6f 63 65 73 73 20 65 | 72 72 6f 72 20 22 54 68 |rocess e|rror "Th|
|00003820| 65 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 20 70 72 |e compil|ation pr|
|00003830| 6f 63 65 73 73 20 69 73 | 20 6e 6f 74 20 72 75 6e |ocess is| not run|
|00003840| 6e 69 6e 67 2e 22 5d 20 | 33 20 22 5c 0a 4b 69 6c |ning."] |3 "\.Kil|
|00003850| 6c 20 74 68 65 20 70 72 | 6f 63 65 73 73 20 6d 61 |l the pr|ocess ma|
|00003860| 64 65 20 62 79 20 74 68 | 65 20 5c 5c 5b 63 6f 6d |de by th|e \\[com|
|00003870| 70 69 6c 65 5d 20 63 6f | 6d 6d 61 6e 64 2e 22 20 |pile] co|mmand." |
|00003880| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00003890| 28 71 75 6f 74 65 20 63 | 6f 6d 70 69 6c 65 2d 72 |(quote c|ompile-r|
|000038a0| 65 69 6e 69 74 69 61 6c | 69 7a 65 2d 65 72 72 6f |einitial|ize-erro|
|000038b0| 72 73 29 20 23 5b 28 61 | 72 67 70 20 26 6f 70 74 |rs) #[(a|rgp &opt|
|000038c0| 69 6f 6e 61 6c 20 6c 69 | 6d 69 74 2d 73 65 61 72 |ional li|mit-sear|
|000038d0| 63 68 20 66 69 6e 64 2d | 61 74 2d 6c 65 61 73 74 |ch find-|at-least|
|000038e0| 29 20 22 8a 08 71 88 09 | c2 3d 84 0f 00 0b 3a 83 |) "..q..|.=....:.|
|000038f0| 15 00 c4 20 88 c5 16 06 | 09 85 31 00 0e 07 83 26 |... ....|..1....&|
|00003900| 00 0e 06 0e 07 56 85 31 | 00 0e 08 3f 86 31 00 09 |.....V.1|...?.1..|
|00003910| 47 0e 08 56 3f 85 66 00 | c9 08 21 88 ca cb 21 88 |G..V?.f.|..!...!.|
|00003920| 0e 06 64 57 85 66 00 0e | 06 c5 55 1e 0c 0e 0d 0e |..dW.f..|..U.....|
|00003930| 07 0e 08 5c 22 88 0e 0c | 83 5e 00 09 89 16 0e 82 |...\"...|.^......|
|00003940| 65 00 0e 0e 09 a4 89 16 | 0e 29 29 87 22 20 5b 63 |e.......|.))." [c|
|00003950| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 6c 61 73 74 2d |ompilati|on-last-|
|00003960| 62 75 66 66 65 72 20 63 | 6f 6d 70 69 6c 61 74 69 |buffer c|ompilati|
|00003970| 6f 6e 2d 65 72 72 6f 72 | 2d 6c 69 73 74 20 74 20 |on-error|-list t |
|00003980| 61 72 67 70 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |argp com|pilation|
|00003990| 2d 66 6f 72 67 65 74 2d | 65 72 72 6f 72 73 20 31 |-forget-|errors 1|
|000039a0| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 70 61 72 | compila|tion-par|
|000039b0| 73 69 6e 67 2d 65 6e 64 | 20 6c 69 6d 69 74 2d 73 |sing-end| limit-s|
|000039c0| 65 61 72 63 68 20 66 69 | 6e 64 2d 61 74 2d 6c 65 |earch fi|nd-at-le|
|000039d0| 61 73 74 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |ast swit|ch-to-bu|
|000039e0| 66 66 65 72 20 73 65 74 | 2d 62 75 66 66 65 72 2d |ffer set|-buffer-|
|000039f0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6e 69 6c 20 61 |modified|-p nil a|
|00003a00| 74 2d 73 74 61 72 74 20 | 63 6f 6d 70 69 6c 61 74 |t-start |compilat|
|00003a10| 69 6f 6e 2d 70 61 72 73 | 65 2d 65 72 72 6f 72 73 |ion-pars|e-errors|
|00003a20| 2d 66 75 6e 63 74 69 6f | 6e 20 63 6f 6d 70 69 6c |-functio|n compil|
|00003a30| 61 74 69 6f 6e 2d 6f 6c | 64 2d 65 72 72 6f 72 2d |ation-ol|d-error-|
|00003a40| 6c 69 73 74 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |list] 3]|).(defal|
|00003a50| 69 61 73 20 27 63 6f 6d | 70 69 6c 65 2d 67 6f 74 |ias 'com|pile-got|
|00003a60| 6f 2d 65 72 72 6f 72 20 | 23 5b 28 26 6f 70 74 69 |o-error |#[(&opti|
|00003a70| 6f 6e 61 6c 20 61 72 67 | 70 29 20 22 c0 70 21 84 |onal arg|p) ".p!.|
|00003a80| 5c 6e 00 c1 c2 21 88 70 | 13 c4 0d 60 5c 22 88 c6 |\n...!.p|...`\"..|
|00003a90| 79 88 0e 07 89 16 08 83 | 2e 00 60 0e 08 40 40 56 |y.......|..`..@@V|
|00003aa0| 83 2e 00 0e 08 41 89 16 | 08 84 1c 00 c9 20 84 3a |.....A..|..... .:|
|00003ab0| 00 ca cb 21 88 0b 71 88 | cc cd 21 87 22 20 5b 63 |...!..q.|..!." [c|
|00003ac0| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 62 75 66 66 65 |ompilati|on-buffe|
|00003ad0| 72 2d 70 20 65 72 72 6f | 72 20 22 4e 6f 74 20 69 |r-p erro|r "Not i|
|00003ae0| 6e 20 61 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |n a comp|ilation |
|00003af0| 62 75 66 66 65 72 2e 22 | 20 63 6f 6d 70 69 6c 61 |buffer."| compila|
|00003b00| 74 69 6f 6e 2d 6c 61 73 | 74 2d 62 75 66 66 65 72 |tion-las|t-buffer|
|00003b10| 20 63 6f 6d 70 69 6c 65 | 2d 72 65 69 6e 69 74 69 | compile|-reiniti|
|00003b20| 61 6c 69 7a 65 2d 65 72 | 72 6f 72 73 20 61 72 67 |alize-er|rors arg|
|00003b30| 70 20 30 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |p 0 comp|ilation-|
|00003b40| 6f 6c 64 2d 65 72 72 6f | 72 2d 6c 69 73 74 20 63 |old-erro|r-list c|
|00003b50| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 65 72 72 6f 72 |ompilati|on-error|
|00003b60| 2d 6c 69 73 74 20 6f 6e | 65 2d 77 69 6e 64 6f 77 |-list on|e-window|
|00003b70| 2d 70 20 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |-p other|-window |
|00003b80| 2d 31 20 6e 65 78 74 2d | 65 72 72 6f 72 20 31 5d |-1 next-|error 1]|
|00003b90| 20 34 20 22 5c 0a 56 69 | 73 69 74 20 74 68 65 20 | 4 "\.Vi|sit the |
|00003ba0| 73 6f 75 72 63 65 20 66 | 6f 72 20 74 68 65 20 65 |source f|or the e|
|00003bb0| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 20 70 6f 69 |rror mes|sage poi|
|00003bc0| 6e 74 20 69 73 20 6f 6e | 2e 0a 55 73 65 20 74 68 |nt is on|..Use th|
|00003bd0| 69 73 20 63 6f 6d 6d 61 | 6e 64 20 69 6e 20 61 20 |is comma|nd in a |
|00003be0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 6c 6f 67 20 |compilat|ion log |
|00003bf0| 62 75 66 66 65 72 2e 0a | 5c 5c 5b 75 6e 69 76 65 |buffer..|\\[unive|
|00003c00| 72 73 61 6c 2d 61 72 67 | 75 6d 65 6e 74 5d 20 61 |rsal-arg|ument] a|
|00003c10| 73 20 61 20 70 72 65 66 | 69 78 20 61 72 67 20 6d |s a pref|ix arg m|
|00003c20| 65 61 6e 73 20 74 6f 20 | 72 65 70 61 72 73 65 20 |eans to |reparse |
|00003c30| 74 68 65 20 62 75 66 66 | 65 72 27 73 20 65 72 72 |the buff|er's err|
|00003c40| 6f 72 20 6d 65 73 73 61 | 67 65 73 20 66 69 72 73 |or messa|ges firs|
|00003c50| 74 3b 0a 6f 74 68 65 72 | 20 6b 69 6e 64 73 20 6f |t;.other| kinds o|
|00003c60| 66 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |f prefix| argumen|
|00003c70| 74 73 20 61 72 65 20 69 | 67 6e 6f 72 65 64 2e 22 |ts are i|gnored."|
|00003c80| 20 22 50 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | "P"]).(|byte-cod|
|00003c90| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|00003ca0| 20 5b 64 65 66 61 6c 69 | 61 73 20 63 6f 6d 70 69 | [defali|as compi|
|00003cb0| 6c 61 74 69 6f 6e 2d 62 | 75 66 66 65 72 2d 70 20 |lation-b|uffer-p |
|00003cc0| 23 5b 28 62 75 66 66 65 | 72 29 20 22 c0 c1 5c 6e |#[(buffe|r) "..\n|
|00003cd0| 21 9e 87 22 20 5b 63 6f | 6d 70 69 6c 61 74 69 6f |!.." [co|mpilatio|
|00003ce0| 6e 2d 65 72 72 6f 72 2d | 6c 69 73 74 20 62 75 66 |n-error-|list buf|
|00003cf0| 66 65 72 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |fer-loca|l-variab|
|00003d00| 6c 65 73 20 62 75 66 66 | 65 72 5d 20 33 5d 20 63 |les buff|er] 3] c|
|00003d10| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 66 69 6e 64 2d |ompilati|on-find-|
|00003d20| 62 75 66 66 65 72 20 23 | 5b 28 26 6f 70 74 69 6f |buffer #|[(&optio|
|00003d30| 6e 61 6c 20 6f 74 68 65 | 72 2d 62 75 66 66 65 72 |nal othe|r-buffer|
|00003d40| 29 20 22 08 84 0c 00 c1 | 70 21 83 0c 00 70 87 5c |) ".....|p!...p.\|
|00003d50| 6e 83 5c 22 00 c3 5c 6e | 21 83 5c 22 00 08 83 20 |n.\"..\n|!.\"... |
|00003d60| 00 5c 6e 70 3d 84 5c 22 | 00 5c 6e 87 c4 20 89 1d |.\np=.\"|.\n.. ..|
|00003d70| 83 42 00 c1 0d 40 21 83 | 3b 00 08 83 42 00 0d 40 |.B...@!.|;...B..@|
|00003d80| 70 3d 83 42 00 0d 41 89 | 15 84 29 00 0d 83 4b 00 |p=.B..A.|..)...K.|
|00003d90| 0d 40 82 64 00 08 83 61 | 00 c1 70 21 83 61 00 08 |.@.d...a|..p!.a..|
|00003da0| 83 5d 00 c6 c7 21 88 70 | 86 64 00 c8 c9 21 29 87 |.]...!.p|.d...!).|
|00003db0| 22 20 5b 6f 74 68 65 72 | 2d 62 75 66 66 65 72 20 |" [other|-buffer |
|00003dc0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 62 75 66 66 |compilat|ion-buff|
|00003dd0| 65 72 2d 70 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |er-p com|pilation|
|00003de0| 2d 6c 61 73 74 2d 62 75 | 66 66 65 72 20 62 75 66 |-last-bu|ffer buf|
|00003df0| 66 65 72 2d 6e 61 6d 65 | 20 62 75 66 66 65 72 2d |fer-name| buffer-|
|00003e00| 6c 69 73 74 20 62 75 66 | 66 65 72 73 20 6d 65 73 |list buf|fers mes|
|00003e10| 73 61 67 65 20 22 54 68 | 69 73 20 69 73 20 74 68 |sage "Th|is is th|
|00003e20| 65 20 6f 6e 6c 79 20 63 | 6f 6d 70 69 6c 61 74 69 |e only c|ompilati|
|00003e30| 6f 6e 20 62 75 66 66 65 | 72 2e 22 20 65 72 72 6f |on buffe|r." erro|
|00003e40| 72 20 22 4e 6f 20 63 6f | 6d 70 69 6c 61 74 69 6f |r "No co|mpilatio|
|00003e50| 6e 20 73 74 61 72 74 65 | 64 21 22 5d 20 33 5d 5d |n starte|d!"] 3]]|
|00003e60| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e | 3).(def|alias 'n|
|00003e70| 65 78 74 2d 65 72 72 6f | 72 20 23 5b 28 26 6f 70 |ext-erro|r #[(&op|
|00003e80| 74 69 6f 6e 61 6c 20 61 | 72 67 70 29 20 22 c0 20 |tional a|rgp) ". |
|00003e90| 11 c2 0b c4 0b 3a 3f 85 | 10 00 c5 0b 21 53 23 88 |.....:?.|....!S#.|
|00003ea0| 0b 3a 83 19 00 c4 13 c4 | 89 1e 06 1e 07 8a 09 71 |.:......|.......q|
|00003eb0| 88 c5 0b 21 53 0e 08 9b | 89 16 07 40 89 16 06 84 |...!S...|...@....|
|00003ec0| 67 00 0b 83 4b 00 c5 0b | 21 c9 56 83 47 00 ca cb |g...K...|!.V.G...|
|00003ed0| 21 88 82 4b 00 ca cc 21 | 88 cd 20 88 ca 0e 0e cf |!..K...!|.. .....|
|00003ee0| 70 21 85 62 00 d0 cf 70 | 21 21 d1 3d 85 62 00 d2 |p!.b...p|!!.=.b..|
|00003ef0| 50 21 82 5b 01 0e 07 41 | 16 08 0e 06 41 83 5e 01 |P!.[...A|....A.^.|
|00003f00| d3 0e 06 41 21 84 55 01 | d4 0e 06 41 40 21 d5 0e |...A!.U.|...A@!..|
|00003f10| 06 41 40 21 42 1e 16 d7 | 0e 16 41 0e 16 40 0e 06 |.A@!B...|..A..@..|
|00003f20| 40 23 89 1e 18 84 cc 00 | 0e 19 89 16 07 83 54 01 |@#......|......T.|
|00003f30| 0e 07 40 41 3a 83 c3 00 | 0e 07 40 41 40 0e 16 9a |..@A:...|..@A@...|
|00003f40| 83 c3 00 0e 07 40 40 c4 | 89 93 88 0e 07 40 c4 a1 |.....@@.|.....@..|
|00003f50| 88 0e 07 41 89 16 07 82 | 9f 00 0e 19 0e 06 41 41 |...A....|......AA|
|00003f60| 1e 1a 1e 1b 0e 18 71 88 | 8a 8c 7e 88 dc 0e 1a 21 |......q.|..~....!|
|00003f70| 88 c9 79 88 0e 06 dd 20 | a1 88 0e 1b 83 53 01 0e |..y.... |.....S..|
|00003f80| 1b 40 41 3a 83 4a 01 0e | 1b 40 41 40 0e 16 9a 83 |.@A:.J..|.@A@....|
|00003f90| 4a 01 0e 1b 40 41 41 0e | 1b 40 41 41 0e 1a 5a 1e |J...@AA.|.@AA..Z.|
|00003fa0| 1e 1e 1f 0e 20 e1 3d 83 | 3a 01 0e 1e c9 57 83 2f |.... .=.|:....W./|
|00003fb0| 01 e2 e3 c4 e4 0e 1e 5b | 24 88 82 3e 01 e5 e3 c4 |.......[|$..>....|
|00003fc0| e4 0e 1e 24 88 82 3e 01 | 0e 1e 79 88 0e 1f 16 1a |...$..>.|..y.....|
|00003fd0| 0e 1b 40 dd 20 a1 88 2a | 0e 1b 41 89 16 1b 84 f1 |..@. ..*|..A.....|
|00003fe0| 00 2c 2a d3 0e 06 41 21 | 3f 83 6a 01 0e 08 89 16 |.,*...A!|?.j.....|
|00003ff0| 07 40 89 16 06 82 31 00 | 29 0e 08 83 84 01 0e 08 |.@....1.|).......|
|00004000| 40 41 0e 06 41 9a 83 84 | 01 0e 08 41 89 16 08 84 |@A..A...|...A....|
|00004010| 70 01 e6 e7 0e 06 41 21 | 21 88 0e 06 41 62 88 60 |p.....A!|!...Ab.`|
|00004020| e8 0e 06 41 21 55 84 a2 | 01 7e 88 0e 06 41 62 88 |...A!U..|.~...Ab.|
|00004030| e1 1e 29 ea e7 0e 06 40 | 21 21 1e 2b ec 0e 2b 0e |..)....@|!!.+..+.|
|00004040| 06 40 5c 22 88 ed 0e 2b | 0e 06 40 5c 22 2c 87 22 |.@\"...+|..@\",."|
|00004050| 20 5b 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 66 69 | [compil|ation-fi|
|00004060| 6e 64 2d 62 75 66 66 65 | 72 20 63 6f 6d 70 69 6c |nd-buffe|r compil|
|00004070| 61 74 69 6f 6e 2d 6c 61 | 73 74 2d 62 75 66 66 65 |ation-la|st-buffe|
|00004080| 72 20 63 6f 6d 70 69 6c | 65 2d 72 65 69 6e 69 74 |r compil|e-reinit|
|00004090| 69 61 6c 69 7a 65 2d 65 | 72 72 6f 72 73 20 61 72 |ialize-e|rrors ar|
|000040a0| 67 70 20 6e 69 6c 20 70 | 72 65 66 69 78 2d 6e 75 |gp nil p|refix-nu|
|000040b0| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 6e 65 78 74 |meric-va|lue next|
|000040c0| 2d 65 72 72 6f 72 20 6e | 65 78 74 2d 65 72 72 6f |-error n|ext-erro|
|000040d0| 72 73 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 65 |rs compi|lation-e|
|000040e0| 72 72 6f 72 2d 6c 69 73 | 74 20 30 20 65 72 72 6f |rror-lis|t 0 erro|
|000040f0| 72 20 22 4d 6f 76 65 64 | 20 70 61 73 74 20 6c 61 |r "Moved| past la|
|00004100| 73 74 20 65 72 72 6f 72 | 22 20 22 4d 6f 76 65 64 |st error|" "Moved|
|00004110| 20 62 61 63 6b 20 70 61 | 73 74 20 66 69 72 73 74 | back pa|st first|
|00004120| 20 65 72 72 6f 72 22 20 | 63 6f 6d 70 69 6c 61 74 | error" |compilat|
|00004130| 69 6f 6e 2d 66 6f 72 67 | 65 74 2d 65 72 72 6f 72 |ion-forg|et-error|
|00004140| 73 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 65 72 |s compil|ation-er|
|00004150| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 67 65 74 2d |ror-mess|age get-|
|00004160| 62 75 66 66 65 72 2d 70 | 72 6f 63 65 73 73 20 70 |buffer-p|rocess p|
|00004170| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 72 75 |rocess-s|tatus ru|
|00004180| 6e 20 22 20 79 65 74 22 | 20 6d 61 72 6b 65 72 70 |n " yet"| markerp|
|00004190| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|000041a0| 74 6f 72 79 20 66 69 6c | 65 2d 6e 61 6d 65 2d 6e |tory fil|e-name-n|
|000041b0| 6f 6e 64 69 72 65 63 74 | 6f 72 79 20 66 69 6c 65 |ondirect|ory file|
|000041c0| 69 6e 66 6f 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |info com|pilation|
|000041d0| 2d 66 69 6e 64 2d 66 69 | 6c 65 20 62 75 66 66 65 |-find-fi|le buffe|
|000041e0| 72 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 6f 6c |r compil|ation-ol|
|000041f0| 64 2d 65 72 72 6f 72 2d | 6c 69 73 74 20 6c 61 73 |d-error-|list las|
|00004200| 74 2d 6c 69 6e 65 20 65 | 72 72 6f 72 73 20 67 6f |t-line e|rrors go|
|00004210| 74 6f 2d 6c 69 6e 65 20 | 70 6f 69 6e 74 2d 6d 61 |to-line |point-ma|
|00004220| 72 6b 65 72 20 6c 69 6e | 65 73 20 74 68 69 73 20 |rker lin|es this |
|00004230| 73 65 6c 65 63 74 69 76 | 65 2d 64 69 73 70 6c 61 |selectiv|e-displa|
|00004240| 79 20 74 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |y t re-s|earch-ba|
|00004250| 63 6b 77 61 72 64 20 22 | 5b 5c 6e 0d 5d 22 20 65 |ckward "|[\n.]" e|
|00004260| 6e 64 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |nd re-se|arch-for|
|00004270| 77 61 72 64 20 73 77 69 | 74 63 68 2d 74 6f 2d 62 |ward swi|tch-to-b|
|00004280| 75 66 66 65 72 20 6d 61 | 72 6b 65 72 2d 62 75 66 |uffer ma|rker-buf|
|00004290| 66 65 72 20 6d 61 72 6b | 65 72 2d 70 6f 73 69 74 |fer mark|er-posit|
|000042a0| 69 6f 6e 20 70 6f 70 2d | 75 70 2d 77 69 6e 64 6f |ion pop-|up-windo|
|000042b0| 77 73 20 64 69 73 70 6c | 61 79 2d 62 75 66 66 65 |ws displ|ay-buffe|
|000042c0| 72 20 77 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 70 |r w set-|window-p|
|000042d0| 6f 69 6e 74 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |oint set|-window-|
|000042e0| 73 74 61 72 74 5d 20 36 | 20 22 5c 0a 56 69 73 69 |start] 6| "\.Visi|
|000042f0| 74 20 6e 65 78 74 20 63 | 6f 6d 70 69 6c 61 74 69 |t next c|ompilati|
|00004300| 6f 6e 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |on error| message|
|00004310| 20 61 6e 64 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | and cor|respondi|
|00004320| 6e 67 20 73 6f 75 72 63 | 65 20 63 6f 64 65 2e 0a |ng sourc|e code..|
|00004330| 54 68 69 73 20 6f 70 65 | 72 61 74 65 73 20 6f 6e |This ope|rates on|
|00004340| 20 74 68 65 20 6f 75 74 | 70 75 74 20 66 72 6f 6d | the out|put from|
|00004350| 20 74 68 65 20 5c 5c 5b | 63 6f 6d 70 69 6c 65 5d | the \\[|compile]|
|00004360| 20 63 6f 6d 6d 61 6e 64 | 2e 0a 49 66 20 61 6c 6c | command|..If all|
|00004370| 20 70 72 65 70 61 72 73 | 65 64 20 65 72 72 6f 72 | prepars|ed error|
|00004380| 20 6d 65 73 73 61 67 65 | 73 20 68 61 76 65 20 62 | message|s have b|
|00004390| 65 65 6e 20 70 72 6f 63 | 65 73 73 65 64 2c 0a 74 |een proc|essed,.t|
|000043a0| 68 65 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |he error| message|
|000043b0| 20 62 75 66 66 65 72 20 | 69 73 20 63 68 65 63 6b | buffer |is check|
|000043c0| 65 64 20 66 6f 72 20 6e | 65 77 20 6f 6e 65 73 2e |ed for n|ew ones.|
|000043d0| 0a 0a 41 20 70 72 65 66 | 69 78 20 61 72 67 20 73 |..A pref|ix arg s|
|000043e0| 70 65 63 69 66 69 65 73 | 20 68 6f 77 20 6d 61 6e |pecifies| how man|
|000043f0| 79 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 73 |y error |messages|
|00004400| 20 74 6f 20 6d 6f 76 65 | 3b 0a 6e 65 67 61 74 69 | to move|;.negati|
|00004410| 76 65 20 6d 65 61 6e 73 | 20 6d 6f 76 65 20 62 61 |ve means| move ba|
|00004420| 63 6b 20 74 6f 20 70 72 | 65 76 69 6f 75 73 20 65 |ck to pr|evious e|
|00004430| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 73 2e 0a 4a |rror mes|sages..J|
|00004440| 75 73 74 20 43 2d 75 20 | 61 73 20 61 20 70 72 65 |ust C-u |as a pre|
|00004450| 66 69 78 20 6d 65 61 6e | 73 20 72 65 70 61 72 73 |fix mean|s repars|
|00004460| 65 20 74 68 65 20 65 72 | 72 6f 72 20 6d 65 73 73 |e the er|ror mess|
|00004470| 61 67 65 20 62 75 66 66 | 65 72 0a 61 6e 64 20 73 |age buff|er.and s|
|00004480| 74 61 72 74 20 61 74 20 | 74 68 65 20 66 69 72 73 |tart at |the firs|
|00004490| 74 20 65 72 72 6f 72 2e | 0a 0a 5c 5c 5b 6e 65 78 |t error.|..\\[nex|
|000044a0| 74 2d 65 72 72 6f 72 5d | 20 6e 6f 72 6d 61 6c 6c |t-error]| normall|
|000044b0| 79 20 61 70 70 6c 69 65 | 73 20 74 6f 20 74 68 65 |y applie|s to the|
|000044c0| 20 6d 6f 73 74 20 72 65 | 63 65 6e 74 20 63 6f 6d | most re|cent com|
|000044d0| 70 69 6c 61 74 69 6f 6e | 20 73 74 61 72 74 65 64 |pilation| started|
|000044e0| 2c 0a 62 75 74 20 61 73 | 20 6c 6f 6e 67 20 61 73 |,.but as| long as|
|000044f0| 20 79 6f 75 20 61 72 65 | 20 69 6e 20 74 68 65 20 | you are| in the |
|00004500| 6d 69 64 64 6c 65 20 6f | 66 20 70 61 72 73 69 6e |middle o|f parsin|
|00004510| 67 20 65 72 72 6f 72 73 | 20 66 72 6f 6d 20 6f 6e |g errors| from on|
|00004520| 65 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 0a 6f 75 |e compil|ation.ou|
|00004530| 74 70 75 74 20 62 75 66 | 66 65 72 2c 20 79 6f 75 |tput buf|fer, you|
|00004540| 20 73 74 61 79 20 77 69 | 74 68 20 74 68 61 74 20 | stay wi|th that |
|00004550| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 6f 75 74 70 |compilat|ion outp|
|00004560| 75 74 20 62 75 66 66 65 | 72 2e 0a 0a 55 73 65 20 |ut buffe|r...Use |
|00004570| 5c 5c 5b 6e 65 78 74 2d | 65 72 72 6f 72 5d 20 69 |\\[next-|error] i|
|00004580| 6e 20 61 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |n a comp|ilation |
|00004590| 6f 75 74 70 75 74 20 62 | 75 66 66 65 72 20 74 6f |output b|uffer to|
|000045a0| 20 73 77 69 74 63 68 20 | 74 6f 0a 70 72 6f 63 65 | switch |to.proce|
|000045b0| 73 73 69 6e 67 20 65 72 | 72 6f 72 73 20 66 72 6f |ssing er|rors fro|
|000045c0| 6d 20 74 68 61 74 20 63 | 6f 6d 70 69 6c 61 74 69 |m that c|ompilati|
|000045d0| 6f 6e 2e 0a 0a 53 65 65 | 20 76 61 72 69 61 62 6c |on...See| variabl|
|000045e0| 65 73 20 60 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |es `comp|ilation-|
|000045f0| 70 61 72 73 65 2d 65 72 | 72 6f 72 73 2d 66 75 6e |parse-er|rors-fun|
|00004600| 63 74 69 6f 6e 27 20 61 | 6e 64 0a 60 63 6f 6d 70 |ction' a|nd.`comp|
|00004610| 69 6c 61 74 69 6f 6e 2d | 65 72 72 6f 72 2d 72 65 |ilation-|error-re|
|00004620| 67 65 78 70 2d 61 6c 69 | 73 74 27 20 66 6f 72 20 |gexp-ali|st' for |
|00004630| 63 75 73 74 6f 6d 69 7a | 61 74 69 6f 6e 20 69 64 |customiz|ation id|
|00004640| 65 61 73 2e 22 20 22 50 | 22 5d 29 0a 28 62 79 74 |eas." "P|"]).(byt|
|00004650| 65 2d 63 6f 64 65 20 22 | c0 09 c2 c3 23 88 c4 c5 |e-code "|....#...|
|00004660| c6 5c 22 88 c4 c7 c8 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00004670| 69 6e 65 2d 6b 65 79 20 | 63 74 6c 2d 78 2d 6d 61 |ine-key |ctl-x-ma|
|00004680| 70 20 22 60 22 20 6e 65 | 78 74 2d 65 72 72 6f 72 |p "`" ne|xt-error|
|00004690| 20 64 65 66 61 6c 69 61 | 73 20 63 6f 6d 70 69 6c | defalia|s compil|
|000046a0| 61 74 69 6f 6e 2d 66 69 | 6e 64 2d 66 69 6c 65 20 |ation-fi|nd-file |
|000046b0| 23 5b 28 66 69 6c 65 6e | 61 6d 65 20 64 69 72 20 |#[(filen|ame dir |
|000046c0| 6d 61 72 6b 65 72 29 20 | 22 08 c1 89 1a 1b 89 1c |marker) |".......|
|000046d0| 83 2b 00 0b 84 2b 00 c5 | 0e 06 0c 40 86 18 00 0e |.+...+..|...@....|
|000046e0| 07 5c 22 12 c8 5c 6e 21 | 85 23 00 c9 5c 6e 21 13 |.\"..\n!|.#..\n!.|
|000046f0| 0c 41 89 14 84 5c 6e 00 | 0b 86 6e 00 ca 1e 0b cc |.A...\n.|..n.....|
|00004700| cd 0e 0e 21 21 1e 0f d0 | 0e 0f 0e 0e 5c 22 88 d1 |...!!...|....\"..|
|00004710| 0e 0f 0e 0e 5c 22 88 2a | c5 d2 d3 d4 0e 06 5c 22 |....\".*|......\"|
|00004720| 0e 07 0e 06 ca 24 21 12 | d5 5c 6e 21 83 65 00 d6 |.....$!.|.\n!.e..|
|00004730| 5c 6e 21 0e 06 50 12 c8 | 5c 6e 21 85 6e 00 c9 5c |\n!..P..|\n!.n..\|
|00004740| 6e 21 2b 87 22 20 5b 63 | 6f 6d 70 69 6c 61 74 69 |n!+." [c|ompilati|
|00004750| 6f 6e 2d 73 65 61 72 63 | 68 2d 70 61 74 68 20 6e |on-searc|h-path n|
|00004760| 69 6c 20 6e 61 6d 65 20 | 72 65 73 75 6c 74 20 64 |il name |result d|
|00004770| 69 72 73 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |irs expa|nd-file-|
|00004780| 6e 61 6d 65 20 66 69 6c | 65 6e 61 6d 65 20 64 69 |name fil|ename di|
|00004790| 72 20 66 69 6c 65 2d 65 | 78 69 73 74 73 2d 70 20 |r file-e|xists-p |
|000047a0| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 6f 73 65 6c 65 |find-fil|e-nosele|
|000047b0| 63 74 20 74 20 70 6f 70 | 2d 75 70 2d 77 69 6e 64 |ct t pop|-up-wind|
|000047c0| 6f 77 73 20 64 69 73 70 | 6c 61 79 2d 62 75 66 66 |ows disp|lay-buff|
|000047d0| 65 72 20 6d 61 72 6b 65 | 72 2d 62 75 66 66 65 72 |er marke|r-buffer|
|000047e0| 20 6d 61 72 6b 65 72 20 | 77 20 73 65 74 2d 77 69 | marker |w set-wi|
|000047f0| 6e 64 6f 77 2d 70 6f 69 | 6e 74 20 73 65 74 2d 77 |ndow-poi|nt set-w|
|00004800| 69 6e 64 6f 77 2d 73 74 | 61 72 74 20 72 65 61 64 |indow-st|art read|
|00004810| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 6f 72 6d 61 |-file-na|me forma|
|00004820| 74 20 22 46 69 6e 64 20 | 74 68 69 73 20 65 72 72 |t "Find |this err|
|00004830| 6f 72 20 69 6e 3a 20 28 | 64 65 66 61 75 6c 74 20 |or in: (|default |
|00004840| 25 73 29 20 22 20 66 69 | 6c 65 2d 64 69 72 65 63 |%s) " fi|le-direc|
|00004850| 74 6f 72 79 2d 70 20 66 | 69 6c 65 2d 6e 61 6d 65 |tory-p f|ile-name|
|00004860| 2d 61 73 2d 64 69 72 65 | 63 74 6f 72 79 5d 20 37 |-as-dire|ctory] 7|
|00004870| 5d 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 66 6f |] compil|ation-fo|
|00004880| 72 67 65 74 2d 65 72 72 | 6f 72 73 20 23 5b 6e 69 |rget-err|ors #[ni|
|00004890| 6c 20 22 08 83 5c 22 00 | 08 40 89 19 40 c2 89 93 |l "..\".|.@..@...|
|000048a0| 88 c3 09 41 21 83 1a 00 | 09 41 c2 89 93 88 29 08 |...A!...|.A....).|
|000048b0| 41 89 10 84 04 00 c2 14 | c2 89 15 87 22 20 5b 63 |A.......|...." [c|
|000048c0| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2d 6f 6c 64 2d 65 |ompilati|on-old-e|
|000048d0| 72 72 6f 72 2d 6c 69 73 | 74 20 6e 65 78 74 2d 65 |rror-lis|t next-e|
|000048e0| 72 72 6f 72 20 6e 69 6c | 20 6d 61 72 6b 65 72 70 |rror nil| markerp|
|000048f0| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 65 72 72 | compila|tion-err|
|00004900| 6f 72 2d 6c 69 73 74 20 | 63 6f 6d 70 69 6c 61 74 |or-list |compilat|
|00004910| 69 6f 6e 2d 64 69 72 65 | 63 74 6f 72 79 2d 73 74 |ion-dire|ctory-st|
|00004920| 61 63 6b 5d 20 34 5d 5d | 20 34 29 0a 28 64 65 66 |ack] 4]]| 4).(def|
|00004930| 61 6c 69 61 73 20 27 63 | 6f 75 6e 74 2d 72 65 67 |alias 'c|ount-reg|
|00004940| 65 78 70 2d 67 72 6f 75 | 70 69 6e 67 73 20 23 5b |exp-grou|pings #[|
|00004950| 28 72 65 67 65 78 70 29 | 20 22 c0 09 47 c0 c2 1b |(regexp)| "..G...|
|00004960| 1c 1d 1e 06 0c 0d 57 83 | 53 00 09 0c 48 13 0c 54 |......W.|S...H..T|
|00004970| 14 0b c7 55 83 32 00 0c | 0d 57 83 5c 6e 00 09 0c |...U.2..|.W.\n...|
|00004980| 48 c8 55 84 5c 6e 00 0c | 54 89 14 82 1e 00 0b c9 |H.U.\n..|T.......|
|00004990| 55 83 5c 6e 00 0c 0d 57 | 83 5c 6e 00 09 0c 48 13 |U.\n...W|.\n...H.|
|000049a0| 0c 54 14 0b ca 55 83 5c | 6e 00 0e 06 54 16 06 82 |.T...U.\|n...T...|
|000049b0| 5c 6e 00 0e 06 2c 87 22 | 20 5b 30 20 72 65 67 65 |\n...,."| [0 rege|
|000049c0| 78 70 20 6e 69 6c 20 63 | 20 69 20 6c 65 6e 20 67 |xp nil c| i len g|
|000049d0| 72 6f 75 70 69 6e 67 73 | 20 39 31 20 39 33 20 39 |roupings| 91 93 9|
|000049e0| 32 20 34 31 5d 20 35 20 | 22 5c 0a 52 65 74 75 72 |2 41] 5 |"\.Retur|
|000049f0| 6e 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |n the nu|mber of |
|00004a00| 5c 5c 28 20 2e 2e 2e 20 | 5c 5c 29 20 67 72 6f 75 |\\( ... |\\) grou|
|00004a10| 70 69 6e 67 73 20 69 6e | 20 52 45 47 45 58 50 20 |pings in| REGEXP |
|00004a20| 28 61 20 73 74 72 69 6e | 67 29 2e 22 5d 29 0a 28 |(a strin|g)."]).(|
|00004a30| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 6d 70 69 6c |defalias| 'compil|
|00004a40| 61 74 69 6f 6e 2d 70 61 | 72 73 65 2d 65 72 72 6f |ation-pa|rse-erro|
|00004a50| 72 73 20 23 5b 28 6c 69 | 6d 69 74 2d 73 65 61 72 |rs #[(li|mit-sear|
|00004a60| 63 68 20 66 69 6e 64 2d | 61 74 2d 6c 65 61 73 74 |ch find-|at-least|
|00004a70| 29 20 22 c0 11 c2 c3 21 | 88 c0 89 89 89 89 89 89 |) "....!|........|
|00004a80| 89 89 89 89 89 c4 1d 1e | 06 1e 07 1e 08 1e 09 1e |........|........|
|00004a90| 5c 6e 1e 0b 1e 0c 1e 0d | 1e 0e 1e 0f 1e 10 1e 11 |\n......|........|
|00004aa0| 0e 12 62 88 6f 83 37 00 | d3 79 88 d4 0e 15 d6 d4 |..b.o.7.|.y......|
|00004ab0| 0e 17 d6 d4 d8 d9 0e 1a | db 23 dc b0 09 16 0d dd |........|.#......|
|00004ac0| 16 0c dd de 0e 15 21 dd | 5c 5c 5c 5c 89 16 0b de |......!.|\\\\....|
|00004ad0| 0e 17 21 dd 5c 5c 5c 5c | 16 5c 6e 0e 1a 86 6a 00 |..!.\\\\|.\n...j.|
|00004ae0| df e0 21 16 09 0e 5c 6e | 54 16 08 0e 09 83 a3 00 |..!...\n|T.......|
|00004af0| 0e 08 89 0e 09 40 41 40 | 5c 5c 0e 08 d3 0e 09 40 |.....@A@|\\.....@|
|00004b00| 38 5c 5c 45 0e 07 42 16 | 07 0e 08 de 0e 09 40 40 |8\\E..B.|......@@|
|00004b10| 21 dd 5c 5c 5c 5c 16 08 | 0e 09 41 89 16 09 84 76 |!.\\\\..|..A....v|
|00004b20| 00 0e 21 16 10 e2 0e 10 | 21 16 0f e3 e4 0e 0f 5c |..!.....|!......\|
|00004b30| 22 16 0e 0e 06 84 24 02 | e5 0e 0d c0 e6 23 83 24 |".....$.|.....#.$|
|00004b40| 02 0e 0c 94 83 fa 00 e7 | e3 0e 0c dd 5c 5c 94 0e |........|....\\..|
|00004b50| 0c dd 5c 5c 95 7b 21 21 | 1e 28 e9 0e 28 0e 10 0e |..\\.{!!|.(..(...|
|00004b60| 0f 0e 0e 24 89 16 28 0e | 2a 42 16 2a eb 0e 28 21 |...$..(.|*B.*..(!|
|00004b70| 83 f6 00 0e 28 16 21 29 | 82 07 02 0e 0b 94 83 56 |....(.!)|.......V|
|00004b80| 01 0e 0b dd 5c 5c 94 0e | 2a 1e 2c 89 1e 2d 83 41 |....\\..|*.,..-.A|
|00004b90| 01 e7 e3 0e 2d 0e 0b dd | 5c 5c 95 7b 21 21 1e 28 |....-...|\\.{!!.(|
|00004ba0| e9 0e 28 0e 10 0e 0f 0e | 0e 24 16 28 0e 2c 83 40 |..(.....|.$.(.,.@|
|00004bb0| 01 0e 2c 40 0e 28 98 84 | 40 01 0e 2c 41 89 16 2c |..,@.(..|@..,A..,|
|00004bc0| 84 2e 01 29 0e 2c 41 89 | 16 2a 40 89 16 2c 83 52 |...).,A.|.*@..,.R|
|00004bd0| 01 0e 2c 16 21 2a 82 07 | 02 0e 5c 6e 94 83 03 02 |..,.!*..|..\n....|
|00004be0| 0e 07 89 16 09 83 75 01 | 0e 09 40 40 94 84 75 01 |......u.|..@@..u.|
|00004bf0| 0e 09 41 89 16 09 84 64 | 01 0e 09 83 82 01 0e 09 |..A....d|........|
|00004c00| 40 16 09 82 86 01 df ee | 21 88 c4 94 8a 0e 09 41 |@.......|!......A|
|00004c10| 40 95 62 88 ef c0 78 88 | 0e 09 41 40 94 60 7b 1e |@.b...x.|..A@.`{.|
|00004c20| 30 e3 0e 30 0e 21 5c 22 | 2a 8c d3 0e 09 38 94 d3 |0..0.!\"|*....8..|
|00004c30| 0e 09 38 95 7d 88 65 62 | 88 f1 f2 21 85 bd 01 f3 |..8.}.eb|...!....|
|00004c40| 70 21 29 1e 34 1e 35 1e | 36 8a c4 79 88 f7 20 0e |p!).4.5.|6..y.. .|
|00004c50| 35 0e 34 42 42 09 42 11 | 29 0d 54 15 0e 38 83 ff |5.4BB.B.|).T..8..|
|00004c60| 01 0d 0e 38 59 83 ff 01 | 09 41 83 ff 01 09 40 41 |...8Y...|.A....@A|
|00004c70| 40 09 41 40 41 40 9a 84 | ff 01 09 41 11 0e 36 62 |@.A@A@..|...A..6b|
|00004c80| 88 e6 16 06 2b 82 07 02 | df f9 21 88 c2 fa 0d 60 |....+...|..!....`|
|00004c90| fb 5f 64 a5 23 88 0e 3c | 83 b4 00 60 0e 3c 59 83 |._d.#..<|...`.<Y.|
|00004ca0| b4 00 e6 89 16 06 83 b9 | 00 0e 06 83 2d 02 60 82 |........|....-.`.|
|00004cb0| 2e 02 64 16 12 2e 0d 09 | 9f 11 c2 fd 21 87 22 20 |..d.....|....!." |
|00004cc0| 5b 6e 69 6c 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |[nil com|pilation|
|00004cd0| 2d 65 72 72 6f 72 2d 6c | 69 73 74 20 6d 65 73 73 |-error-l|ist mess|
|00004ce0| 61 67 65 20 22 50 61 72 | 73 69 6e 67 20 65 72 72 |age "Par|sing err|
|00004cf0| 6f 72 20 6d 65 73 73 61 | 67 65 73 2e 2e 2e 22 20 |or messa|ges..." |
|00004d00| 30 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 6e 75 |0 compil|ation-nu|
|00004d10| 6d 2d 65 72 72 6f 72 73 | 2d 66 6f 75 6e 64 20 66 |m-errors|-found f|
|00004d20| 6f 75 6e 64 2d 64 65 73 | 69 72 65 64 20 65 72 72 |ound-des|ired err|
|00004d30| 6f 72 2d 72 65 67 65 78 | 70 2d 67 72 6f 75 70 73 |or-regex|p-groups|
|00004d40| 20 73 75 62 65 78 70 72 | 20 61 6c 69 73 74 20 65 | subexpr| alist e|
|00004d50| 72 72 6f 72 2d 67 72 6f | 75 70 20 6c 65 61 76 65 |rror-gro|up leave|
|00004d60| 2d 67 72 6f 75 70 20 65 | 6e 74 65 72 2d 67 72 6f |-group e|nter-gro|
|00004d70| 75 70 20 72 65 67 65 78 | 70 20 70 61 72 65 6e 74 |up regex|p parent|
|00004d80| 2d 65 78 70 61 6e 64 65 | 64 20 6f 72 69 67 2d 65 |-expande|d orig-e|
|00004d90| 78 70 61 6e 64 65 64 20 | 6f 72 69 67 20 74 65 78 |xpanded |orig tex|
|00004da0| 74 2d 62 75 66 66 65 72 | 20 63 6f 6d 70 69 6c 61 |t-buffer| compila|
|00004db0| 74 69 6f 6e 2d 70 61 72 | 73 69 6e 67 2d 65 6e 64 |tion-par|sing-end|
|00004dc0| 20 32 20 22 5c 5c 28 22 | 20 63 6f 6d 70 69 6c 61 | 2 "\\("| compila|
|00004dd0| 74 69 6f 6e 2d 65 6e 74 | 65 72 2d 64 69 72 65 63 |tion-ent|er-direc|
|00004de0| 74 6f 72 79 2d 72 65 67 | 65 78 70 20 22 5c 5c 29 |tory-reg|exp "\\)|
|00004df0| 5c 5c 7c 22 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |\\|" com|pilation|
|00004e00| 2d 6c 65 61 76 65 2d 64 | 69 72 65 63 74 6f 72 79 |-leave-d|irectory|
|00004e10| 2d 72 65 67 65 78 70 20 | 6d 61 70 63 6f 6e 63 61 |-regexp |mapconca|
|00004e20| 74 20 23 5b 28 65 6c 74 | 29 20 22 c0 09 40 c2 51 |t #[(elt|) "..@.Q|
|00004e30| 87 22 20 5b 22 5c 5c 28 | 22 20 65 6c 74 20 22 5c |." ["\\(|" elt "\|
|00004e40| 5c 29 22 5d 20 33 5d 20 | 63 6f 6d 70 69 6c 61 74 |\)"] 3] |compilat|
|00004e50| 69 6f 6e 2d 65 72 72 6f | 72 2d 72 65 67 65 78 70 |ion-erro|r-regexp|
|00004e60| 2d 61 6c 69 73 74 20 22 | 5c 5c 7c 22 20 22 5c 5c |-alist "|\\|" "\\|
|00004e70| 29 22 20 31 20 63 6f 75 | 6e 74 2d 72 65 67 65 78 |)" 1 cou|nt-regex|
|00004e80| 70 2d 67 72 6f 75 70 69 | 6e 67 73 20 65 72 72 6f |p-groupi|ngs erro|
|00004e90| 72 20 22 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 65 |r "compi|lation-e|
|00004ea0| 72 72 6f 72 2d 72 65 67 | 65 78 70 2d 61 6c 69 73 |rror-reg|exp-alis|
|00004eb0| 74 20 69 73 20 65 6d 70 | 74 79 21 22 20 64 65 66 |t is emp|ty!" def|
|00004ec0| 61 75 6c 74 2d 64 69 72 | 65 63 74 6f 72 79 20 66 |ault-dir|ectory f|
|00004ed0| 69 6c 65 2d 74 72 75 65 | 6e 61 6d 65 20 65 78 70 |ile-true|name exp|
|00004ee0| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 22 2e |and-file|-name ".|
|00004ef0| 2e 2f 22 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |./" re-s|earch-fo|
|00004f00| 72 77 61 72 64 20 74 20 | 66 69 6c 65 2d 6e 61 6d |rward t |file-nam|
|00004f10| 65 2d 61 73 2d 64 69 72 | 65 63 74 6f 72 79 20 64 |e-as-dir|ectory d|
|00004f20| 69 72 20 63 6f 6d 70 69 | 6c 65 2d 61 62 62 72 65 |ir compi|le-abbre|
|00004f30| 76 69 61 74 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |viate-di|rectory |
|00004f40| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 64 69 72 65 |compilat|ion-dire|
|00004f50| 63 74 6f 72 79 2d 73 74 | 61 63 6b 20 66 69 6c 65 |ctory-st|ack file|
|00004f60| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 73 74 61 |-directo|ry-p sta|
|00004f70| 63 6b 20 62 65 67 20 22 | 63 6f 6d 70 69 6c 61 74 |ck beg "|compilat|
|00004f80| 69 6f 6e 2d 70 61 72 73 | 65 2d 65 72 72 6f 72 73 |ion-pars|e-errors|
|00004f90| 3a 20 69 6d 70 6f 73 73 | 69 62 6c 65 20 72 65 67 |: imposs|ible reg|
|00004fa0| 65 78 70 20 6d 61 74 63 | 68 21 22 20 22 20 09 22 |exp matc|h!" " ."|
|00004fb0| 20 6e 61 6d 65 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 | name lo|oking-at|
|00004fc0| 20 22 5b 30 2d 39 5d 22 | 20 72 65 61 64 20 6c 69 | "[0-9]"| read li|
|00004fd0| 6e 65 6e 75 6d 20 66 69 | 6c 65 6e 61 6d 65 20 62 |nenum fi|lename b|
|00004fe0| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6d 61 74 63 |eginning|-of-matc|
|00004ff0| 68 20 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 20 66 |h point-|marker f|
|00005000| 69 6e 64 2d 61 74 2d 6c | 65 61 73 74 20 22 63 6f |ind-at-l|east "co|
|00005010| 6d 70 69 6c 61 74 69 6f | 6e 2d 70 61 72 73 65 2d |mpilatio|n-parse-|
|00005020| 65 72 72 6f 72 73 3a 20 | 6b 6e 6f 77 6e 20 67 72 |errors: |known gr|
|00005030| 6f 75 70 73 20 64 69 64 | 6e 27 74 20 6d 61 74 63 |oups did|n't matc|
|00005040| 68 21 22 20 22 50 61 72 | 73 69 6e 67 20 65 72 72 |h!" "Par|sing err|
|00005050| 6f 72 20 6d 65 73 73 61 | 67 65 73 2e 2e 2e 25 64 |or messa|ges...%d|
|00005060| 20 28 25 64 25 25 20 6f | 66 20 62 75 66 66 65 72 | (%d%% o|f buffer|
|00005070| 29 22 20 31 30 30 20 6c | 69 6d 69 74 2d 73 65 61 |)" 100 l|imit-sea|
|00005080| 72 63 68 20 22 50 61 72 | 73 69 6e 67 20 65 72 72 |rch "Par|sing err|
|00005090| 6f 72 20 6d 65 73 73 61 | 67 65 73 2e 2e 2e 64 6f |or messa|ges...do|
|000050a0| 6e 65 22 5d 20 31 34 20 | 22 5c 0a 50 61 72 73 65 |ne"] 14 |"\.Parse|
|000050b0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|000050c0| 66 65 72 20 61 73 20 67 | 72 65 70 2c 20 63 63 20 |fer as g|rep, cc |
|000050d0| 6f 72 20 6c 69 6e 74 20 | 65 72 72 6f 72 20 6d 65 |or lint |error me|
|000050e0| 73 73 61 67 65 73 2e 0a | 53 65 65 20 76 61 72 69 |ssages..|See vari|
|000050f0| 61 62 6c 65 20 60 63 6f | 6d 70 69 6c 61 74 69 6f |able `co|mpilatio|
|00005100| 6e 2d 70 61 72 73 65 2d | 65 72 72 6f 72 73 2d 66 |n-parse-|errors-f|
|00005110| 75 6e 63 74 69 6f 6e 27 | 20 66 6f 72 20 74 68 65 |unction'| for the|
|00005120| 20 69 6e 74 65 72 66 61 | 63 65 20 69 74 20 75 73 | interfa|ce it us|
|00005130| 65 73 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |es."]).(|byte-cod|
|00005140| 65 20 22 c0 c1 c2 5c 22 | 88 c3 c4 21 87 22 20 5b |e "...\"|...!." [|
|00005150| 64 65 66 61 6c 69 61 73 | 20 63 6f 6d 70 69 6c 65 |defalias| compile|
|00005160| 2d 61 62 62 72 65 76 69 | 61 74 65 2d 64 69 72 65 |-abbrevi|ate-dire|
|00005170| 63 74 6f 72 79 20 23 5b | 28 64 69 72 20 6f 72 69 |ctory #[|(dir ori|
|00005180| 67 20 6f 72 69 67 2d 65 | 78 70 61 6e 64 65 64 20 |g orig-e|xpanded |
|00005190| 70 61 72 65 6e 74 2d 65 | 78 70 61 6e 64 65 64 29 |parent-e|xpanded)|
|000051a0| 20 22 08 47 09 47 56 83 | 1a 00 09 08 c2 09 47 4f | ".G.GV.|......GO|
|000051b0| 98 83 1a 00 0b 08 09 47 | c4 4f 50 10 08 47 0d 47 |.......G|.OP..G.G|
|000051c0| 56 83 38 00 0d 08 c2 0d | 47 4f 98 83 38 00 c6 c7 |V.8.....|GO..8...|
|000051d0| 0b 21 21 08 0d 47 c4 4f | 50 10 08 87 22 20 5b 64 |.!!..G.O|P..." [d|
|000051e0| 69 72 20 6f 72 69 67 2d | 65 78 70 61 6e 64 65 64 |ir orig-|expanded|
|000051f0| 20 30 20 6f 72 69 67 20 | 6e 69 6c 20 70 61 72 65 | 0 orig |nil pare|
|00005200| 6e 74 2d 65 78 70 61 6e | 64 65 64 20 66 69 6c 65 |nt-expan|ded file|
|00005210| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00005220| 64 69 72 65 63 74 6f 72 | 79 2d 66 69 6c 65 2d 6e |director|y-file-n|
|00005230| 61 6d 65 5d 20 34 5d 20 | 70 72 6f 76 69 64 65 20 |ame] 4] |provide |
|00005240| 63 6f 6d 70 69 6c 65 5d | 20 33 29 0a             |compile]| 3).    |
+--------+-------------------------+-------------------------+--------+--------+