/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / autoload.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 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 53 61 74 20 4a 75 |it.edu o|n Sat Ju|
|00000040| 6e 20 31 38 20 31 33 3a | 32 36 3a 30 32 20 31 39 |n 18 13:|26:02 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 61 75 74 6f 6c 6f 61 |9.0/lisp|/autoloa|
|00000080| 64 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |d.el.;;;| emacs v|
|00000090| 65 72 73 69 6f 6e 20 31 | 39 2e 32 35 2e 39 2e 0a |ersion 1|9.25.9..|
|000000a0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000b0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000c0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000d0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000e0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000f0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000100| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000110| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000120| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000130| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000140| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000150| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000170| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000180| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|00000190| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 2f 67 |.    (er|ror "`/g|
|000001a0| 64 2f 67 6e 75 2f 65 6d | 61 63 73 2f 31 39 2e 30 |d/gnu/em|acs/19.0|
|000001b0| 2f 6c 69 73 70 2f 61 75 | 74 6f 6c 6f 61 64 2e 65 |/lisp/au|toload.e|
|000001c0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|000001d0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 61 6b 65 |.(defali|as 'make|
|000001f0| 2d 61 75 74 6f 6c 6f 61 | 64 20 23 5b 28 66 6f 72 |-autoloa|d #[(for|
|00000200| 6d 20 66 69 6c 65 29 20 | 22 08 a2 89 19 c2 3e 85 |m file) |".....>.|
|00000210| 46 00 09 c3 3d c4 89 1d | 1e 06 1e 07 08 41 89 10 |F...=...|.....A..|
|00000220| 40 16 06 08 41 41 89 10 | 40 89 15 3b 83 2c 00 08 |@...AA..|@..;.,..|
|00000230| 41 10 82 2e 00 c4 15 c8 | c9 0e 06 44 0e 5c 6e 0d |A.......|...D.\n.|
|00000240| 08 40 a2 cb 3d 0e 07 85 | 43 00 c9 cc 44 af 06 2b |.@..=...|C...D..+|
|00000250| 29 87 22 20 5b 66 6f 72 | 6d 20 63 61 72 20 28 64 |)." [for|m car (d|
|00000260| 65 66 75 6e 20 64 65 66 | 6d 61 63 72 6f 29 20 64 |efun def|macro) d|
|00000270| 65 66 6d 61 63 72 6f 20 | 6e 69 6c 20 64 6f 63 20 |efmacro |nil doc |
|00000280| 6e 61 6d 65 20 6d 61 63 | 72 6f 70 20 61 75 74 6f |name mac|rop auto|
|00000290| 6c 6f 61 64 20 71 75 6f | 74 65 20 66 69 6c 65 20 |load quo|te file |
|000002a0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 6d 61 63 72 |interact|ive macr|
|000002b0| 6f 5d 20 38 20 22 5c 0a | 54 75 72 6e 20 46 4f 52 |o] 8 "\.|Turn FOR|
|000002c0| 4d 2c 20 61 20 64 65 66 | 75 6e 20 6f 72 20 64 65 |M, a def|un or de|
|000002d0| 66 6d 61 63 72 6f 2c 20 | 69 6e 74 6f 20 61 6e 20 |fmacro, |into an |
|000002e0| 61 75 74 6f 6c 6f 61 64 | 20 66 6f 72 20 73 6f 75 |autoload| for sou|
|000002f0| 72 63 65 20 66 69 6c 65 | 20 46 49 4c 45 2e 0a 52 |rce file| FILE..R|
|00000300| 65 74 75 72 6e 73 20 6e | 69 6c 20 69 66 20 46 4f |eturns n|il if FO|
|00000310| 52 4d 20 69 73 20 6e 6f | 74 20 61 20 64 65 66 75 |RM is no|t a defu|
|00000320| 6e 20 6f 72 20 64 65 66 | 6d 61 63 72 6f 2e 22 5d |n or def|macro."]|
|00000330| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 67 65 6e 65 |).(defco|nst gene|
|00000340| 72 61 74 65 2d 61 75 74 | 6f 6c 6f 61 64 2d 63 6f |rate-aut|oload-co|
|00000350| 6f 6b 69 65 20 22 3b 3b | 3b 23 23 23 61 75 74 6f |okie ";;|;###auto|
|00000360| 6c 6f 61 64 22 20 22 5c | 0a 4d 61 67 69 63 20 63 |load" "\|.Magic c|
|00000370| 6f 6d 6d 65 6e 74 20 69 | 6e 64 69 63 61 74 69 6e |omment i|ndicatin|
|00000380| 67 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |g the fo|llowing |
|00000390| 66 6f 72 6d 20 73 68 6f | 75 6c 64 20 62 65 20 61 |form sho|uld be a|
|000003a0| 75 74 6f 6c 6f 61 64 65 | 64 2e 0a 55 73 65 64 20 |utoloade|d..Used |
|000003b0| 62 79 20 5c 5c 5b 75 70 | 64 61 74 65 2d 66 69 6c |by \\[up|date-fil|
|000003c0| 65 2d 61 75 74 6f 6c 6f | 61 64 73 5d 2e 20 20 54 |e-autolo|ads].  T|
|000003d0| 68 69 73 20 73 74 72 69 | 6e 67 20 73 68 6f 75 6c |his stri|ng shoul|
|000003e0| 64 20 62 65 0a 6d 65 61 | 6e 69 6e 67 6c 65 73 73 |d be.mea|ningless|
|000003f0| 20 74 6f 20 4c 69 73 70 | 20 28 65 2e 67 2e 2c 20 | to Lisp| (e.g., |
|00000400| 61 20 63 6f 6d 6d 65 6e | 74 29 2e 0a 0a 54 68 69 |a commen|t)...Thi|
|00000410| 73 20 73 74 72 69 6e 67 | 20 69 73 20 75 73 65 64 |s string| is used|
|00000420| 3a 0a 0a 3b 3b 3b 23 23 | 23 61 75 74 6f 6c 6f 61 |:..;;;##|#autoloa|
|00000430| 64 0a 28 64 65 66 75 6e | 20 66 75 6e 63 74 69 6f |d.(defun| functio|
|00000440| 6e 2d 74 6f 2d 62 65 2d | 61 75 74 6f 6c 6f 61 64 |n-to-be-|autoload|
|00000450| 65 64 20 28 29 20 2e 2e | 2e 29 0a 0a 49 66 20 74 |ed () ..|.)..If t|
|00000460| 68 69 73 20 73 74 72 69 | 6e 67 20 61 70 70 65 61 |his stri|ng appea|
|00000470| 72 73 20 61 6c 6f 6e 65 | 20 6f 6e 20 61 20 6c 69 |rs alone| on a li|
|00000480| 6e 65 2c 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ne, the |followin|
|00000490| 67 20 66 6f 72 6d 20 77 | 69 6c 6c 20 62 65 0a 72 |g form w|ill be.r|
|000004a0| 65 61 64 20 61 6e 64 20 | 61 6e 20 61 75 74 6f 6c |ead and |an autol|
|000004b0| 6f 61 64 20 6d 61 64 65 | 20 66 6f 72 20 69 74 2e |oad made| for it.|
|000004c0| 20 20 49 66 20 74 68 65 | 72 65 20 69 73 20 66 75 |  If the|re is fu|
|000004d0| 72 74 68 65 72 20 74 65 | 78 74 20 6f 6e 20 74 68 |rther te|xt on th|
|000004e0| 65 20 6c 69 6e 65 2c 0a | 74 68 61 74 20 74 65 78 |e line,.|that tex|
|000004f0| 74 20 77 69 6c 6c 20 62 | 65 20 63 6f 70 69 65 64 |t will b|e copied|
|00000500| 20 76 65 72 62 61 74 69 | 6d 20 74 6f 20 60 67 65 | verbati|m to `ge|
|00000510| 6e 65 72 61 74 65 64 2d | 61 75 74 6f 6c 6f 61 64 |nerated-|autoload|
|00000520| 2d 66 69 6c 65 27 2e 22 | 29 0a 28 64 65 66 63 6f |-file'."|).(defco|
|00000530| 6e 73 74 20 67 65 6e 65 | 72 61 74 65 2d 61 75 74 |nst gene|rate-aut|
|00000540| 6f 6c 6f 61 64 2d 73 65 | 63 74 69 6f 6e 2d 68 65 |oload-se|ction-he|
|00000550| 61 64 65 72 20 22 5c 66 | 5c 6e 3b 3b 3b 23 23 23 |ader "\f|\n;;;###|
|00000560| 20 22 20 22 5c 0a 53 74 | 72 69 6e 67 20 69 6e 73 | " "\.St|ring ins|
|00000570| 65 72 74 65 64 20 62 65 | 66 6f 72 65 20 74 68 65 |erted be|fore the|
|00000580| 20 66 6f 72 6d 20 69 64 | 65 6e 74 69 66 79 69 6e | form id|entifyin|
|00000590| 67 0a 74 68 65 20 73 65 | 63 74 69 6f 6e 20 6f 66 |g.the se|ction of|
|000005a0| 20 61 75 74 6f 6c 6f 61 | 64 73 20 66 6f 72 20 61 | autoloa|ds for a|
|000005b0| 20 66 69 6c 65 2e 22 29 | 0a 28 64 65 66 63 6f 6e | file.")|.(defcon|
|000005c0| 73 74 20 67 65 6e 65 72 | 61 74 65 2d 61 75 74 6f |st gener|ate-auto|
|000005d0| 6c 6f 61 64 2d 73 65 63 | 74 69 6f 6e 2d 74 72 61 |load-sec|tion-tra|
|000005e0| 69 6c 65 72 20 22 5c 6e | 3b 3b 3b 2a 2a 2a 5c 6e |iler "\n|;;;***\n|
|000005f0| 22 20 22 5c 0a 53 74 72 | 69 6e 67 20 77 68 69 63 |" "\.Str|ing whic|
|00000600| 68 20 69 6e 64 69 63 61 | 74 65 73 20 74 68 65 20 |h indica|tes the |
|00000610| 65 6e 64 20 6f 66 20 74 | 68 65 20 73 65 63 74 69 |end of t|he secti|
|00000620| 6f 6e 20 6f 66 20 61 75 | 74 6f 6c 6f 61 64 73 20 |on of au|toloads |
|00000630| 66 6f 72 20 61 20 66 69 | 6c 65 2e 22 29 0a 28 62 |for a fi|le.").(b|
|00000640| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 23 88 |yte-code| "....#.|
|00000650| c0 c4 c2 c3 23 88 c0 c5 | c2 c3 23 88 c0 c6 c2 c3 |....#...|..#.....|
|00000660| 23 88 c0 c7 c2 c3 23 88 | c8 c9 ca 5c 22 87 22 20 |#.....#.|...\"." |
|00000670| 5b 70 75 74 20 61 75 74 | 6f 6c 6f 61 64 20 64 6f |[put aut|oload do|
|00000680| 63 2d 73 74 72 69 6e 67 | 2d 65 6c 74 20 33 20 64 |c-string|-elt 3 d|
|00000690| 65 66 75 6e 20 64 65 66 | 76 61 72 20 64 65 66 63 |efun def|var defc|
|000006a0| 6f 6e 73 74 20 64 65 66 | 6d 61 63 72 6f 20 64 65 |onst def|macro de|
|000006b0| 66 61 6c 69 61 73 20 61 | 75 74 6f 6c 6f 61 64 2d |falias a|utoload-|
|000006c0| 74 72 69 6d 2d 66 69 6c | 65 2d 6e 61 6d 65 20 23 |trim-fil|e-name #|
|000006d0| 5b 28 66 69 6c 65 29 20 | 22 c0 09 21 11 c2 09 c3 |[(file) |"..!....|
|000006e0| 5c 66 21 5c 22 87 22 20 | 5b 65 78 70 61 6e 64 2d |\f!\"." |[expand-|
|000006f0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 20 66 |file-nam|e file f|
|00000700| 69 6c 65 2d 72 65 6c 61 | 74 69 76 65 2d 6e 61 6d |ile-rela|tive-nam|
|00000710| 65 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |e file-n|ame-dire|
|00000720| 63 74 6f 72 79 20 67 65 | 6e 65 72 61 74 65 64 2d |ctory ge|nerated-|
|00000730| 61 75 74 6f 6c 6f 61 64 | 2d 66 69 6c 65 5d 20 34 |autoload|-file] 4|
|00000740| 5d 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 4).(d|efalias |
|00000750| 27 67 65 6e 65 72 61 74 | 65 2d 66 69 6c 65 2d 61 |'generat|e-file-a|
|00000760| 75 74 6f 6c 6f 61 64 73 | 20 23 5b 28 66 69 6c 65 |utoloads| #[(file|
|00000770| 29 20 22 70 c0 c1 5c 6e | 21 1b c4 c5 0b 5c 22 83 |) "p..\n|!....\".|
|00000780| 15 00 0b c6 89 94 4f 82 | 16 00 0b 29 c0 c7 c0 89 |......O.|...)....|
|00000790| c8 5c 6e 21 c0 1e 09 1e | 5c 6e 1e 0b 1e 5c 66 1e |.\n!....|\n...\f.|
|000007a0| 0d 1e 0e 1e 0f 1e 10 1e | 11 d2 5c 6e 21 12 d3 5c |........|..\n!..\|
|000007b0| 6e 21 1e 14 d5 d3 0e 16 | 21 21 89 1e 17 47 89 1e |n!......|!!...G..|
|000007c0| 18 0e 14 47 57 83 61 00 | 0e 17 0e 14 c6 0e 18 4f |...GW.a.|.......O|
|000007d0| 98 83 61 00 0e 14 0e 18 | c0 4f 12 2b d9 da 5c 6e |..a.....|.O.+..\n|
|000007e0| 5c 22 88 8a db 8e dc 5c | 6e 21 71 88 8a 8c 7e 88 |\".....\|n!q...~.|
|000007f0| 65 62 88 6d 84 8e 01 dd | c0 77 88 de df 0e 20 21 |eb.m....|.w.... !|
|00000800| 21 83 78 01 e1 0e 20 21 | 88 e2 c0 77 88 c7 16 0b |!.x... !|...w....|
|00000810| 6c 83 65 01 e3 70 21 6e | 84 a1 00 e4 79 88 1e 25 |l.e..p!n|....y..%|
|00000820| e6 0e 25 0e 0f 5c 22 1e | 27 0e 25 a2 e8 4e 1e 28 |..%..\".|'.%..N.(|
|00000830| 0e 27 83 c3 00 0e 25 41 | 40 0e 10 42 16 10 82 c7 |.'....%A|@..B....|
|00000840| 00 0e 25 16 27 0e 28 83 | 56 01 0e 28 0e 27 38 3b |..%.'.(.|V..(.'8;|
|00000850| 83 56 01 0e 28 53 0e 27 | 9b 89 1e 29 41 1e 2a 0e |.V..(S.'|...)A.*.|
|00000860| 29 c0 a1 88 eb ec 0e 11 | 5c 22 88 c7 1e 2d ee ef |).......|\"...-..|
|00000870| 0e 27 5c 22 88 29 eb f0 | 0e 11 5c 22 88 8a 0e 11 |.'\".)..|..\"....|
|00000880| 71 88 60 29 1e 31 eb f2 | 0e 2a 40 21 e4 c0 4f 0e |q.`).1..|.*@!..O.|
|00000890| 11 5c 22 88 8a 0e 11 71 | 88 8a f3 ec 0e 31 c7 23 |.\"....q|.....1.#|
|000008a0| 83 2a 01 e4 75 88 f4 63 | 88 82 18 01 2a 0e 2a 41 |.*..u..c|....*.*A|
|000008b0| 84 3a 01 eb f5 0e 11 5c | 22 88 82 4d 01 eb f6 0e |.:.....\|"..M....|
|000008c0| 11 5c 22 88 eb f2 0e 2a | 41 21 e4 c0 4f 0e 11 5c |.\"....*|A!..O..\|
|000008d0| 22 88 f7 0e 11 21 88 2b | 82 61 01 c7 1e 2d f8 0e |"....!.+|.a...-..|
|000008e0| 27 0e 11 5c 22 88 29 2b | 82 76 00 60 1e 31 e4 79 |'..\".)+|.v.`.1.y|
|000008f0| 88 eb 0e 31 60 7b 0e 11 | 5c 22 88 29 82 76 00 de |...1`{..|\".).v..|
|00000900| f9 21 83 84 01 e4 79 88 | 82 76 00 fa e4 21 88 e4 |.!....y.|.v...!..|
|00000910| 79 88 82 76 00 2c 0e 0b | 83 c7 01 0e 3b 63 88 fc |y..v.,..|....;c..|
|00000920| fd 0e 10 0e 0f fe 5c 6e | 21 ff 81 40 00 5c 6e 21 |......\n|!..@.\n!|
|00000930| 38 af 05 0e 11 5c 22 88 | f7 0e 11 21 88 81 41 00 |8....\".|...!..A.|
|00000940| fe 5c 6e 21 81 42 00 b1 | 03 88 0e 09 62 88 0e 43 |.\n!.B..|....b..C|
|00000950| 63 88 d9 81 44 00 5c 6e | 5c 22 2e 09 87 22 20 5b |c...D.\n|\"..." [|
|00000960| 6e 69 6c 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |nil file|-name-no|
|00000970| 6e 64 69 72 65 63 74 6f | 72 79 20 66 69 6c 65 20 |ndirecto|ry file |
|00000980| 6e 61 6d 65 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |name str|ing-matc|
|00000990| 68 20 22 5c 5c 2e 65 6c | 63 3f 24 22 20 30 20 74 |h "\\.el|c?$" 0 t|
|000009a0| 20 67 65 74 2d 66 69 6c | 65 2d 62 75 66 66 65 72 | get-fil|e-buffer|
|000009b0| 20 6f 75 74 70 75 74 2d | 65 6e 64 20 76 69 73 69 | output-|end visi|
|000009c0| 74 65 64 20 64 6f 6e 65 | 2d 61 6e 79 20 66 6c 6f |ted done|-any flo|
|000009d0| 61 74 2d 6f 75 74 70 75 | 74 2d 66 6f 72 6d 61 74 |at-outpu|t-format|
|000009e0| 20 70 72 69 6e 74 2d 72 | 65 61 64 61 62 6c 79 20 | print-r|eadably |
|000009f0| 70 72 69 6e 74 2d 6c 65 | 6e 67 74 68 20 6c 6f 61 |print-le|ngth loa|
|00000a00| 64 2d 6e 61 6d 65 20 61 | 75 74 6f 6c 6f 61 64 73 |d-name a|utoloads|
|00000a10| 2d 64 6f 6e 65 20 6f 75 | 74 62 75 66 20 65 78 70 |-done ou|tbuf exp|
|00000a20| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 66 69 |and-file|-name fi|
|00000a30| 6c 65 2d 74 72 75 65 6e | 61 6d 65 20 73 6f 75 72 |le-truen|ame sour|
|00000a40| 63 65 2d 74 72 75 65 6e | 61 6d 65 20 66 69 6c 65 |ce-truen|ame file|
|00000a50| 2d 6e 61 6d 65 2d 61 73 | 2d 64 69 72 65 63 74 6f |-name-as|-directo|
|00000a60| 72 79 20 64 65 66 61 75 | 6c 74 2d 64 69 72 65 63 |ry defau|lt-direc|
|00000a70| 74 6f 72 79 20 64 69 72 | 2d 74 72 75 65 6e 61 6d |tory dir|-truenam|
|00000a80| 65 20 6c 65 6e 20 6d 65 | 73 73 61 67 65 20 22 47 |e len me|ssage "G|
|00000a90| 65 6e 65 72 61 74 69 6e | 67 20 61 75 74 6f 6c 6f |eneratin|g autolo|
|00000aa0| 61 64 73 20 66 6f 72 20 | 25 73 2e 2e 2e 22 20 28 |ads for |%s..." (|
|00000ab0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 84 08 00 |(byte-co|de "....|
|00000ac0| c1 70 21 88 5c 6e 71 88 | c3 20 14 c1 87 22 20 5b |.p!.\nq.|. ..." [|
|00000ad0| 76 69 73 69 74 65 64 20 | 6b 69 6c 6c 2d 62 75 66 |visited |kill-buf|
|00000ae0| 66 65 72 20 6f 75 74 62 | 75 66 20 70 6f 69 6e 74 |fer outb|uf point|
|00000af0| 2d 6d 61 72 6b 65 72 20 | 6f 75 74 70 75 74 2d 65 |-marker |output-e|
|00000b00| 6e 64 5d 20 32 29 29 20 | 66 69 6e 64 2d 66 69 6c |nd] 2)) |find-fil|
|00000b10| 65 2d 6e 6f 73 65 6c 65 | 63 74 20 22 20 09 5c 6e |e-nosele|ct " .\n|
|00000b20| 5c 66 22 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 72 |\f" look|ing-at r|
|00000b30| 65 67 65 78 70 2d 71 75 | 6f 74 65 20 67 65 6e 65 |egexp-qu|ote gene|
|00000b40| 72 61 74 65 2d 61 75 74 | 6f 6c 6f 61 64 2d 63 6f |rate-aut|oload-co|
|00000b50| 6f 6b 69 65 20 73 65 61 | 72 63 68 2d 66 6f 72 77 |okie sea|rch-forw|
|00000b60| 61 72 64 20 22 20 09 22 | 20 72 65 61 64 20 31 20 |ard " ."| read 1 |
|00000b70| 66 6f 72 6d 20 6d 61 6b | 65 2d 61 75 74 6f 6c 6f |form mak|e-autolo|
|00000b80| 61 64 20 61 75 74 6f 6c | 6f 61 64 20 64 6f 63 2d |ad autol|oad doc-|
|00000b90| 73 74 72 69 6e 67 2d 65 | 6c 74 20 70 20 65 6c 74 |string-e|lt p elt|
|00000ba0| 20 70 72 69 6e 63 20 22 | 5c 6e 28 22 20 70 72 69 | princ "|\n(" pri|
|00000bb0| 6e 74 2d 65 73 63 61 70 | 65 2d 6e 65 77 6c 69 6e |nt-escap|e-newlin|
|00000bc0| 65 73 20 6d 61 70 63 61 | 72 20 23 5b 28 65 6c 74 |es mapca|r #[(elt|
|00000bd0| 29 20 22 c0 09 5c 6e 5c | 22 88 c3 c4 5c 6e 5c 22 |) "..\n\|"...\n\"|
|00000be0| 87 22 20 5b 70 72 69 6e | 31 20 65 6c 74 20 6f 75 |." [prin|1 elt ou|
|00000bf0| 74 62 75 66 20 70 72 69 | 6e 63 20 22 20 22 5d 20 |tbuf pri|nc " "] |
|00000c00| 33 5d 20 22 5c 22 5c 5c | 5c 6e 22 20 62 65 67 69 |3] "\"\\|\n" begi|
|00000c10| 6e 20 70 72 69 6e 31 2d | 74 6f 2d 73 74 72 69 6e |n prin1-|to-strin|
|00000c20| 67 20 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |g search|-backwar|
|00000c30| 64 20 22 5c 5c 22 20 22 | 29 22 20 22 20 22 20 74 |d "\\" "|)" " " t|
|00000c40| 65 72 70 72 69 20 70 72 | 69 6e 74 20 22 3b 22 20 |erpri pr|int ";" |
|00000c50| 66 6f 72 77 61 72 64 2d | 73 65 78 70 20 67 65 6e |forward-|sexp gen|
|00000c60| 65 72 61 74 65 2d 61 75 | 74 6f 6c 6f 61 64 2d 73 |erate-au|toload-s|
|00000c70| 65 63 74 69 6f 6e 2d 68 | 65 61 64 65 72 20 70 72 |ection-h|eader pr|
|00000c80| 69 6e 31 20 61 75 74 6f | 6c 6f 61 64 73 20 61 75 |in1 auto|loads au|
|00000c90| 74 6f 6c 6f 61 64 2d 74 | 72 69 6d 2d 66 69 6c 65 |toload-t|rim-file|
|00000ca0| 2d 6e 61 6d 65 20 35 20 | 66 69 6c 65 2d 61 74 74 |-name 5 |file-att|
|00000cb0| 72 69 62 75 74 65 73 20 | 22 3b 3b 3b 20 47 65 6e |ributes |";;; Gen|
|00000cc0| 65 72 61 74 65 64 20 61 | 75 74 6f 6c 6f 61 64 73 |erated a|utoloads|
|00000cd0| 20 66 72 6f 6d 20 22 20 | 22 5c 6e 22 20 67 65 6e | from " |"\n" gen|
|00000ce0| 65 72 61 74 65 2d 61 75 | 74 6f 6c 6f 61 64 2d 73 |erate-au|toload-s|
|00000cf0| 65 63 74 69 6f 6e 2d 74 | 72 61 69 6c 65 72 20 22 |ection-t|railer "|
|00000d00| 47 65 6e 65 72 61 74 69 | 6e 67 20 61 75 74 6f 6c |Generati|ng autol|
|00000d10| 6f 61 64 73 20 66 6f 72 | 20 25 73 2e 2e 2e 64 6f |oads for| %s...do|
|00000d20| 6e 65 22 5d 20 31 30 20 | 22 5c 0a 49 6e 73 65 72 |ne"] 10 |"\.Inser|
|00000d30| 74 20 61 74 20 70 6f 69 | 6e 74 20 61 20 6c 6f 61 |t at poi|nt a loa|
|00000d40| 64 64 65 66 73 20 61 75 | 74 6f 6c 6f 61 64 20 73 |ddefs au|toload s|
|00000d50| 65 63 74 69 6f 6e 20 66 | 6f 72 20 46 49 4c 45 2e |ection f|or FILE.|
|00000d60| 0a 61 75 74 6f 6c 6f 61 | 64 73 20 61 72 65 20 67 |.autoloa|ds are g|
|00000d70| 65 6e 65 72 61 74 65 64 | 20 66 6f 72 20 64 65 66 |enerated| for def|
|00000d80| 75 6e 73 20 61 6e 64 20 | 64 65 66 6d 61 63 72 6f |uns and |defmacro|
|00000d90| 73 20 69 6e 20 46 49 4c | 45 0a 6d 61 72 6b 65 64 |s in FIL|E.marked|
|00000da0| 20 62 79 20 60 67 65 6e | 65 72 61 74 65 2d 61 75 | by `gen|erate-au|
|00000db0| 74 6f 6c 6f 61 64 2d 63 | 6f 6f 6b 69 65 27 20 28 |toload-c|ookie' (|
|00000dc0| 77 68 69 63 68 20 73 65 | 65 29 2e 0a 49 66 20 46 |which se|e)..If F|
|00000dd0| 49 4c 45 20 69 73 20 62 | 65 69 6e 67 20 76 69 73 |ILE is b|eing vis|
|00000de0| 69 74 65 64 20 69 6e 20 | 61 20 62 75 66 66 65 72 |ited in |a buffer|
|00000df0| 2c 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |, the co|ntents o|
|00000e00| 66 20 74 68 65 20 62 75 | 66 66 65 72 0a 61 72 65 |f the bu|ffer.are|
|00000e10| 20 75 73 65 64 2e 22 20 | 22 66 47 65 6e 65 72 61 | used." |"fGenera|
|00000e20| 74 65 20 61 75 74 6f 6c | 6f 61 64 73 20 66 6f 72 |te autol|oads for|
|00000e30| 20 66 69 6c 65 3a 20 22 | 5d 29 0a 28 64 65 66 63 | file: "|]).(defc|
|00000e40| 6f 6e 73 74 20 67 65 6e | 65 72 61 74 65 64 2d 61 |onst gen|erated-a|
|00000e50| 75 74 6f 6c 6f 61 64 2d | 66 69 6c 65 20 22 6c 6f |utoload-|file "lo|
|00000e60| 61 64 64 65 66 73 2e 65 | 6c 22 20 22 5c 0a 2a 46 |addefs.e|l" "\.*F|
|00000e70| 69 6c 65 20 5c 5c 5b 75 | 70 64 61 74 65 2d 66 69 |ile \\[u|pdate-fi|
|00000e80| 6c 65 2d 61 75 74 6f 6c | 6f 61 64 73 5d 20 70 75 |le-autol|oads] pu|
|00000e90| 74 73 20 61 75 74 6f 6c | 6f 61 64 73 20 69 6e 74 |ts autol|oads int|
|00000ea0| 6f 2e 0a 41 20 2e 65 6c | 20 66 69 6c 65 20 63 61 |o..A .el| file ca|
|00000eb0| 6e 20 73 65 74 20 74 68 | 69 73 20 69 6e 20 69 74 |n set th|is in it|
|00000ec0| 73 20 6c 6f 63 61 6c 20 | 76 61 72 69 61 62 6c 65 |s local |variable|
|00000ed0| 73 20 73 65 63 74 69 6f | 6e 20 74 6f 20 6d 61 6b |s sectio|n to mak|
|00000ee0| 65 20 69 74 73 0a 61 75 | 74 6f 6c 6f 61 64 73 20 |e its.au|toloads |
|00000ef0| 67 6f 20 73 6f 6d 65 77 | 68 65 72 65 20 65 6c 73 |go somew|here els|
|00000f00| 65 2e 22 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |e.").(de|falias '|
|00000f10| 75 70 64 61 74 65 2d 66 | 69 6c 65 2d 61 75 74 6f |update-f|ile-auto|
|00000f20| 6c 6f 61 64 73 20 23 5b | 28 66 69 6c 65 29 20 22 |loads #[|(file) "|
|00000f30| c0 09 21 1a c3 c4 5c 6e | 5c 22 83 13 00 5c 6e c5 |..!...\n|\"...\n.|
|00000f40| 89 94 4f 82 14 00 5c 6e | 29 c6 c7 09 21 1e 08 1e |..O...\n|)...!...|
|00000f50| 09 1e 5c 6e 8a cb 09 21 | 71 88 cb 0e 5c 66 21 71 |..\n...!|q...\f!q|
|00000f60| 88 8a 8c 7e 88 65 62 88 | 0e 09 84 cc 00 cd 0e 0e |...~.eb.|........|
|00000f70| c6 cf 23 83 cc 00 c6 d0 | d1 8f 1e 12 d3 0e 12 38 |..#.....|.......8|
|00000f80| 0e 5c 6e 98 83 b7 00 c5 | 94 d4 0e 12 38 d5 d6 09 |.\n.....|....8...|
|00000f90| 21 38 1e 17 1e 18 1e 19 | 0e 08 83 6d 00 da 0e 08 |!8......|...m....|
|00000fa0| 21 84 a6 00 0e 18 3c 83 | a6 00 0e 18 47 d3 55 83 |!.....<.|....G.U.|
|00000fb0| a6 00 0e 18 40 0e 17 40 | 56 84 9b 00 0e 18 40 0e |....@..@|V.....@.|
|00000fc0| 17 40 55 83 a6 00 0e 18 | 41 40 0e 17 41 40 59 83 |.@U.....|A@..A@Y.|
|00000fd0| a6 00 db dc 09 5c 22 88 | dd 16 09 82 b3 00 cd 0e |.....\".|........|
|00000fe0| 1e 21 88 0e 19 60 7c 88 | cf 16 09 2b 82 c8 00 0e |.!...`|.|...+....|
|00000ff0| 5c 6e d3 0e 12 38 99 83 | c8 00 c5 94 62 88 df 16 |\n...8..|....b...|
|00001000| 09 29 82 32 00 0e 09 dd | 3d 84 07 01 0e 09 df 3d |.).2....|=......=|
|00001010| 83 03 01 8a cb 09 21 71 | 88 8a 7e 88 65 62 88 cd |......!q|..~.eb..|
|00001020| e0 0e 21 50 c6 cf 23 83 | f5 00 c6 82 ff 00 74 83 |..!P..#.|......t.|
|00001030| fe 00 db 09 e2 5c 22 88 | cf 2a 84 07 01 e3 09 21 |.....\".|.*.....!|
|00001040| 88 2a 74 83 0f 01 e4 20 | 88 0e 08 3f 85 5c 22 01 |.*t.... |...?.\".|
|00001050| c7 09 21 89 16 08 85 5c | 22 01 e5 0e 08 21 2c 87 |..!....\|"....!,.|
|00001060| 22 20 5b 66 69 6c 65 2d | 6e 61 6d 65 2d 6e 6f 6e |" [file-|name-non|
|00001070| 64 69 72 65 63 74 6f 72 | 79 20 66 69 6c 65 20 6e |director|y file n|
|00001080| 61 6d 65 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |ame stri|ng-match|
|00001090| 20 22 5c 5c 2e 65 6c 63 | 3f 24 22 20 30 20 6e 69 | "\\.elc|?$" 0 ni|
|000010a0| 6c 20 67 65 74 2d 66 69 | 6c 65 2d 62 75 66 66 65 |l get-fi|le-buffe|
|000010b0| 72 20 65 78 69 73 74 69 | 6e 67 2d 62 75 66 66 65 |r existi|ng-buffe|
|000010c0| 72 20 66 6f 75 6e 64 20 | 6c 6f 61 64 2d 6e 61 6d |r found |load-nam|
|000010d0| 65 20 66 69 6e 64 2d 66 | 69 6c 65 2d 6e 6f 73 65 |e find-f|ile-nose|
|000010e0| 6c 65 63 74 20 67 65 6e | 65 72 61 74 65 64 2d 61 |lect gen|erated-a|
|000010f0| 75 74 6f 6c 6f 61 64 2d | 66 69 6c 65 20 73 65 61 |utoload-|file sea|
|00001100| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 67 65 6e 65 |rch-forw|ard gene|
|00001110| 72 61 74 65 2d 61 75 74 | 6f 6c 6f 61 64 2d 73 65 |rate-aut|oload-se|
|00001120| 63 74 69 6f 6e 2d 68 65 | 61 64 65 72 20 74 20 28 |ction-he|ader t (|
|00001130| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 70 21 87 22 |byte-cod|e ".p!."|
|00001140| 20 5b 72 65 61 64 5d 20 | 32 29 20 28 28 65 6e 64 | [read] |2) ((end|
|00001150| 2d 6f 66 2d 66 69 6c 65 | 29 29 20 66 6f 72 6d 20 |-of-file|)) form |
|00001160| 32 20 34 20 35 20 66 69 | 6c 65 2d 61 74 74 72 69 |2 4 5 fi|le-attri|
|00001170| 62 75 74 65 73 20 66 69 | 6c 65 2d 74 69 6d 65 20 |butes fi|le-time |
|00001180| 6c 61 73 74 2d 74 69 6d | 65 20 62 65 67 69 6e 20 |last-tim|e begin |
|00001190| 62 75 66 66 65 72 2d 6d | 6f 64 69 66 69 65 64 2d |buffer-m|odified-|
|000011a0| 70 20 6d 65 73 73 61 67 | 65 20 22 41 75 74 6f 6c |p messag|e "Autol|
|000011b0| 6f 61 64 20 73 65 63 74 | 69 6f 6e 20 66 6f 72 20 |oad sect|ion for |
|000011c0| 25 73 20 69 73 20 75 70 | 20 74 6f 20 64 61 74 65 |%s is up| to date|
|000011d0| 2e 22 20 75 70 2d 74 6f | 2d 64 61 74 65 20 67 65 |." up-to|-date ge|
|000011e0| 6e 65 72 61 74 65 2d 61 | 75 74 6f 6c 6f 61 64 2d |nerate-a|utoload-|
|000011f0| 73 65 63 74 69 6f 6e 2d | 74 72 61 69 6c 65 72 20 |section-|trailer |
|00001200| 6e 65 77 20 22 5c 6e 22 | 20 67 65 6e 65 72 61 74 |new "\n"| generat|
|00001210| 65 2d 61 75 74 6f 6c 6f | 61 64 2d 63 6f 6f 6b 69 |e-autolo|ad-cooki|
|00001220| 65 20 22 20 68 61 73 20 | 6e 6f 20 61 75 74 6f 6c |e " has |no autol|
|00001230| 6f 61 64 73 22 20 67 65 | 6e 65 72 61 74 65 2d 66 |oads" ge|nerate-f|
|00001240| 69 6c 65 2d 61 75 74 6f | 6c 6f 61 64 73 20 73 61 |ile-auto|loads sa|
|00001250| 76 65 2d 62 75 66 66 65 | 72 20 6b 69 6c 6c 2d 62 |ve-buffe|r kill-b|
|00001260| 75 66 66 65 72 5d 20 35 | 20 22 5c 0a 55 70 64 61 |uffer] 5| "\.Upda|
|00001270| 74 65 20 74 68 65 20 61 | 75 74 6f 6c 6f 61 64 73 |te the a|utoloads|
|00001280| 20 66 6f 72 20 46 49 4c | 45 20 69 6e 20 60 67 65 | for FIL|E in `ge|
|00001290| 6e 65 72 61 74 65 64 2d | 61 75 74 6f 6c 6f 61 64 |nerated-|autoload|
|000012a0| 2d 66 69 6c 65 27 0a 28 | 77 68 69 63 68 20 46 49 |-file'.(|which FI|
|000012b0| 4c 45 20 6d 69 67 68 74 | 20 62 69 6e 64 20 69 6e |LE might| bind in|
|000012c0| 20 69 74 73 20 6c 6f 63 | 61 6c 20 76 61 72 69 61 | its loc|al varia|
|000012d0| 62 6c 65 73 29 2e 22 20 | 22 66 55 70 64 61 74 65 |bles)." |"fUpdate|
|000012e0| 20 61 75 74 6f 6c 6f 61 | 64 73 20 66 6f 72 20 66 | autoloa|ds for f|
|000012f0| 69 6c 65 3a 20 22 5d 29 | 0a 28 64 65 66 61 6c 69 |ile: "])|.(defali|
|00001300| 61 73 20 27 75 70 64 61 | 74 65 2d 61 75 74 6f 6c |as 'upda|te-autol|
|00001310| 6f 61 64 73 2d 68 65 72 | 65 20 23 5b 6e 69 6c 20 |oads-her|e #[nil |
|00001320| 22 c0 20 19 8a 65 62 88 | c2 0b c4 c5 23 85 69 00 |". ..eb.|....#.i.|
|00001330| c4 c6 c7 8f 1e 08 c9 0e | 08 38 89 1e 5c 6e 3b 83 |........|.8..\n;.|
|00001340| 2e 00 cb 0e 5c 6e 21 84 | 46 00 cc 0e 5c 6e 21 84 |....\n!.|F...\n!.|
|00001350| 46 00 cd ce cf d0 0e 08 | 38 0e 5c 6e 23 21 83 40 |F.......|8.\n#!.@|
|00001360| 00 c5 82 44 00 c4 d1 d2 | 8f 16 5c 6e 0e 5c 6e 83 |...D....|..\n.\n.|
|00001370| 5a 00 d3 94 1e 14 c2 0e | 15 21 88 0e 14 60 7c 88 |Z.......|.!...`|.|
|00001380| 29 0e 5c 6e 3b 83 65 00 | d6 0e 5c 6e 21 88 2a 82 |).\n;.e.|..\n!.*.|
|00001390| 07 00 2a 87 22 20 5b 62 | 75 66 66 65 72 2d 66 69 |..*." [b|uffer-fi|
|000013a0| 6c 65 2d 6e 61 6d 65 20 | 67 65 6e 65 72 61 74 65 |le-name |generate|
|000013b0| 64 2d 61 75 74 6f 6c 6f | 61 64 2d 66 69 6c 65 20 |d-autolo|ad-file |
|000013c0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 67 |search-f|orward g|
|000013d0| 65 6e 65 72 61 74 65 2d | 61 75 74 6f 6c 6f 61 64 |enerate-|autoload|
|000013e0| 2d 73 65 63 74 69 6f 6e | 2d 68 65 61 64 65 72 20 |-section|-header |
|000013f0| 6e 69 6c 20 74 20 28 62 | 79 74 65 2d 63 6f 64 65 |nil t (b|yte-code|
|00001400| 20 22 c0 70 21 87 22 20 | 5b 72 65 61 64 5d 20 32 | ".p!." |[read] 2|
|00001410| 29 20 28 28 65 6e 64 2d | 6f 66 2d 66 69 6c 65 29 |) ((end-|of-file)|
|00001420| 29 20 66 6f 72 6d 20 33 | 20 66 69 6c 65 20 67 65 |) form 3| file ge|
|00001430| 74 2d 66 69 6c 65 2d 62 | 75 66 66 65 72 20 66 69 |t-file-b|uffer fi|
|00001440| 6c 65 2d 65 78 69 73 74 | 73 2d 70 20 79 2d 6f 72 |le-exist|s-p y-or|
|00001450| 2d 6e 2d 70 20 66 6f 72 | 6d 61 74 20 22 43 61 6e |-n-p for|mat "Can|
|00001460| 27 74 20 66 69 6e 64 20 | 6c 69 62 72 61 72 79 20 |'t find |library |
|00001470| 60 25 73 27 3b 20 72 65 | 6d 6f 76 65 20 69 74 73 |`%s'; re|move its|
|00001480| 20 61 75 74 6f 6c 6f 61 | 64 73 3f 20 22 20 32 20 | autoloa|ds? " 2 |
|00001490| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 c3 |(byte-co|de "....|
|000014a0| 5c 66 38 5c 22 c5 89 c6 | 24 87 22 20 5b 72 65 61 |\f8\"...|$." [rea|
|000014b0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 6f 72 6d |d-file-n|ame form|
|000014c0| 61 74 20 22 46 69 6e 64 | 20 60 25 73 27 20 6c 6f |at "Find| `%s' lo|
|000014d0| 61 64 20 66 69 6c 65 3a | 20 22 20 32 20 66 6f 72 |ad file:| " 2 for|
|000014e0| 6d 20 6e 69 6c 20 74 5d | 20 35 29 20 28 28 71 75 |m nil t]| 5) ((qu|
|000014f0| 69 74 29 29 20 30 20 62 | 65 67 69 6e 20 67 65 6e |it)) 0 b|egin gen|
|00001500| 65 72 61 74 65 2d 61 75 | 74 6f 6c 6f 61 64 2d 73 |erate-au|toload-s|
|00001510| 65 63 74 69 6f 6e 2d 74 | 72 61 69 6c 65 72 20 67 |ection-t|railer g|
|00001520| 65 6e 65 72 61 74 65 2d | 66 69 6c 65 2d 61 75 74 |enerate-|file-aut|
|00001530| 6f 6c 6f 61 64 73 5d 20 | 36 20 22 5c 0a 55 70 64 |oloads] |6 "\.Upd|
|00001540| 61 74 65 20 73 65 63 74 | 69 6f 6e 73 20 6f 66 20 |ate sect|ions of |
|00001550| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00001560| 65 72 20 67 65 6e 65 72 | 61 74 65 64 20 62 79 20 |er gener|ated by |
|00001570| 5c 5c 5b 75 70 64 61 74 | 65 2d 66 69 6c 65 2d 61 |\\[updat|e-file-a|
|00001580| 75 74 6f 6c 6f 61 64 73 | 5d 2e 22 20 6e 69 6c 5d |utoloads|]." nil]|
|00001590| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 70 64 |).(defal|ias 'upd|
|000015a0| 61 74 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 61 75 |ate-dire|ctory-au|
|000015b0| 74 6f 6c 6f 61 64 73 20 | 23 5b 28 64 69 72 29 20 |toloads |#[(dir) |
|000015c0| 22 c0 19 c2 c3 c4 0d c6 | c7 23 5c 22 88 29 74 85 |".......|.#\".)t.|
|000015d0| 1a 00 8a c8 0e 09 21 71 | 88 ca 20 29 87 22 20 5b |......!q|.. )." [|
|000015e0| 6e 69 6c 20 65 6e 61 62 | 6c 65 2d 6c 6f 63 61 6c |nil enab|le-local|
|000015f0| 2d 65 76 61 6c 20 6d 61 | 70 63 61 72 20 75 70 64 |-eval ma|pcar upd|
|00001600| 61 74 65 2d 66 69 6c 65 | 2d 61 75 74 6f 6c 6f 61 |ate-file|-autoloa|
|00001610| 64 73 20 64 69 72 65 63 | 74 6f 72 79 2d 66 69 6c |ds direc|tory-fil|
|00001620| 65 73 20 64 69 72 20 74 | 20 22 5e 5b 5e 3d 5d 2e |es dir t| "^[^=].|
|00001630| 2a 5c 5c 2e 65 6c 24 22 | 20 66 69 6e 64 2d 66 69 |*\\.el$"| find-fi|
|00001640| 6c 65 2d 6e 6f 73 65 6c | 65 63 74 20 67 65 6e 65 |le-nosel|ect gene|
|00001650| 72 61 74 65 64 2d 61 75 | 74 6f 6c 6f 61 64 2d 66 |rated-au|toload-f|
|00001660| 69 6c 65 20 73 61 76 65 | 2d 62 75 66 66 65 72 5d |ile save|-buffer]|
|00001670| 20 36 20 22 5c 0a 52 75 | 6e 20 5c 5c 5b 75 70 64 | 6 "\.Ru|n \\[upd|
|00001680| 61 74 65 2d 66 69 6c 65 | 2d 61 75 74 6f 6c 6f 61 |ate-file|-autoloa|
|00001690| 64 73 5d 20 6f 6e 20 65 | 61 63 68 20 2e 65 6c 20 |ds] on e|ach .el |
|000016a0| 66 69 6c 65 20 69 6e 20 | 44 49 52 2e 22 20 22 44 |file in |DIR." "D|
|000016b0| 55 70 64 61 74 65 20 61 | 75 74 6f 6c 6f 61 64 73 |Update a|utoloads|
|000016c0| 20 66 6f 72 20 64 69 72 | 65 63 74 6f 72 79 3a 20 | for dir|ectory: |
|000016d0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |"]).(def|alias 'b|
|000016e0| 61 74 63 68 2d 75 70 64 | 61 74 65 2d 61 75 74 6f |atch-upd|ate-auto|
|000016f0| 6c 6f 61 64 73 20 23 5b | 6e 69 6c 20 22 08 84 08 |loads #[|nil "...|
|00001700| 00 c1 c2 21 88 c3 5c 66 | c3 1d 1e 06 1e 07 c8 c9 |...!..\f|........|
|00001710| 0e 5c 6e 5c 22 88 cb 1e | 5c 66 0e 06 83 59 00 cd |.\n\"...|\f...Y..|
|00001720| ce 0e 06 40 21 21 83 49 | 00 cf 0e 06 40 d0 d1 23 |...@!!.I|....@..#|
|00001730| 89 1e 12 83 45 00 0e 5c | 66 0e 12 40 21 88 0e 12 |....E..\|f..@!...|
|00001740| 41 89 16 12 84 35 00 29 | 82 50 00 0e 5c 66 0e 06 |A....5.)|.P..\f..|
|00001750| 40 21 88 0e 06 41 89 16 | 06 84 1e 00 29 d3 d0 21 |@!...A..|....)..!|
|00001760| 88 c8 d4 21 88 d5 0e 07 | 83 6c 00 d6 82 6d 00 d7 |...!....|.l...m..|
|00001770| 21 2b 87 22 20 5b 6e 6f | 6e 69 6e 74 65 72 61 63 |!+." [no|ninterac|
|00001780| 74 69 76 65 20 65 72 72 | 6f 72 20 22 62 61 74 63 |tive err|or "batc|
|00001790| 68 2d 75 70 64 61 74 65 | 2d 61 75 74 6f 6c 6f 61 |h-update|-autoloa|
|000017a0| 64 73 20 69 73 20 74 6f | 20 62 65 20 75 73 65 64 |ds is to| be used|
|000017b0| 20 6f 6e 6c 79 20 77 69 | 74 68 20 2d 62 61 74 63 | only wi|th -batc|
|000017c0| 68 22 20 6e 69 6c 20 63 | 6f 6d 6d 61 6e 64 2d 6c |h" nil c|ommand-l|
|000017d0| 69 6e 65 2d 61 72 67 73 | 2d 6c 65 66 74 20 65 6e |ine-args|-left en|
|000017e0| 61 62 6c 65 2d 6c 6f 63 | 61 6c 2d 65 76 61 6c 20 |able-loc|al-eval |
|000017f0| 61 72 67 73 20 6c 6f 73 | 74 20 6d 65 73 73 61 67 |args los|t messag|
|00001800| 65 20 22 55 70 64 61 74 | 69 6e 67 20 61 75 74 6f |e "Updat|ing auto|
|00001810| 6c 6f 61 64 73 20 69 6e | 20 25 73 2e 2e 2e 22 20 |loads in| %s..." |
|00001820| 67 65 6e 65 72 61 74 65 | 64 2d 61 75 74 6f 6c 6f |generate|d-autolo|
|00001830| 61 64 2d 66 69 6c 65 20 | 23 5b 28 66 69 6c 65 29 |ad-file |#[(file)|
|00001840| 20 22 c0 c1 c2 8f 87 22 | 20 5b 6c 6f 73 73 61 67 | "....."| [lossag|
|00001850| 65 20 28 75 70 64 61 74 | 65 2d 66 69 6c 65 2d 61 |e (updat|e-file-a|
|00001860| 75 74 6f 6c 6f 61 64 73 | 20 66 69 6c 65 29 20 28 |utoloads| file) (|
|00001870| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|00001880| 65 20 22 c0 c1 21 88 c0 | 5c 6e 21 88 c0 c3 21 88 |e "..!..|\n!...!.|
|00001890| c4 c5 21 83 1b 00 c5 0e | 06 c7 5c 22 88 82 20 00 |..!.....|..\".. .|
|000018a0| c8 0e 06 21 88 c0 c9 21 | 88 ca 89 16 0b 87 22 20 |...!...!|......" |
|000018b0| 5b 70 72 69 6e 63 20 22 | 3e 3e 45 72 72 6f 72 20 |[princ "|>>Error |
|000018c0| 70 72 6f 63 65 73 73 69 | 6e 67 20 22 20 66 69 6c |processi|ng " fil|
|000018d0| 65 20 22 3a 20 22 20 66 | 62 6f 75 6e 64 70 20 64 |e ": " f|boundp d|
|000018e0| 69 73 70 6c 61 79 2d 65 | 72 72 6f 72 20 6c 6f 73 |isplay-e|rror los|
|000018f0| 73 61 67 65 20 6e 69 6c | 20 70 72 69 6e 31 20 22 |sage nil| prin1 "|
|00001900| 5c 6e 22 20 74 20 6c 6f | 73 74 5d 20 33 29 29 29 |\n" t lo|st] 3)))|
|00001910| 5d 20 33 5d 20 66 72 6f | 62 20 66 69 6c 65 2d 64 |] 3] fro|b file-d|
|00001920| 69 72 65 63 74 6f 72 79 | 2d 70 20 65 78 70 61 6e |irectory|-p expan|
|00001930| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 64 69 72 65 |d-file-n|ame dire|
|00001940| 63 74 6f 72 79 2d 66 69 | 6c 65 73 20 74 20 22 5c |ctory-fi|les t "\|
|00001950| 5c 2e 65 6c 24 22 20 72 | 65 73 74 20 73 61 76 65 |\.el$" r|est save|
|00001960| 2d 73 6f 6d 65 2d 62 75 | 66 66 65 72 73 20 22 44 |-some-bu|ffers "D|
|00001970| 6f 6e 65 22 20 6b 69 6c | 6c 2d 65 6d 61 63 73 20 |one" kil|l-emacs |
|00001980| 31 20 30 5d 20 35 20 22 | 5c 0a 55 70 64 61 74 65 |1 0] 5 "|\.Update|
|00001990| 20 74 68 65 20 61 75 74 | 6f 6c 6f 61 64 73 20 66 | the aut|oloads f|
|000019a0| 6f 72 20 74 68 65 20 66 | 69 6c 65 73 20 6f 72 20 |or the f|iles or |
|000019b0| 64 69 72 65 63 74 6f 72 | 69 65 73 20 6f 6e 20 74 |director|ies on t|
|000019c0| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 6c 69 6e 65 2e |he comma|nd line.|
|000019d0| 0a 52 75 6e 73 20 5c 5c | 5b 75 70 64 61 74 65 2d |.Runs \\|[update-|
|000019e0| 66 69 6c 65 2d 61 75 74 | 6f 6c 6f 61 64 73 5d 20 |file-aut|oloads] |
|000019f0| 6f 6e 20 66 69 6c 65 73 | 20 61 6e 64 20 5c 5c 5b |on files| and \\[|
|00001a00| 75 70 64 61 74 65 2d 64 | 69 72 65 63 74 6f 72 79 |update-d|irectory|
|00001a10| 2d 61 75 74 6f 6c 6f 61 | 64 73 5d 0a 6f 6e 20 64 |-autoloa|ds].on d|
|00001a20| 69 72 65 63 74 6f 72 69 | 65 73 2e 20 20 4d 75 73 |irectori|es.  Mus|
|00001a30| 74 20 62 65 20 75 73 65 | 64 20 6f 6e 6c 79 20 77 |t be use|d only w|
|00001a40| 69 74 68 20 2d 62 61 74 | 63 68 2c 20 61 6e 64 20 |ith -bat|ch, and |
|00001a50| 6b 69 6c 6c 73 20 45 6d | 61 63 73 20 6f 6e 20 63 |kills Em|acs on c|
|00001a60| 6f 6d 70 6c 65 74 69 6f | 6e 2e 0a 45 61 63 68 20 |ompletio|n..Each |
|00001a70| 66 69 6c 65 20 77 69 6c | 6c 20 62 65 20 70 72 6f |file wil|l be pro|
|00001a80| 63 65 73 73 65 64 20 65 | 76 65 6e 20 69 66 20 61 |cessed e|ven if a|
|00001a90| 6e 20 65 72 72 6f 72 20 | 6f 63 63 75 72 72 65 64 |n error |occurred|
|00001aa0| 20 70 72 65 76 69 6f 75 | 73 6c 79 2e 0a 46 6f 72 | previou|sly..For|
|00001ab0| 20 65 78 61 6d 70 6c 65 | 2c 20 69 6e 76 6f 6b 65 | example|, invoke|
|00001ac0| 20 60 65 6d 61 63 73 20 | 2d 62 61 74 63 68 20 2d | `emacs |-batch -|
|00001ad0| 66 20 62 61 74 63 68 2d | 75 70 64 61 74 65 2d 61 |f batch-|update-a|
|00001ae0| 75 74 6f 6c 6f 61 64 73 | 20 2a 2e 65 6c 27 2e 22 |utoloads| *.el'."|
|00001af0| 5d 29 0a 28 70 72 6f 76 | 69 64 65 20 28 71 75 6f |]).(prov|ide (quo|
|00001b00| 74 65 20 61 75 74 6f 6c | 6f 61 64 29 29 0a       |te autol|oad)).  |
+--------+-------------------------+-------------------------+--------+--------+