/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / lisp-mnt.elc.z / lisp-mnt.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 31 3a 30 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:07 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 6c 69 73 70 2d 6d | 6e 74 2e 65 6c 0a 3b 3b |s/lisp-m|nt.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 6c 69 73 70 2d |  (error| "`lisp-|
|000001f0| 6d 6e 74 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |mnt.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c0 c2 | 21 87 22 20 5b 72 65 71 | "..!...|!." [req|
|00000270| 75 69 72 65 20 70 69 63 | 74 75 72 65 20 65 6d 61 |uire pic|ture ema|
|00000280| 63 73 62 75 67 5d 20 32 | 29 0a 23 40 33 33 38 20 |csbug] 2|).#@338 |
|00000290| 50 72 65 66 69 78 20 74 | 68 61 74 20 69 73 20 69 |Prefix t|hat is i|
|000002a0| 67 6e 6f 72 65 64 20 62 | 65 66 6f 72 65 20 74 68 |gnored b|efore th|
|000002b0| 65 20 74 61 67 2e 0a 46 | 6f 72 20 65 78 61 6d 70 |e tag..F|or examp|
|000002c0| 6c 65 2c 20 79 6f 75 20 | 63 61 6e 20 77 72 69 74 |le, you |can writ|
|000002d0| 65 20 74 68 65 20 31 73 | 74 20 6c 69 6e 65 20 73 |e the 1s|t line s|
|000002e0| 79 6e 6f 70 73 69 73 20 | 73 74 72 69 6e 67 20 61 |ynopsis |string a|
|000002f0| 6e 64 20 68 65 61 64 65 | 72 73 20 6c 69 6b 65 20 |nd heade|rs like |
|00000300| 74 68 69 73 0a 69 6e 20 | 79 6f 75 72 20 4c 69 73 |this.in |your Lis|
|00000310| 70 20 70 61 63 6b 61 67 | 65 3a 0a 0a 20 20 20 3b |p packag|e:..   ;|
|00000320| 3b 20 40 28 23 29 20 70 | 61 63 6b 61 67 65 2e 65 |; @(#) p|ackage.e|
|00000330| 6c 20 2d 2d 20 70 61 63 | 61 6b 67 65 20 64 65 73 |l -- pac|akge des|
|00000340| 63 72 69 70 74 69 6f 6e | 0a 20 20 20 3b 3b 0a 20 |cription|.   ;;. |
|00000350| 20 20 3b 3b 20 40 28 23 | 29 20 24 4d 61 69 6e 74 |  ;; @(#|) $Maint|
|00000360| 61 69 6e 65 72 3a 20 20 | 20 50 65 72 73 6f 6e 20 |ainer:  | Person |
|00000370| 46 6f 6f 20 42 61 72 20 | 24 0a 0a 54 68 65 20 40 |Foo Bar |$..The @|
|00000380| 28 23 29 20 63 6f 6e 73 | 74 72 75 63 74 20 69 73 |(#) cons|truct is|
|00000390| 20 75 73 65 64 20 62 79 | 20 75 6e 69 78 20 77 68 | used by| unix wh|
|000003a0| 61 74 28 31 29 20 61 6e | 64 0a 74 68 65 6e 20 24 |at(1) an|d.then $|
|000003b0| 69 64 65 6e 74 69 66 69 | 65 72 3a 20 64 6f 63 20 |identifi|er: doc |
|000003c0| 73 74 72 69 6e 67 20 24 | 20 69 73 20 75 73 65 64 |string $| is used|
|000003d0| 20 62 79 20 47 4e 55 20 | 69 64 65 6e 74 28 31 29 | by GNU |ident(1)|
|000003e0| 1f 0a 28 64 65 66 76 61 | 72 20 6c 6d 2d 68 65 61 |..(defva|r lm-hea|
|000003f0| 64 65 72 2d 70 72 65 66 | 69 78 20 22 5e 3b 3b 2a |der-pref|ix "^;;*|
|00000400| 5b 20 09 5d 2b 5c 5c 28 | 40 28 23 29 5c 5c 29 3f |[ .]+\\(|@(#)\\)?|
|00000410| 5b 20 09 5d 2a 5c 5c 28 | 5b 24 5d 5c 5c 29 3f 22 |[ .]*\\(|[$]\\)?"|
|00000420| 20 28 23 24 20 2e 20 36 | 35 36 29 29 0a 23 40 34 | (#$ . 6|56)).#@4|
|00000430| 33 20 43 6f 6c 75 6d 6e | 20 75 73 65 64 20 66 6f |3 Column| used fo|
|00000440| 72 20 70 6c 61 63 69 6e | 67 20 66 6f 72 6d 61 74 |r placin|g format|
|00000450| 74 65 64 20 6f 75 74 70 | 75 74 2e 1f 0a 28 64 65 |ted outp|ut...(de|
|00000460| 66 76 61 72 20 6c 6d 2d | 63 6f 6d 6d 65 6e 74 2d |fvar lm-|comment-|
|00000470| 63 6f 6c 75 6d 6e 20 31 | 36 20 28 23 24 20 2e 20 |column 1|6 (#$ . |
|00000480| 31 30 37 34 29 29 0a 23 | 40 35 34 20 52 65 67 65 |1074)).#|@54 Rege|
|00000490| 78 70 20 77 68 69 63 68 | 20 6d 61 74 63 68 65 73 |xp which| matches|
|000004a0| 20 73 74 61 72 74 20 6f | 66 20 64 6f 63 75 6d 65 | start o|f docume|
|000004b0| 6e 74 61 74 69 6f 6e 20 | 73 65 63 74 69 6f 6e 2e |ntation |section.|
|000004c0| 1f 0a 28 64 65 66 76 61 | 72 20 6c 6d 2d 63 6f 6d |..(defva|r lm-com|
|000004d0| 6d 65 6e 74 61 72 79 2d | 68 65 61 64 65 72 20 22 |mentary-|header "|
|000004e0| 43 6f 6d 6d 65 6e 74 61 | 72 79 5c 5c 7c 44 6f 63 |Commenta|ry\\|Doc|
|000004f0| 75 6d 65 6e 74 61 74 69 | 6f 6e 22 20 28 23 24 20 |umentati|on" (#$ |
|00000500| 2e 20 31 31 36 34 29 29 | 0a 23 40 35 33 20 52 65 |. 1164))|.#@53 Re|
|00000510| 67 65 78 70 20 77 68 69 | 63 68 20 6d 61 74 63 68 |gexp whi|ch match|
|00000520| 65 73 20 74 68 65 20 73 | 74 61 72 74 20 6f 66 20 |es the s|tart of |
|00000530| 63 6f 64 65 20 6c 6f 67 | 20 73 65 63 74 69 6f 6e |code log| section|
|00000540| 2e 1f 0a 28 64 65 66 76 | 61 72 20 6c 6d 2d 68 69 |...(defv|ar lm-hi|
|00000550| 73 74 6f 72 79 2d 68 65 | 61 64 65 72 20 22 43 68 |story-he|ader "Ch|
|00000560| 61 6e 67 65 20 4c 6f 67 | 5c 5c 7c 48 69 73 74 6f |ange Log|\\|Histo|
|00000570| 72 79 22 20 28 23 24 20 | 2e 20 31 32 39 34 29 29 |ry" (#$ |. 1294))|
|00000580| 0a 23 40 31 32 33 20 52 | 65 74 75 72 6e 73 20 72 |.#@123 R|eturns r|
|00000590| 65 67 65 78 70 20 66 6f | 72 20 6d 61 74 63 68 69 |egexp fo|r matchi|
|000005a0| 6e 67 20 48 45 41 44 45 | 52 2e 0a 49 66 20 63 61 |ng HEADE|R..If ca|
|000005b0| 6c 6c 65 64 20 77 69 74 | 68 20 6f 70 74 69 6f 6e |lled wit|h option|
|000005c0| 61 6c 20 4d 4f 44 45 20 | 61 6e 64 20 77 69 74 68 |al MODE |and with|
|000005d0| 20 76 61 6c 75 65 20 60 | 73 65 63 74 69 6f 6e 27 | value `|section'|
|000005e0| 2c 0a 72 65 74 75 72 6e | 20 73 65 63 74 69 6f 6e |,.return| section|
|000005f0| 20 72 65 67 65 78 70 20 | 69 6e 73 74 65 61 64 2e | regexp |instead.|
|00000600| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 6d 2d |..(defal|ias 'lm-|
|00000610| 67 65 74 2d 68 65 61 64 | 65 72 2d 72 65 20 23 5b |get-head|er-re #[|
|00000620| 28 68 65 61 64 65 72 20 | 26 6f 70 74 69 6f 6e 61 |(header |&optiona|
|00000630| 6c 20 6d 6f 64 65 29 20 | 22 08 c1 61 ab 85 c2 0b |l mode) |"..a....|
|00000640| c4 51 87 0d 0b c6 51 87 | 22 20 5b 6d 6f 64 65 20 |.Q....Q.|" [mode |
|00000650| 73 65 63 74 69 6f 6e 20 | 22 5e 3b 3b 3b 3b 2a 20 |section |"^;;;;* |
|00000660| 22 20 68 65 61 64 65 72 | 20 22 3a 5b 20 09 5d 2a |" header| ":[ .]*|
|00000670| 24 22 20 6c 6d 2d 68 65 | 61 64 65 72 2d 70 72 65 |$" lm-he|ader-pre|
|00000680| 66 69 78 20 22 3a 5b 20 | 09 5d 2a 22 5d 20 33 20 |fix ":[ |.]*"] 3 |
|00000690| 28 23 24 20 2e 20 31 34 | 31 35 29 5d 29 0a 28 62 |(#$ . 14|15)]).(b|
|000006a0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 73 ac |yte-code| "..N.s.|
|000006b0| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 87 22 20 5b |....\"..|...#." [|
|000006c0| 6c 6d 2d 67 65 74 2d 68 | 65 61 64 65 72 2d 72 65 |lm-get-h|eader-re|
|000006d0| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 20 | byte-op|timizer |
|000006e0| 28 6e 69 6c 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |(nil byt|e-compil|
|000006f0| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00000700| 20 65 72 72 6f 72 20 22 | 25 73 20 61 6c 72 65 61 | error "|%s alrea|
|00000710| 64 79 20 68 61 73 20 61 | 20 62 79 74 65 2d 6f 70 |dy has a| byte-op|
|00000720| 74 69 6d 69 7a 65 72 2c | 20 63 61 6e 27 74 20 6d |timizer,| can't m|
|00000730| 61 6b 65 20 69 74 20 69 | 6e 6c 69 6e 65 22 20 70 |ake it i|nline" p|
|00000740| 75 74 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ut byte-|compile-|
|00000750| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 5d 20 34 |inline-e|xpand] 4|
|00000760| 29 0a 23 40 35 32 20 52 | 65 74 75 72 6e 73 20 70 |).#@52 R|eturns p|
|00000770| 61 63 6b 61 67 65 20 6e | 61 6d 65 20 62 79 20 6c |ackage n|ame by l|
|00000780| 6f 6f 6b 69 6e 67 20 61 | 74 20 74 68 65 20 66 69 |ooking a|t the fi|
|00000790| 72 73 74 20 6c 69 6e 65 | 2e 1f 0a 28 64 65 66 61 |rst line|...(defa|
|000007a0| 6c 69 61 73 20 27 6c 6d | 2d 67 65 74 2d 70 61 63 |lias 'lm|-get-pac|
|000007b0| 6b 61 67 65 2d 6e 61 6d | 65 20 23 5b 6e 69 6c 20 |kage-nam|e #[nil |
|000007c0| 22 8a 65 62 88 c0 09 b0 | 01 21 ad 91 c2 95 62 88 |".eb....|.!....b.|
|000007d0| c0 c3 21 88 c4 95 ad 85 | c4 94 c4 95 7b 29 87 22 |..!.....|....{)."|
|000007e0| 20 5b 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 6c 6d 2d | [lookin|g-at lm-|
|000007f0| 68 65 61 64 65 72 2d 70 | 72 65 66 69 78 20 30 20 |header-p|refix 0 |
|00000800| 22 5c 5c 28 5b 5e 09 20 | 5d 2b 5c 5c 29 22 20 31 |"\\([^. |]+\\)" 1|
|00000810| 5d 20 32 20 28 23 24 20 | 2e 20 31 38 39 35 29 5d |] 2 (#$ |. 1895)]|
|00000820| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000830| 4e c2 73 ac 85 c3 c4 c0 | 5c 22 88 c5 c0 c1 c6 23 |N.s.....|\".....#|
|00000840| 87 22 20 5b 6c 6d 2d 67 | 65 74 2d 70 61 63 6b 61 |." [lm-g|et-packa|
|00000850| 67 65 2d 6e 61 6d 65 20 | 62 79 74 65 2d 6f 70 74 |ge-name |byte-opt|
|00000860| 69 6d 69 7a 65 72 20 28 | 6e 69 6c 20 62 79 74 65 |imizer (|nil byte|
|00000870| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00000880| 65 78 70 61 6e 64 29 20 | 65 72 72 6f 72 20 22 25 |expand) |error "%|
|00000890| 73 20 61 6c 72 65 61 64 | 79 20 68 61 73 20 61 20 |s alread|y has a |
|000008a0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 2c 20 |byte-opt|imizer, |
|000008b0| 63 61 6e 27 74 20 6d 61 | 6b 65 20 69 74 20 69 6e |can't ma|ke it in|
|000008c0| 6c 69 6e 65 22 20 70 75 | 74 20 62 79 74 65 2d 63 |line" pu|t byte-c|
|000008d0| 6f 6d 70 69 6c 65 2d 69 | 6e 6c 69 6e 65 2d 65 78 |ompile-i|nline-ex|
|000008e0| 70 61 6e 64 5d 20 34 29 | 0a 23 40 31 37 33 20 52 |pand] 4)|.#@173 R|
|000008f0| 65 74 75 72 6e 20 74 68 | 65 20 62 75 66 66 65 72 |eturn th|e buffer|
|00000900| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 61 20 67 | locatio|n of a g|
|00000910| 69 76 65 6e 20 73 65 63 | 74 69 6f 6e 20 73 74 61 |iven sec|tion sta|
|00000920| 72 74 20 6d 61 72 6b 65 | 72 2e 0a 54 68 65 20 48 |rt marke|r..The H|
|00000930| 45 41 44 45 52 20 69 73 | 20 74 68 65 20 73 65 63 |EADER is| the sec|
|00000940| 74 69 6f 6e 20 6d 61 72 | 6b 20 73 74 72 69 6e 67 |tion mar|k string|
|00000950| 20 74 6f 20 73 65 61 72 | 63 68 20 66 6f 72 2e 0a | to sear|ch for..|
|00000960| 49 66 20 41 46 54 45 52 | 20 69 73 20 6e 6f 6e 2d |If AFTER| is non-|
|00000970| 6e 69 6c 2c 20 72 65 74 | 75 72 6e 20 74 68 65 20 |nil, ret|urn the |
|00000980| 6c 6f 63 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |location| of the |
|00000990| 6e 65 78 74 20 6c 69 6e | 65 2e 1f 0a 28 64 65 66 |next lin|e...(def|
|000009a0| 61 6c 69 61 73 20 27 6c | 6d 2d 73 65 63 74 69 6f |alias 'l|m-sectio|
|000009b0| 6e 2d 6d 61 72 6b 20 23 | 5b 28 68 65 61 64 65 72 |n-mark #|[(header|
|000009c0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 61 66 74 65 72 | &option|al after|
|000009d0| 29 20 22 8a c0 19 65 62 | 88 c2 0b c4 1d 1b 0d c4 |) "...eb|........|
|000009e0| 61 ab 86 c6 0b c7 51 aa | 85 0e 08 0b c9 51 2a ca |a.....Q.|.....Q*.|
|000009f0| c0 23 ad 8b cb 79 88 0e | 0c ab 83 cd 79 88 60 2a |.#...y..|....y.`*|
|00000a00| 87 22 20 5b 74 20 63 61 | 73 65 2d 66 6f 6c 64 2d |." [t ca|se-fold-|
|00000a10| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|00000a20| 2d 66 6f 72 77 61 72 64 | 20 68 65 61 64 65 72 20 |-forward| header |
|00000a30| 73 65 63 74 69 6f 6e 20 | 6d 6f 64 65 20 22 5e 3b |section |mode "^;|
|00000a40| 3b 3b 3b 2a 20 22 20 22 | 3a 5b 20 09 5d 2a 24 22 |;;;* " "|:[ .]*$"|
|00000a50| 20 6c 6d 2d 68 65 61 64 | 65 72 2d 70 72 65 66 69 | lm-head|er-prefi|
|00000a60| 78 20 22 3a 5b 20 09 5d | 2a 22 20 6e 69 6c 20 30 |x ":[ .]|*" nil 0|
|00000a70| 20 61 66 74 65 72 20 31 | 5d 20 34 20 28 23 24 20 | after 1|] 4 (#$ |
|00000a80| 2e 20 32 32 38 37 29 5d | 29 0a 23 40 35 36 20 52 |. 2287)]|).#@56 R|
|00000a90| 65 74 75 72 6e 20 74 68 | 65 20 62 75 66 66 65 72 |eturn th|e buffer|
|00000aa0| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00000ab0| 20 60 43 6f 64 65 27 20 | 73 74 61 72 74 20 6d 61 | `Code' |start ma|
|00000ac0| 72 6b 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |rker...(|defalias|
|00000ad0| 20 27 6c 6d 2d 63 6f 64 | 65 2d 6d 61 72 6b 20 23 | 'lm-cod|e-mark #|
|00000ae0| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 6c 6d 2d |[nil "..|!." [lm-|
|00000af0| 73 65 63 74 69 6f 6e 2d | 6d 61 72 6b 20 22 43 6f |section-|mark "Co|
|00000b00| 64 65 22 5d 20 32 20 28 | 23 24 20 2e 20 32 37 30 |de"] 2 (|#$ . 270|
|00000b10| 33 29 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |3)]).(by|te-code |
|00000b20| 22 c0 c1 4e c2 73 ac 85 | c3 c4 c0 5c 22 88 c5 c0 |"..N.s..|...\"...|
|00000b30| c1 c6 23 87 22 20 5b 6c | 6d 2d 63 6f 64 65 2d 6d |..#." [l|m-code-m|
|00000b40| 61 72 6b 20 62 79 74 65 | 2d 6f 70 74 69 6d 69 7a |ark byte|-optimiz|
|00000b50| 65 72 20 28 6e 69 6c 20 | 62 79 74 65 2d 63 6f 6d |er (nil |byte-com|
|00000b60| 70 69 6c 65 2d 69 6e 6c | 69 6e 65 2d 65 78 70 61 |pile-inl|ine-expa|
|00000b70| 6e 64 29 20 65 72 72 6f | 72 20 22 25 73 20 61 6c |nd) erro|r "%s al|
|00000b80| 72 65 61 64 79 20 68 61 | 73 20 61 20 62 79 74 65 |ready ha|s a byte|
|00000b90| 2d 6f 70 74 69 6d 69 7a | 65 72 2c 20 63 61 6e 27 |-optimiz|er, can'|
|00000ba0| 74 20 6d 61 6b 65 20 69 | 74 20 69 6e 6c 69 6e 65 |t make i|t inline|
|00000bb0| 22 20 70 75 74 20 62 79 | 74 65 2d 63 6f 6d 70 69 |" put by|te-compi|
|00000bc0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000bd0| 5d 20 34 29 0a 23 40 36 | 32 20 52 65 74 75 72 6e |] 4).#@6|2 Return|
|00000be0| 20 74 68 65 20 62 75 66 | 66 65 72 20 6c 6f 63 61 | the buf|fer loca|
|00000bf0| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 60 43 6f 6d |tion of |the `Com|
|00000c00| 6d 65 6e 74 61 72 79 27 | 20 73 74 61 72 74 20 6d |mentary'| start m|
|00000c10| 61 72 6b 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |arker...|(defalia|
|00000c20| 73 20 27 6c 6d 2d 63 6f | 6d 6d 65 6e 74 61 72 79 |s 'lm-co|mmentary|
|00000c30| 2d 6d 61 72 6b 20 23 5b | 6e 69 6c 20 22 c0 09 21 |-mark #[|nil "..!|
|00000c40| 87 22 20 5b 6c 6d 2d 73 | 65 63 74 69 6f 6e 2d 6d |." [lm-s|ection-m|
|00000c50| 61 72 6b 20 6c 6d 2d 63 | 6f 6d 6d 65 6e 74 61 72 |ark lm-c|ommentar|
|00000c60| 79 2d 68 65 61 64 65 72 | 5d 20 32 20 28 23 24 20 |y-header|] 2 (#$ |
|00000c70| 2e 20 33 30 33 34 29 5d | 29 0a 28 62 79 74 65 2d |. 3034)]|).(byte-|
|00000c80| 63 6f 64 65 20 22 c0 c1 | 4e c2 73 ac 85 c3 c4 c0 |code "..|N.s.....|
|00000c90| 5c 22 88 c5 c0 c1 c6 23 | 87 22 20 5b 6c 6d 2d 63 |\".....#|." [lm-c|
|00000ca0| 6f 6d 6d 65 6e 74 61 72 | 79 2d 6d 61 72 6b 20 62 |ommentar|y-mark b|
|00000cb0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00000cc0| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00000cd0| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00000ce0| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00000cf0| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00000d00| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00000d10| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00000d20| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00000d30| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|00000d40| 23 40 35 39 20 52 65 74 | 75 72 6e 20 74 68 65 20 |#@59 Ret|urn the |
|00000d50| 62 75 66 66 65 72 20 6c | 6f 63 61 74 69 6f 6e 20 |buffer l|ocation |
|00000d60| 6f 66 20 74 68 65 20 60 | 48 69 73 74 6f 72 79 27 |of the `|History'|
|00000d70| 20 73 74 61 72 74 20 6d | 61 72 6b 65 72 2e 1f 0a | start m|arker...|
|00000d80| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6d 2d 68 69 |(defalia|s 'lm-hi|
|00000d90| 73 74 6f 72 79 2d 6d 61 | 72 6b 20 23 5b 6e 69 6c |story-ma|rk #[nil|
|00000da0| 20 22 c0 09 21 87 22 20 | 5b 6c 6d 2d 73 65 63 74 | "..!." |[lm-sect|
|00000db0| 69 6f 6e 2d 6d 61 72 6b | 20 6c 6d 2d 68 69 73 74 |ion-mark| lm-hist|
|00000dc0| 6f 72 79 2d 68 65 61 64 | 65 72 5d 20 32 20 28 23 |ory-head|er] 2 (#|
|00000dd0| 24 20 2e 20 33 33 39 37 | 29 5d 29 0a 28 62 79 74 |$ . 3397|)]).(byt|
|00000de0| 65 2d 63 6f 64 65 20 22 | c0 c1 4e c2 73 ac 85 c3 |e-code "|..N.s...|
|00000df0| c4 c0 5c 22 88 c5 c0 c1 | c6 23 87 22 20 5b 6c 6d |..\"....|.#." [lm|
|00000e00| 2d 68 69 73 74 6f 72 79 | 2d 6d 61 72 6b 20 62 79 |-history|-mark by|
|00000e10| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 20 28 6e 69 |te-optim|izer (ni|
|00000e20| 6c 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |l byte-c|ompile-i|
|00000e30| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 20 65 72 |nline-ex|pand) er|
|00000e40| 72 6f 72 20 22 25 73 20 | 61 6c 72 65 61 64 79 20 |ror "%s |already |
|00000e50| 68 61 73 20 61 20 62 79 | 74 65 2d 6f 70 74 69 6d |has a by|te-optim|
|00000e60| 69 7a 65 72 2c 20 63 61 | 6e 27 74 20 6d 61 6b 65 |izer, ca|n't make|
|00000e70| 20 69 74 20 69 6e 6c 69 | 6e 65 22 20 70 75 74 20 | it inli|ne" put |
|00000e80| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|00000e90| 69 6e 65 2d 65 78 70 61 | 6e 64 5d 20 34 29 0a 23 |ine-expa|nd] 4).#|
|00000ea0| 40 34 39 20 52 65 74 75 | 72 6e 20 74 68 65 20 63 |@49 Retu|rn the c|
|00000eb0| 6f 6e 74 65 6e 74 73 20 | 6f 66 20 74 68 65 20 68 |ontents |of the h|
|00000ec0| 65 61 64 65 72 20 6e 61 | 6d 65 64 20 48 45 41 44 |eader na|med HEAD|
|00000ed0| 45 52 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ER...(de|falias '|
|00000ee0| 6c 6d 2d 68 65 61 64 65 | 72 20 23 5b 28 68 65 61 |lm-heade|r #[(hea|
|00000ef0| 64 65 72 29 20 22 65 62 | 88 c0 19 c2 0b c4 1d 1b |der) "eb|........|
|00000f00| 0d c6 61 ab 86 c7 0b c8 | 51 aa 85 0e 09 0b ca 51 |..a.....|Q......Q|
|00000f10| 2a cb cc 21 c0 23 ad 8e | cd ce 21 ad 89 cf 95 ad |*..!.#..|..!.....|
|00000f20| 85 cf 94 cf 95 7b 29 87 | 22 20 5b 74 20 63 61 73 |.....{).|" [t cas|
|00000f30| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 72 65 |e-fold-s|earch re|
|00000f40| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000f50| 68 65 61 64 65 72 20 6e | 69 6c 20 6d 6f 64 65 20 |header n|il mode |
|00000f60| 73 65 63 74 69 6f 6e 20 | 22 5e 3b 3b 3b 3b 2a 20 |section |"^;;;;* |
|00000f70| 22 20 22 3a 5b 20 09 5d | 2a 24 22 20 6c 6d 2d 68 |" ":[ .]|*$" lm-h|
|00000f80| 65 61 64 65 72 2d 70 72 | 65 66 69 78 20 22 3a 5b |eader-pr|efix ":[|
|00000f90| 20 09 5d 2a 22 20 6c 6d | 2d 73 65 63 74 69 6f 6e | .]*" lm|-section|
|00000fa0| 2d 6d 61 72 6b 20 22 43 | 6f 64 65 22 20 6c 6f 6f |-mark "C|ode" loo|
|00000fb0| 6b 69 6e 67 2d 61 74 20 | 22 5c 5c 28 5b 5e 24 5c |king-at |"\\([^$\|
|00000fc0| 6e 5d 2b 5c 5c 29 22 20 | 31 5d 20 34 20 28 23 24 |n]+\\)" |1] 4 (#$|
|00000fd0| 20 2e 20 33 37 34 38 29 | 5d 29 0a 23 40 31 32 39 | . 3748)|]).#@129|
|00000fe0| 20 52 65 74 75 72 6e 20 | 74 68 65 20 63 6f 6e 74 | Return |the cont|
|00000ff0| 65 6e 74 73 20 6f 66 20 | 74 68 65 20 68 65 61 64 |ents of |the head|
|00001000| 65 72 20 6e 61 6d 65 64 | 20 48 45 41 44 45 52 2c |er named| HEADER,|
|00001010| 20 77 69 74 68 20 63 6f | 6e 74 69 6e 75 61 74 69 | with co|ntinuati|
|00001020| 6f 6e 20 6c 69 6e 65 73 | 2e 0a 54 68 65 20 72 65 |on lines|..The re|
|00001030| 74 75 72 6e 65 64 20 76 | 61 6c 75 65 20 69 73 20 |turned v|alue is |
|00001040| 61 20 6c 69 73 74 20 6f | 66 20 73 74 72 69 6e 67 |a list o|f string|
|00001050| 73 2c 20 6f 6e 65 20 70 | 65 72 20 6c 69 6e 65 2e |s, one p|er line.|
|00001060| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 6d 2d |..(defal|ias 'lm-|
|00001070| 68 65 61 64 65 72 2d 6d | 75 6c 74 69 6c 69 6e 65 |header-m|ultiline|
|00001080| 20 23 5b 28 68 65 61 64 | 65 72 29 20 22 8a 65 62 | #[(head|er) ".eb|
|00001090| 88 c0 09 21 89 1a ab a7 | 5c 6e 43 12 c3 79 88 c4 |...!....|\nC..y..|
|000010a0| 0d c6 50 21 ab 9a c7 95 | 62 88 c4 c8 21 ab 91 c3 |..P!....|b...!...|
|000010b0| 95 ab 8d c3 94 c3 95 7b | 5c 6e 42 12 c3 79 88 aa |.......{|\nB..y..|
|000010c0| 5f 5c 6e 2a 87 22 20 5b | 6c 6d 2d 68 65 61 64 65 |_\n*." [|lm-heade|
|000010d0| 72 20 68 65 61 64 65 72 | 20 72 65 73 20 31 20 6c |r header| res 1 l|
|000010e0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 6c 6d 2d 68 65 61 |ooking-a|t lm-hea|
|000010f0| 64 65 72 2d 70 72 65 66 | 69 78 20 22 5b 09 20 5d |der-pref|ix "[. ]|
|00001100| 2b 22 20 30 20 22 5c 5c | 28 2e 2a 5c 5c 29 22 5d |+" 0 "\\|(.*\\)"]|
|00001110| 20 34 20 28 23 24 20 2e | 20 34 30 36 35 29 5d 29 | 4 (#$ .| 4065)])|
|00001120| 0a 23 40 37 37 20 52 65 | 74 75 72 6e 20 74 68 65 |.#@77 Re|turn the|
|00001130| 20 6f 6e 65 2d 6c 69 6e | 65 20 73 75 6d 6d 61 72 | one-lin|e summar|
|00001140| 79 20 6f 66 20 66 69 6c | 65 20 46 49 4c 45 2c 20 |y of fil|e FILE, |
|00001150| 6f 72 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |or curre|nt buffe|
|00001160| 72 20 69 66 20 46 49 4c | 45 20 69 73 20 6e 69 6c |r if FIL|E is nil|
|00001170| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 6d |...(defa|lias 'lm|
|00001180| 2d 73 75 6d 6d 61 72 79 | 20 23 5b 28 26 6f 70 74 |-summary| #[(&opt|
|00001190| 69 6f 6e 61 6c 20 66 69 | 6c 65 29 20 22 8a 08 ab |ional fi|le) "...|
|000011a0| 84 c1 08 21 88 65 62 88 | c2 0b 21 ad 8e c4 95 62 |...!.eb.|..!....b|
|000011b0| 88 c2 c5 21 ad 85 c6 94 | c6 95 7b 08 ab 84 c7 70 |...!....|..{....p|
|000011c0| 21 88 29 87 22 20 5b 66 | 69 6c 65 20 66 69 6e 64 |!.)." [f|ile find|
|000011d0| 2d 66 69 6c 65 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-file lo|oking-at|
|000011e0| 20 6c 6d 2d 68 65 61 64 | 65 72 2d 70 72 65 66 69 | lm-head|er-prefi|
|000011f0| 78 20 30 20 22 5b 5e 20 | 5d 2b 5b 20 09 5d 2b 2d |x 0 "[^ |]+[ .]+-|
|00001200| 2d 2b 5b 20 09 5d 2b 5c | 5c 28 2e 2a 5c 5c 29 22 |-+[ .]+\|\(.*\\)"|
|00001210| 20 31 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 | 1 kill-|buffer] |
|00001220| 33 20 28 23 24 20 2e 20 | 34 33 39 30 29 5d 29 0a |3 (#$ . |4390)]).|
|00001230| 23 40 31 32 30 20 53 70 | 6c 69 74 20 75 70 20 61 |#@120 Sp|lit up a|
|00001240| 6e 20 65 6d 61 69 6c 20 | 61 64 64 72 65 73 73 20 |n email |address |
|00001250| 69 6e 74 6f 20 66 75 6c | 6c 20 6e 61 6d 65 20 61 |into ful|l name a|
|00001260| 6e 64 20 72 65 61 6c 20 | 65 6d 61 69 6c 20 61 64 |nd real |email ad|
|00001270| 64 72 65 73 73 2e 0a 54 | 68 65 20 76 61 6c 75 65 |dress..T|he value|
|00001280| 20 69 73 20 61 20 63 6f | 6e 73 20 6f 66 20 74 68 | is a co|ns of th|
|00001290| 65 20 66 6f 72 6d 20 28 | 46 55 4c 4c 4e 41 4d 45 |e form (|FULLNAME|
|000012a0| 20 2e 20 41 44 44 52 45 | 53 53 29 2e 1f 0a 28 64 | . ADDRE|SS)...(d|
|000012b0| 65 66 61 6c 69 61 73 20 | 27 6c 6d 2d 63 72 61 63 |efalias |'lm-crac|
|000012c0| 6b 2d 61 64 64 72 65 73 | 73 20 23 5b 28 78 29 20 |k-addres|s #[(x) |
|000012d0| 22 c0 c1 5c 6e 5c 22 ab | 8e 5c 6e c3 94 c3 95 4f |"..\n\".|.\n....O|
|000012e0| 5c 6e c4 94 c4 95 4f 42 | 87 c0 c5 5c 6e 5c 22 ab |\n....OB|...\n\".|
|000012f0| 8e 5c 6e c4 94 c4 95 4f | 5c 6e c3 94 c3 95 4f 42 |.\n....O|\n....OB|
|00001300| 87 c0 c6 5c 6e 5c 22 ab | 84 c7 5c 6e 42 87 5c 6e |...\n\".|..\nB.\n|
|00001310| c7 42 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |.B." [st|ring-mat|
|00001320| 63 68 20 22 5c 5c 28 2e | 2b 5c 5c 29 20 5b 28 3c |ch "\\(.|+\\) [(<|
|00001330| 5d 5c 5c 28 5c 5c 53 2d | 2b 40 5c 5c 53 2d 2b 5c |]\\(\\S-|+@\\S-+\|
|00001340| 5c 29 5b 3e 29 5d 22 20 | 78 20 31 20 32 20 22 5c |\)[>)]" |x 1 2 "\|
|00001350| 5c 28 5c 5c 53 2d 2b 40 | 5c 5c 53 2d 2b 5c 5c 29 |\(\\S-+@|\\S-+\\)|
|00001360| 20 5b 28 3c 5d 5c 5c 28 | 2e 2a 5c 5c 29 5b 3e 29 | [(<]\\(|.*\\)[>)|
|00001370| 5d 22 20 22 5c 5c 53 2d | 2b 40 5c 5c 53 2d 2b 22 |]" "\\S-|+@\\S-+"|
|00001380| 20 6e 69 6c 5d 20 34 20 | 28 23 24 20 2e 20 34 36 | nil] 4 |(#$ . 46|
|00001390| 36 32 29 5d 29 0a 23 40 | 31 36 33 20 52 65 74 75 |62)]).#@|163 Retu|
|000013a0| 72 6e 20 74 68 65 20 61 | 75 74 68 6f 72 20 6c 69 |rn the a|uthor li|
|000013b0| 73 74 20 6f 66 20 66 69 | 6c 65 20 46 49 4c 45 2c |st of fi|le FILE,|
|000013c0| 20 6f 72 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 | or curr|ent buff|
|000013d0| 65 72 20 69 66 20 46 49 | 4c 45 20 69 73 20 6e 69 |er if FI|LE is ni|
|000013e0| 6c 2e 0a 45 61 63 68 20 | 65 6c 65 6d 65 6e 74 20 |l..Each |element |
|000013f0| 6f 66 20 74 68 65 20 6c | 69 73 74 20 69 73 20 61 |of the l|ist is a|
|00001400| 20 63 6f 6e 73 3b 20 74 | 68 65 20 63 61 72 20 69 | cons; t|he car i|
|00001410| 73 20 74 68 65 20 66 75 | 6c 6c 20 6e 61 6d 65 2c |s the fu|ll name,|
|00001420| 0a 74 68 65 20 63 64 72 | 20 69 73 20 61 6e 20 65 |.the cdr| is an e|
|00001430| 6d 61 69 6c 20 61 64 64 | 72 65 73 73 2e 1f 0a 28 |mail add|ress...(|
|00001440| 64 65 66 61 6c 69 61 73 | 20 27 6c 6d 2d 61 75 74 |defalias| 'lm-aut|
|00001450| 68 6f 72 73 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |hors #[(|&optiona|
|00001460| 6c 20 66 69 6c 65 29 20 | 22 8a 08 ab 84 c1 08 21 |l file) |"......!|
|00001470| 88 c2 c3 21 1c c2 c5 21 | 1e 06 0c 1e 07 0e 06 ac |...!...!|........|
|00001480| 86 c8 c9 0c 5c 22 aa 9f | 0e 06 ab 9a 0e 07 ab 96 |....\"..|........|
|00001490| 0e 07 89 40 0e 06 40 42 | a0 88 0e 06 41 16 06 0e |...@..@B|....A...|
|000014a0| 07 41 16 07 aa 62 0c 08 | ab 84 ca 70 21 88 2c 87 |.A...b..|...p!.,.|
|000014b0| 22 20 5b 66 69 6c 65 20 | 66 69 6e 64 2d 66 69 6c |" [file |find-fil|
|000014c0| 65 20 6c 6d 2d 68 65 61 | 64 65 72 2d 6d 75 6c 74 |e lm-hea|der-mult|
|000014d0| 69 6c 69 6e 65 20 22 61 | 75 74 68 6f 72 22 20 61 |iline "a|uthor" a|
|000014e0| 75 74 68 6f 72 6c 69 73 | 74 20 22 45 2d 4d 41 49 |uthorlis|t "E-MAI|
|000014f0| 4c 22 20 65 6d 61 69 6c | 2d 6c 69 73 74 20 61 75 |L" email|-list au|
|00001500| 74 68 6f 72 73 20 6d 61 | 70 63 61 72 20 6c 6d 2d |thors ma|pcar lm-|
|00001510| 63 72 61 63 6b 2d 61 64 | 64 72 65 73 73 20 6b 69 |crack-ad|dress ki|
|00001520| 6c 6c 2d 62 75 66 66 65 | 72 5d 20 33 20 28 23 24 |ll-buffe|r] 3 (#$|
|00001530| 20 2e 20 35 30 32 30 29 | 5d 29 0a 23 40 31 31 39 | . 5020)|]).#@119|
|00001540| 20 52 65 74 75 72 6e 20 | 74 68 65 20 6d 61 69 6e | Return |the main|
|00001550| 74 61 69 6e 65 72 20 6f | 66 20 66 69 6c 65 20 46 |tainer o|f file F|
|00001560| 49 4c 45 2c 20 6f 72 20 | 63 75 72 72 65 6e 74 20 |ILE, or |current |
|00001570| 62 75 66 66 65 72 20 69 | 66 20 46 49 4c 45 20 69 |buffer i|f FILE i|
|00001580| 73 20 6e 69 6c 2e 0a 54 | 68 65 20 72 65 74 75 72 |s nil..T|he retur|
|00001590| 6e 20 76 61 6c 75 65 20 | 68 61 73 20 74 68 65 20 |n value |has the |
|000015a0| 66 6f 72 6d 20 28 4e 41 | 4d 45 20 2e 20 41 44 44 |form (NA|ME . ADD|
|000015b0| 52 45 53 53 29 2e 1f 0a | 28 64 65 66 61 6c 69 61 |RESS)...|(defalia|
|000015c0| 73 20 27 6c 6d 2d 6d 61 | 69 6e 74 61 69 6e 65 72 |s 'lm-ma|intainer|
|000015d0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 | #[(&opt|ional fi|
|000015e0| 6c 65 29 20 22 8a 08 ab | 84 c1 08 21 88 c2 c3 21 |le) "...|...!...!|
|000015f0| 89 1c ab 85 c5 0c 21 aa | 83 c6 20 40 29 08 ab 84 |......!.|.. @)...|
|00001600| c7 70 21 88 29 87 22 20 | 5b 66 69 6c 65 20 66 69 |.p!.)." |[file fi|
|00001610| 6e 64 2d 66 69 6c 65 20 | 6c 6d 2d 68 65 61 64 65 |nd-file |lm-heade|
|00001620| 72 20 22 6d 61 69 6e 74 | 61 69 6e 65 72 22 20 6d |r "maint|ainer" m|
|00001630| 61 69 6e 74 20 6c 6d 2d | 63 72 61 63 6b 2d 61 64 |aint lm-|crack-ad|
|00001640| 64 72 65 73 73 20 6c 6d | 2d 61 75 74 68 6f 72 73 |dress lm|-authors|
|00001650| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 5d 20 34 20 | kill-bu|ffer] 4 |
|00001660| 28 23 24 20 2e 20 35 34 | 34 31 29 5d 29 0a 23 40 |(#$ . 54|41)]).#@|
|00001670| 37 39 20 52 65 74 75 72 | 6e 20 74 68 65 20 63 72 |79 Retur|n the cr|
|00001680| 65 61 74 65 64 20 64 61 | 74 65 20 67 69 76 65 6e |eated da|te given|
|00001690| 20 69 6e 20 66 69 6c 65 | 20 46 49 4c 45 2c 20 6f | in file| FILE, o|
|000016a0| 72 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |r curren|t buffer|
|000016b0| 20 69 66 20 46 49 4c 45 | 20 69 73 20 6e 69 6c 2e | if FILE| is nil.|
|000016c0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 6d 2d |..(defal|ias 'lm-|
|000016d0| 63 72 65 61 74 69 6f 6e | 2d 64 61 74 65 20 23 5b |creation|-date #[|
|000016e0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 6c 65 29 |(&option|al file)|
|000016f0| 20 22 8a 08 ab 84 c1 08 | 21 88 c2 c3 21 ae 8f c2 | "......|!...!...|
|00001700| c4 21 89 1d ad 87 0d c6 | c7 c8 0d 5c 22 4f 29 08 |.!......|...\"O).|
|00001710| ab 84 c9 70 21 88 29 87 | 22 20 5b 66 69 6c 65 20 |...p!.).|" [file |
|00001720| 66 69 6e 64 2d 66 69 6c | 65 20 6c 6d 2d 68 65 61 |find-fil|e lm-hea|
|00001730| 64 65 72 20 22 63 72 65 | 61 74 65 64 22 20 22 4f |der "cre|ated" "O|
|00001740| 52 49 47 2d 44 41 54 45 | 22 20 64 61 74 65 2d 61 |RIG-DATE|" date-a|
|00001750| 6e 64 2d 74 69 6d 65 20 | 30 20 73 74 72 69 6e 67 |nd-time |0 string|
|00001760| 2d 6d 61 74 63 68 20 22 | 20 22 20 6b 69 6c 6c 2d |-match "| " kill-|
|00001770| 62 75 66 66 65 72 5d 20 | 36 20 28 23 24 20 2e 20 |buffer] |6 (#$ . |
|00001780| 35 37 34 37 29 5d 29 0a | 23 40 37 38 20 52 65 74 |5747)]).|#@78 Ret|
|00001790| 75 72 6e 20 74 68 65 20 | 6d 6f 64 69 66 79 2d 64 |urn the |modify-d|
|000017a0| 61 74 65 20 67 69 76 65 | 6e 20 69 6e 20 66 69 6c |ate give|n in fil|
|000017b0| 65 20 46 49 4c 45 2c 20 | 6f 72 20 63 75 72 72 65 |e FILE, |or curre|
|000017c0| 6e 74 20 62 75 66 66 65 | 72 20 69 66 20 46 49 4c |nt buffe|r if FIL|
|000017d0| 45 20 69 73 20 6e 69 6c | 2e 1f 0a 28 64 65 66 61 |E is nil|...(defa|
|000017e0| 6c 69 61 73 20 27 6c 6d | 2d 6c 61 73 74 2d 6d 6f |lias 'lm|-last-mo|
|000017f0| 64 69 66 69 65 64 2d 64 | 61 74 65 20 23 5b 28 26 |dified-d|ate #[(&|
|00001800| 6f 70 74 69 6f 6e 61 6c | 20 66 69 6c 65 29 20 22 |optional| file) "|
|00001810| 8a 08 ab 84 c1 08 21 88 | 65 62 88 c2 c3 c4 c5 21 |......!.|eb.....!|
|00001820| c6 23 ab 98 c7 c8 c9 94 | c9 95 7b ca cb 94 cb 95 |.#......|..{.....|
|00001830| 7b 21 cc 38 cd 94 cd 95 | 7b 24 aa 92 ce cf 21 89 |{!.8....|{$....!.|
|00001840| 1e 10 ad 89 0e 10 d1 d2 | d3 0e 10 5c 22 4f 29 08 |........|...\"O).|
|00001850| ab 84 d4 70 21 88 29 87 | 22 20 5b 66 69 6c 65 20 |...p!.).|" [file |
|00001860| 66 69 6e 64 2d 66 69 6c | 65 20 72 65 2d 73 65 61 |find-fil|e re-sea|
|00001870| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 5c 24 |rch-forw|ard "\\$|
|00001880| 49 64 3a 20 5b 5e 20 5d | 2b 20 5b 5e 20 5d 2b 20 |Id: [^ ]|+ [^ ]+ |
|00001890| 5c 5c 28 5b 5e 2f 5d 2b | 5c 5c 29 2f 5c 5c 28 5b |\\([^/]+|\\)/\\([|
|000018a0| 5e 2f 5d 2b 5c 5c 29 2f | 5c 5c 28 5b 5e 20 5d 2b |^/]+\\)/|\\([^ ]+|
|000018b0| 5c 5c 29 20 22 20 6c 6d | 2d 73 65 63 74 69 6f 6e |\\) " lm|-section|
|000018c0| 2d 6d 61 72 6b 20 22 43 | 6f 64 65 22 20 74 20 66 |-mark "C|ode" t f|
|000018d0| 6f 72 6d 61 74 20 22 25 | 73 20 25 73 20 25 73 22 |ormat "%|s %s %s"|
|000018e0| 20 33 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 | 3 strin|g-to-int|
|000018f0| 20 32 20 28 22 22 20 22 | 4a 61 6e 22 20 22 46 65 | 2 ("" "|Jan" "Fe|
|00001900| 62 22 20 22 4d 61 72 22 | 20 22 41 70 72 22 20 22 |b" "Mar"| "Apr" "|
|00001910| 4d 61 79 22 20 22 4a 75 | 6e 22 20 22 4a 75 6c 22 |May" "Ju|n" "Jul"|
|00001920| 20 22 41 75 67 22 20 22 | 53 65 70 22 20 22 4f 63 | "Aug" "|Sep" "Oc|
|00001930| 74 22 20 22 4e 6f 76 22 | 20 22 44 65 63 22 29 20 |t" "Nov"| "Dec") |
|00001940| 31 20 6c 6d 2d 68 65 61 | 64 65 72 20 22 4c 41 53 |1 lm-hea|der "LAS|
|00001950| 54 2d 4d 4f 44 22 20 64 | 61 74 65 2d 61 6e 64 2d |T-MOD" d|ate-and-|
|00001960| 74 69 6d 65 20 30 20 73 | 74 72 69 6e 67 2d 6d 61 |time 0 s|tring-ma|
|00001970| 74 63 68 20 22 20 22 20 | 6b 69 6c 6c 2d 62 75 66 |tch " " |kill-buf|
|00001980| 66 65 72 5d 20 37 20 28 | 23 24 20 2e 20 36 30 32 |fer] 7 (|#$ . 602|
|00001990| 39 29 5d 29 0a 23 40 31 | 33 37 20 52 65 74 75 72 |9)]).#@1|37 Retur|
|000019a0| 6e 20 74 68 65 20 76 65 | 72 73 69 6f 6e 20 6c 69 |n the ve|rsion li|
|000019b0| 73 74 65 64 20 69 6e 20 | 66 69 6c 65 20 46 49 4c |sted in |file FIL|
|000019c0| 45 2c 20 6f 72 20 63 75 | 72 72 65 6e 74 20 62 75 |E, or cu|rrent bu|
|000019d0| 66 66 65 72 20 69 66 20 | 46 49 4c 45 20 69 73 20 |ffer if |FILE is |
|000019e0| 6e 69 6c 2e 0a 54 68 69 | 73 20 63 61 6e 20 62 65 |nil..Thi|s can be|
|000019f0| 66 6f 75 6e 64 20 69 6e | 20 61 6e 20 52 43 53 20 |found in| an RCS |
|00001a00| 6f 72 20 53 43 43 53 20 | 68 65 61 64 65 72 20 74 |or SCCS |header t|
|00001a10| 6f 20 63 72 61 63 6b 20 | 69 74 20 6f 75 74 20 6f |o crack |it out o|
|00001a20| 66 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |f...(def|alias 'l|
|00001a30| 6d 2d 76 65 72 73 69 6f | 6e 20 23 5b 28 26 6f 70 |m-versio|n #[(&op|
|00001a40| 74 69 6f 6e 61 6c 20 66 | 69 6c 65 29 20 22 8a 08 |tional f|ile) "..|
|00001a50| ab 84 c1 08 21 88 c2 c3 | 21 ae b2 c4 c5 21 1e 06 |....!...|!....!..|
|00001a60| 65 62 88 c7 c8 0e 06 c9 | 23 ab 87 ca 94 ca 95 7b |eb......|#......{|
|00001a70| aa 9a c7 cb cc 21 cb cd | ce 20 21 21 cf 51 0e 06 |.....!..|. !!.Q..|
|00001a80| c9 23 ab 87 ca 94 ca 95 | 7b aa 81 d0 29 08 ab 84 |.#......|{...)...|
|00001a90| d1 70 21 88 29 87 22 20 | 5b 66 69 6c 65 20 66 69 |.p!.)." |[file fi|
|00001aa0| 6e 64 2d 66 69 6c 65 20 | 6c 6d 2d 68 65 61 64 65 |nd-file |lm-heade|
|00001ab0| 72 20 22 76 65 72 73 69 | 6f 6e 22 20 6c 6d 2d 73 |r "versi|on" lm-s|
|00001ac0| 65 63 74 69 6f 6e 2d 6d | 61 72 6b 20 22 43 6f 64 |ection-m|ark "Cod|
|00001ad0| 65 22 20 68 65 61 64 65 | 72 2d 6d 61 78 20 72 65 |e" heade|r-max re|
|00001ae0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001af0| 22 5c 5c 24 49 64 3a 20 | 5b 5e 20 5d 2b 20 5c 5c |"\\$Id: |[^ ]+ \\|
|00001b00| 28 5b 5e 20 5d 2b 5c 5c | 29 20 22 20 74 20 31 20 |([^ ]+\\|) " t 1 |
|00001b10| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 22 40 28 |regexp-q|uote "@(|
|00001b20| 23 29 22 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |#)" file|-name-no|
|00001b30| 6e 64 69 72 65 63 74 6f | 72 79 20 62 75 66 66 65 |ndirecto|ry buffe|
|00001b40| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 09 5c 5c |r-file-n|ame ".\\|
|00001b50| 28 5b 30 31 32 33 34 35 | 36 37 39 2e 5d 2a 5c 5c |([012345|679.]*\\|
|00001b60| 29 22 20 6e 69 6c 20 6b | 69 6c 6c 2d 62 75 66 66 |)" nil k|ill-buff|
|00001b70| 65 72 5d 20 35 20 28 23 | 24 20 2e 20 36 35 35 35 |er] 5 (#|$ . 6555|
|00001b80| 29 5d 29 0a 23 40 37 35 | 20 52 65 74 75 72 6e 20 |)]).#@75| Return |
|00001b90| 74 68 65 20 6b 65 79 77 | 6f 72 64 73 20 67 69 76 |the keyw|ords giv|
|00001ba0| 65 6e 20 69 6e 20 66 69 | 6c 65 20 46 49 4c 45 2c |en in fi|le FILE,|
|00001bb0| 20 6f 72 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 | or curr|ent buff|
|00001bc0| 65 72 20 69 66 20 46 49 | 4c 45 20 69 73 20 6e 69 |er if FI|LE is ni|
|00001bd0| 6c 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6c |l...(def|alias 'l|
|00001be0| 6d 2d 6b 65 79 77 6f 72 | 64 73 20 23 5b 28 26 6f |m-keywor|ds #[(&o|
|00001bf0| 70 74 69 6f 6e 61 6c 20 | 66 69 6c 65 29 20 22 8a |ptional |file) ".|
|00001c00| 08 ab 84 c1 08 21 88 c2 | c3 21 89 1c ad 82 0c 97 |.....!..|.!......|
|00001c10| 29 08 ab 84 c5 70 21 88 | 29 87 22 20 5b 66 69 6c |)....p!.|)." [fil|
|00001c20| 65 20 66 69 6e 64 2d 66 | 69 6c 65 20 6c 6d 2d 68 |e find-f|ile lm-h|
|00001c30| 65 61 64 65 72 20 22 6b | 65 79 77 6f 72 64 73 22 |eader "k|eywords"|
|00001c40| 20 6b 65 79 77 6f 72 64 | 73 20 6b 69 6c 6c 2d 62 | keyword|s kill-b|
|00001c50| 75 66 66 65 72 5d 20 34 | 20 28 23 24 20 2e 20 37 |uffer] 4| (#$ . 7|
|00001c60| 30 34 39 29 5d 29 0a 23 | 40 31 35 34 20 52 65 74 |049)]).#|@154 Ret|
|00001c70| 75 72 6e 20 74 68 65 20 | 61 64 61 70 74 65 64 2d |urn the |adapted-|
|00001c80| 62 79 20 6e 61 6d 65 73 | 20 69 6e 20 66 69 6c 65 |by names| in file|
|00001c90| 20 46 49 4c 45 2c 20 6f | 72 20 63 75 72 72 65 6e | FILE, o|r curren|
|00001ca0| 74 20 62 75 66 66 65 72 | 20 69 66 20 46 49 4c 45 |t buffer| if FILE|
|00001cb0| 20 69 73 20 6e 69 6c 2e | 0a 54 68 69 73 20 69 73 | is nil.|.This is|
|00001cc0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00001cd0| 20 70 65 72 73 6f 6e 20 | 77 68 6f 20 63 6c 65 61 | person |who clea|
|00001ce0| 6e 65 64 20 75 70 20 74 | 68 69 73 20 70 61 63 6b |ned up t|his pack|
|00001cf0| 61 67 65 20 66 6f 72 0a | 64 69 73 74 72 69 62 75 |age for.|distribu|
|00001d00| 74 69 6f 6e 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |tion...(|defalias|
|00001d10| 20 27 6c 6d 2d 61 64 61 | 70 74 65 64 2d 62 79 20 | 'lm-ada|pted-by |
|00001d20| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 66 69 6c |#[(&opti|onal fil|
|00001d30| 65 29 20 22 8a 08 ab 84 | c1 08 21 88 c2 c3 21 08 |e) "....|..!...!.|
|00001d40| ab 84 c4 70 21 88 29 87 | 22 20 5b 66 69 6c 65 20 |...p!.).|" [file |
|00001d50| 66 69 6e 64 2d 66 69 6c | 65 20 6c 6d 2d 68 65 61 |find-fil|e lm-hea|
|00001d60| 64 65 72 20 22 61 64 61 | 70 74 65 64 2d 62 79 22 |der "ada|pted-by"|
|00001d70| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 5d 20 33 20 | kill-bu|ffer] 3 |
|00001d80| 28 23 24 20 2e 20 37 32 | 37 37 29 5d 29 0a 23 40 |(#$ . 72|77)]).#@|
|00001d90| 32 30 39 20 52 65 74 75 | 72 6e 20 74 68 65 20 63 |209 Retu|rn the c|
|00001da0| 6f 6d 6d 65 6e 74 61 72 | 79 20 69 6e 20 66 69 6c |ommentar|y in fil|
|00001db0| 65 20 46 49 4c 45 2c 20 | 6f 72 20 63 75 72 72 65 |e FILE, |or curre|
|00001dc0| 6e 74 20 62 75 66 66 65 | 72 20 69 66 20 46 49 4c |nt buffe|r if FIL|
|00001dd0| 45 20 69 73 20 6e 69 6c | 2e 0a 54 68 65 20 76 61 |E is nil|..The va|
|00001de0| 6c 75 65 20 69 73 20 72 | 65 74 75 72 6e 65 64 20 |lue is r|eturned |
|00001df0| 61 73 20 61 20 73 74 72 | 69 6e 67 2e 20 20 49 6e |as a str|ing.  In|
|00001e00| 20 74 68 65 20 74 65 78 | 74 2c 20 74 68 65 20 63 | the tex|t, the c|
|00001e10| 6f 6d 6d 65 6e 74 61 72 | 79 20 73 74 61 72 74 73 |ommentar|y starts|
|00001e20| 0a 77 69 74 68 20 74 61 | 67 20 60 43 6f 6d 6d 65 |.with ta|g `Comme|
|00001e30| 6e 74 61 72 79 27 20 61 | 6e 64 20 65 6e 64 73 20 |ntary' a|nd ends |
|00001e40| 77 69 74 68 20 74 61 67 | 20 60 43 68 61 6e 67 65 |with tag| `Change|
|00001e50| 20 4c 6f 67 27 20 6f 72 | 20 60 48 69 73 74 6f 72 | Log' or| `Histor|
|00001e60| 79 27 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |y'...(de|falias '|
|00001e70| 6c 6d 2d 63 6f 6d 6d 65 | 6e 74 61 72 79 20 23 5b |lm-comme|ntary #[|
|00001e80| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 6c 65 29 |(&option|al file)|
|00001e90| 20 22 8a 08 ab 84 c1 08 | 21 88 c2 0b 21 c2 0c 21 | "......|!...!..!|
|00001ea0| c2 c5 21 1e 06 1e 07 89 | 1e 08 ab 8b 0e 07 ab 87 |..!.....|........|
|00001eb0| 0e 08 0e 07 7b aa a7 0e | 08 ab 8b 0e 06 ab 87 0e |....{...|........|
|00001ec0| 08 0e 06 7b aa 98 c2 c9 | ca 5c 22 16 08 c2 cb 21 |...{....|.\"....!|
|00001ed0| 16 06 0e 08 ad 89 0e 0c | ad 85 0e 08 0e 06 7b 2b |........|......{+|
|00001ee0| 08 ab 84 cd 70 21 88 29 | 87 22 20 5b 66 69 6c 65 |....p!.)|." [file|
|00001ef0| 20 66 69 6e 64 2d 66 69 | 6c 65 20 6c 6d 2d 73 65 | find-fi|le lm-se|
|00001f00| 63 74 69 6f 6e 2d 6d 61 | 72 6b 20 6c 6d 2d 63 6f |ction-ma|rk lm-co|
|00001f10| 6d 6d 65 6e 74 61 72 79 | 2d 68 65 61 64 65 72 20 |mmentary|-header |
|00001f20| 6c 6d 2d 68 69 73 74 6f | 72 79 2d 68 65 61 64 65 |lm-histo|ry-heade|
|00001f30| 72 20 22 43 6f 64 65 22 | 20 63 6f 64 65 20 63 68 |r "Code"| code ch|
|00001f40| 61 6e 67 65 2d 6c 6f 67 | 20 63 6f 6d 6d 65 6e 74 |ange-log| comment|
|00001f50| 61 72 79 20 22 44 45 53 | 43 52 49 50 54 49 4f 4e |ary "DES|CRIPTION|
|00001f60| 22 20 74 20 22 44 45 53 | 43 52 49 50 2d 45 4e 44 |" t "DES|CRIP-END|
|00001f70| 22 20 65 6e 64 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |" end ki|ll-buffe|
|00001f80| 72 5d 20 35 20 28 23 24 | 20 2e 20 37 35 37 32 29 |r] 5 (#$| . 7572)|
|00001f90| 5d 29 0a 23 40 34 30 20 | 49 6e 73 65 72 74 20 6c |]).#@40 |Insert l|
|00001fa0| 69 73 74 20 6f 66 20 53 | 54 52 49 4e 47 53 2c 20 |ist of S|TRINGS, |
|00001fb0| 61 74 20 63 6f 6c 75 6d | 6e 20 43 4f 4c 2e 1f 0a |at colum|n COL...|
|00001fc0| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6d 2d 69 6e |(defalia|s 'lm-in|
|00001fd0| 73 65 72 74 2d 61 74 2d | 63 6f 6c 75 6d 6e 20 23 |sert-at-|column #|
|00001fe0| 5b 28 63 6f 6c 20 26 72 | 65 73 74 20 73 74 72 69 |[(col &r|est stri|
|00001ff0| 6e 67 73 29 20 22 69 08 | 56 ab 83 c1 63 88 c2 08 |ngs) "i.|V...c...|
|00002000| 21 88 c3 c4 0d 5c 22 87 | 22 20 5b 63 6f 6c 20 22 |!....\".|" [col "|
|00002010| 5c 6e 22 20 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |\n" move|-to-colu|
|00002020| 6d 6e 2d 66 6f 72 63 65 | 20 61 70 70 6c 79 20 69 |mn-force| apply i|
|00002030| 6e 73 65 72 74 20 73 74 | 72 69 6e 67 73 5d 20 33 |nsert st|rings] 3|
|00002040| 20 28 23 24 20 2e 20 38 | 30 38 38 29 5d 29 0a 23 | (#$ . 8|088)]).#|
|00002050| 40 31 36 31 20 43 68 65 | 63 6b 20 74 68 61 74 20 |@161 Che|ck that |
|00002060| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00002070| 65 72 20 28 6f 72 20 46 | 49 4c 45 20 69 66 20 67 |er (or F|ILE if g|
|00002080| 69 76 65 6e 29 20 69 73 | 20 69 6e 20 70 72 6f 70 |iven) is| in prop|
|00002090| 65 72 20 66 6f 72 6d 61 | 74 2e 0a 49 66 20 46 49 |er forma|t..If FI|
|000020a0| 4c 45 20 69 73 20 61 20 | 64 69 72 65 63 74 6f 72 |LE is a |director|
|000020b0| 79 2c 20 72 65 63 75 72 | 73 65 20 6f 6e 20 69 74 |y, recur|se on it|
|000020c0| 73 20 66 69 6c 65 73 20 | 61 6e 64 20 67 65 6e 65 |s files |and gene|
|000020d0| 72 61 74 65 20 61 20 72 | 65 70 6f 72 74 20 69 6e |rate a r|eport in|
|000020e0| 0a 61 20 74 65 6d 70 6f | 72 61 72 79 20 62 75 66 |.a tempo|rary buf|
|000020f0| 66 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |fer...(d|efalias |
|00002100| 27 6c 6d 2d 76 65 72 69 | 66 79 20 23 5b 28 26 6f |'lm-veri|fy #[(&o|
|00002110| 70 74 69 6f 6e 61 6c 20 | 66 69 6c 65 20 73 68 6f |ptional |file sho|
|00002120| 77 6f 6b 20 26 6f 70 74 | 69 6f 6e 61 6c 20 76 65 |wok &opt|ional ve|
|00002130| 72 62 29 20 22 08 ae 81 | 74 18 c1 1a c1 1b 08 ab |rb) "...|t.......|
|00002140| 82 c4 12 0d ab 98 c6 0d | 21 ab 93 c7 c8 c9 21 21 |........|!.....!!|
|00002150| 88 ca 20 88 cb cc cd 0d | 21 5c 22 12 82 ac 00 8a |.. .....|!\".....|
|00002160| 0d ab 84 ce 0d 21 88 8a | 65 62 88 cf 0e 10 b0 01 |.....!..|eb......|
|00002170| 21 ad 91 d1 95 62 88 cf | d2 21 88 d3 95 ad 85 d3 |!....b..|.!......|
|00002180| 94 d3 95 7b 29 89 13 ac | 83 d4 aa cd d5 20 ac 83 |...{)...|..... ..|
|00002190| d6 aa c6 d7 20 ac 83 d8 | aa bf d9 20 ac 83 da aa |.... ...|... ....|
|000021a0| b8 db 20 ac 83 dc aa b1 | dd 0e 1e 21 ac 83 df aa |.. .....|...!....|
|000021b0| a8 dd 0e 20 21 ac 83 e1 | aa 9f dd e2 21 ac 83 e3 |... !...|....!...|
|000021c0| aa 97 64 62 88 e4 e5 0b | e6 e7 0b b0 05 c1 e8 23 |..db....|.......#|
|000021d0| ac 86 e9 ea 0b 5c 22 aa | 81 5c 6e 0d ab 84 eb 70 |.....\".|.\n....p|
|000021e0| 21 88 12 29 08 ab 84 ec | 5c 6e 21 88 5c 6e 2b 87 |!..)....|\n!.\n+.|
|000021f0| 22 20 5b 76 65 72 62 20 | 6e 69 6c 20 72 65 74 20 |" [verb |nil ret |
|00002200| 6e 61 6d 65 20 22 4f 6b | 2e 22 20 66 69 6c 65 20 |name "Ok|." file |
|00002210| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|00002220| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00002230| 72 20 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 |r get-bu|ffer-cre|
|00002240| 61 74 65 20 22 2a 6c 6d | 2d 76 65 72 69 66 79 2a |ate "*lm|-verify*|
|00002250| 22 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 6d |" erase-|buffer m|
|00002260| 61 70 63 61 72 20 23 5b | 28 66 29 20 22 c0 c1 5c |apcar #[|(f) "..\|
|00002270| 6e 5c 22 ad a3 c3 5c 6e | 21 89 1c ab 8d 5c 6e c5 |n\"...\n|!....\n.|
|00002280| b1 02 88 c6 0e 07 0c c8 | 23 aa 8e 0e 09 ad 8a 5c |........|#......\|
|00002290| 6e c5 b1 02 88 c6 0e 07 | ca 5c 22 29 87 22 20 5b |n.......|.\")." [|
|000022a0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 2e 2a |string-m|atch ".*|
|000022b0| 5c 5c 2e 65 6c 24 22 20 | 66 20 6c 6d 2d 76 65 72 |\\.el$" |f lm-ver|
|000022c0| 69 66 79 20 73 74 61 74 | 75 73 20 22 3a 22 20 6c |ify stat|us ":" l|
|000022d0| 6d 2d 69 6e 73 65 72 74 | 2d 61 74 2d 63 6f 6c 75 |m-insert|-at-colu|
|000022e0| 6d 6e 20 6c 6d 2d 63 6f | 6d 6d 65 6e 74 2d 63 6f |mn lm-co|mment-co|
|000022f0| 6c 75 6d 6e 20 22 5c 6e | 22 20 73 68 6f 77 6f 6b |lumn "\n|" showok|
|00002300| 20 22 4f 4b 5c 6e 22 5d | 20 35 5d 20 64 69 72 65 | "OK\n"]| 5] dire|
|00002310| 63 74 6f 72 79 2d 66 69 | 6c 65 73 20 66 69 6e 64 |ctory-fi|les find|
|00002320| 2d 66 69 6c 65 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |-file lo|oking-at|
|00002330| 20 6c 6d 2d 68 65 61 64 | 65 72 2d 70 72 65 66 69 | lm-head|er-prefi|
|00002340| 78 20 30 20 22 5c 5c 28 | 5b 5e 09 20 5d 2b 5c 5c |x 0 "\\(|[^. ]+\\|
|00002350| 29 22 20 31 20 22 43 61 | 6e 27 74 20 66 69 6e 64 |)" 1 "Ca|n't find|
|00002360| 20 61 20 70 61 63 6b 61 | 67 65 20 4e 41 4d 45 22 | a packa|ge NAME"|
|00002370| 20 6c 6d 2d 61 75 74 68 | 6f 72 73 20 22 41 75 74 | lm-auth|ors "Aut|
|00002380| 68 6f 72 3a 20 74 61 67 | 20 6d 69 73 73 69 6e 67 |hor: tag| missing|
|00002390| 2e 22 20 6c 6d 2d 6d 61 | 69 6e 74 61 69 6e 65 72 |." lm-ma|intainer|
|000023a0| 20 22 4d 61 69 6e 74 61 | 69 6e 65 72 3a 20 74 61 | "Mainta|iner: ta|
|000023b0| 67 20 6d 69 73 73 69 6e | 67 2e 22 20 6c 6d 2d 73 |g missin|g." lm-s|
|000023c0| 75 6d 6d 61 72 79 20 22 | 43 61 6e 27 74 20 66 69 |ummary "|Can't fi|
|000023d0| 6e 64 20 61 20 6f 6e 65 | 2d 6c 69 6e 65 20 27 53 |nd a one|-line 'S|
|000023e0| 75 6d 6d 61 72 79 27 20 | 64 65 73 63 72 69 70 74 |ummary' |descript|
|000023f0| 69 6f 6e 22 20 6c 6d 2d | 6b 65 79 77 6f 72 64 73 |ion" lm-|keywords|
|00002400| 20 22 4b 65 79 77 6f 72 | 64 73 3a 20 74 61 67 20 | "Keywor|ds: tag |
|00002410| 6d 69 73 73 69 6e 67 2e | 22 20 6c 6d 2d 73 65 63 |missing.|" lm-sec|
|00002420| 74 69 6f 6e 2d 6d 61 72 | 6b 20 6c 6d 2d 63 6f 6d |tion-mar|k lm-com|
|00002430| 6d 65 6e 74 61 72 79 2d | 68 65 61 64 65 72 20 22 |mentary-|header "|
|00002440| 43 61 6e 27 74 20 66 69 | 6e 64 20 61 20 27 43 6f |Can't fi|nd a 'Co|
|00002450| 6d 6d 65 6e 74 61 72 79 | 27 20 73 65 63 74 69 6f |mmentary|' sectio|
|00002460| 6e 20 6d 61 72 6b 65 72 | 2e 22 20 6c 6d 2d 68 69 |n marker|." lm-hi|
|00002470| 73 74 6f 72 79 2d 68 65 | 61 64 65 72 20 22 43 61 |story-he|ader "Ca|
|00002480| 6e 27 74 20 66 69 6e 64 | 20 61 20 27 48 69 73 74 |n't find| a 'Hist|
|00002490| 6f 72 79 27 20 73 65 63 | 74 69 6f 6e 20 6d 61 72 |ory' sec|tion mar|
|000024a0| 6b 65 72 2e 22 20 22 43 | 6f 64 65 22 20 22 43 61 |ker." "C|ode" "Ca|
|000024b0| 6e 27 74 20 66 69 6e 64 | 20 61 20 27 43 6f 64 65 |n't find| a 'Code|
|000024c0| 27 20 73 65 63 74 69 6f | 6e 20 6d 61 72 6b 65 72 |' sectio|n marker|
|000024d0| 22 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |" re-sea|rch-back|
|000024e0| 77 61 72 64 20 22 5e 3b | 3b 3b 5b 20 09 5d 2b 22 |ward "^;|;;[ .]+"|
|000024f0| 20 22 5b 20 09 5d 2b 65 | 6e 64 73 20 68 65 72 65 | "[ .]+e|nds here|
|00002500| 5b 20 09 5d 2a 24 22 20 | 22 5c 5c 7c 5e 3b 3b 3b |[ .]*$" |"\\|^;;;|
|00002510| 5b 20 09 5d 2b 20 45 6e | 64 20 6f 66 20 66 69 6c |[ .]+ En|d of fil|
|00002520| 65 5b 20 09 5d 2b 22 20 | 74 20 66 6f 72 6d 61 74 |e[ .]+" |t format|
|00002530| 20 22 43 61 6e 27 74 20 | 66 69 6e 64 20 61 20 66 | "Can't |find a f|
|00002540| 6f 6f 74 65 72 20 6c 69 | 6e 65 20 66 6f 72 20 5b |ooter li|ne for [|
|00002550| 25 73 5d 22 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |%s]" kil|l-buffer|
|00002560| 20 6d 65 73 73 61 67 65 | 5d 20 37 20 28 23 24 20 | message|] 7 (#$ |
|00002570| 2e 20 38 32 37 37 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 8277) |nil]).#@|
|00002580| 32 36 33 20 47 65 6e 65 | 72 61 74 65 20 61 20 73 |263 Gene|rate a s|
|00002590| 79 6e 6f 70 73 69 73 20 | 6c 69 73 74 69 6e 67 20 |ynopsis |listing |
|000025a0| 66 6f 72 20 74 68 65 20 | 62 75 66 66 65 72 20 6f |for the |buffer o|
|000025b0| 72 20 74 68 65 20 67 69 | 76 65 6e 20 46 49 4c 45 |r the gi|ven FILE|
|000025c0| 20 69 66 20 67 69 76 65 | 6e 2e 0a 49 66 20 46 49 | if give|n..If FI|
|000025d0| 4c 45 20 69 73 20 61 20 | 64 69 72 65 63 74 6f 72 |LE is a |director|
|000025e0| 79 2c 20 72 65 63 75 72 | 73 65 20 6f 6e 20 69 74 |y, recur|se on it|
|000025f0| 73 20 66 69 6c 65 73 20 | 61 6e 64 20 67 65 6e 65 |s files |and gene|
|00002600| 72 61 74 65 20 61 20 72 | 65 70 6f 72 74 20 69 6e |rate a r|eport in|
|00002610| 0a 61 20 74 65 6d 70 6f | 72 61 72 79 20 62 75 66 |.a tempo|rary buf|
|00002620| 66 65 72 2e 20 20 49 66 | 20 53 48 4f 57 41 4c 4c |fer.  If| SHOWALL|
|00002630| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 61 6c 73 | is non-|nil, als|
|00002640| 6f 20 67 65 6e 65 72 61 | 74 65 20 61 20 6c 69 6e |o genera|te a lin|
|00002650| 65 20 66 6f 72 20 66 69 | 6c 65 73 0a 77 68 69 63 |e for fi|les.whic|
|00002660| 68 20 64 6f 20 6e 6f 74 | 20 69 6e 63 6c 75 64 65 |h do not| include|
|00002670| 20 61 20 72 65 63 6f 67 | 6e 69 7a 61 62 6c 65 20 | a recog|nizable |
|00002680| 73 79 6e 6f 70 73 69 73 | 2e 1f 0a 28 64 65 66 61 |synopsis|...(defa|
|00002690| 6c 69 61 73 20 27 6c 6d | 2d 73 79 6e 6f 70 73 69 |lias 'lm|-synopsi|
|000026a0| 73 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |s #[(&op|tional f|
|000026b0| 69 6c 65 20 73 68 6f 77 | 61 6c 6c 29 20 22 08 ab |ile show|all) "..|
|000026c0| 95 c1 08 21 ab 90 c2 c3 | c4 21 21 88 c5 20 88 c6 |...!....|.!!.. ..|
|000026d0| c7 c8 08 21 5c 22 87 8a | 08 ab 84 c9 08 21 88 ca |...!\"..|.....!..|
|000026e0| 20 08 ab 84 cb 70 21 88 | 29 87 22 20 5b 66 69 6c | ....p!.|)." [fil|
|000026f0| 65 20 66 69 6c 65 2d 64 | 69 72 65 63 74 6f 72 79 |e file-d|irectory|
|00002700| 2d 70 20 73 77 69 74 63 | 68 2d 74 6f 2d 62 75 66 |-p switc|h-to-buf|
|00002710| 66 65 72 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |fer get-|buffer-c|
|00002720| 72 65 61 74 65 20 22 2a | 6c 6d 2d 76 65 72 69 66 |reate "*|lm-verif|
|00002730| 79 2a 22 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |y*" eras|e-buffer|
|00002740| 20 6d 61 70 63 61 72 20 | 23 5b 28 66 29 20 22 c0 | mapcar |#[(f) ".|
|00002750| c1 5c 6e 5c 22 ad a3 c3 | 5c 6e 21 89 1c ab 8d 5c |.\n\"...|\n!....\|
|00002760| 6e c5 b1 02 88 c6 0e 07 | 0c c8 23 aa 8e 0e 09 ad |n.......|..#.....|
|00002770| 8a 5c 6e c5 b1 02 88 c6 | 0e 07 ca 5c 22 29 87 22 |.\n.....|...\")."|
|00002780| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00002790| 2e 2a 5c 5c 2e 65 6c 24 | 22 20 66 20 6c 6d 2d 73 |.*\\.el$|" f lm-s|
|000027a0| 79 6e 6f 70 73 69 73 20 | 73 79 6e 20 22 3a 22 20 |ynopsis |syn ":" |
|000027b0| 6c 6d 2d 69 6e 73 65 72 | 74 2d 61 74 2d 63 6f 6c |lm-inser|t-at-col|
|000027c0| 75 6d 6e 20 6c 6d 2d 63 | 6f 6d 6d 65 6e 74 2d 63 |umn lm-c|omment-c|
|000027d0| 6f 6c 75 6d 6e 20 22 5c | 6e 22 20 73 68 6f 77 61 |olumn "\|n" showa|
|000027e0| 6c 6c 20 22 4e 41 5c 6e | 22 5d 20 35 5d 20 64 69 |ll "NA\n|"] 5] di|
|000027f0| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 73 20 66 69 |rectory-|files fi|
|00002800| 6e 64 2d 66 69 6c 65 20 | 6c 6d 2d 73 75 6d 6d 61 |nd-file |lm-summa|
|00002810| 72 79 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |ry kill-|buffer] |
|00002820| 34 20 28 23 24 20 2e 20 | 39 36 30 34 29 20 28 6c |4 (#$ . |9604) (l|
|00002830| 69 73 74 20 28 72 65 61 | 64 2d 66 69 6c 65 2d 6e |ist (rea|d-file-n|
|00002840| 61 6d 65 20 22 53 79 6e | 6f 70 73 69 73 20 66 6f |ame "Syn|opsis fo|
|00002850| 72 20 28 66 69 6c 65 20 | 6f 72 20 64 69 72 29 3a |r (file |or dir):|
|00002860| 20 22 29 29 5d 29 0a 23 | 40 31 32 37 20 52 65 70 | "))]).#|@127 Rep|
|00002870| 6f 72 74 20 61 20 62 75 | 67 20 69 6e 20 74 68 65 |ort a bu|g in the|
|00002880| 20 70 61 63 6b 61 67 65 | 20 63 75 72 72 65 6e 74 | package| current|
|00002890| 6c 79 20 62 65 69 6e 67 | 20 76 69 73 69 74 65 64 |ly being| visited|
|000028a0| 20 74 6f 20 69 74 73 20 | 6d 61 69 6e 74 61 69 6e | to its |maintain|
|000028b0| 65 72 2e 0a 50 72 6f 6d | 70 74 73 20 66 6f 72 20 |er..Prom|pts for |
|000028c0| 62 75 67 20 73 75 62 6a | 65 63 74 2e 20 20 4c 65 |bug subj|ect.  Le|
|000028d0| 61 76 65 73 20 79 6f 75 | 20 69 6e 20 61 20 6d 61 |aves you| in a ma|
|000028e0| 69 6c 20 62 75 66 66 65 | 72 2e 1f 0a 28 64 65 66 |il buffe|r...(def|
|000028f0| 61 6c 69 61 73 20 27 6c | 6d 2d 72 65 70 6f 72 74 |alias 'l|m-report|
|00002900| 2d 62 75 67 20 23 5b 28 | 74 6f 70 69 63 29 20 22 |-bug #[(|topic) "|
|00002910| 8a 65 62 88 c0 09 b0 01 | 21 ad 91 c2 95 62 88 c0 |.eb.....|!....b..|
|00002920| c3 21 88 c4 95 ad 85 c4 | 94 c4 95 7b 29 c5 20 c6 |.!......|...{). .|
|00002930| 20 1e 07 1e 08 1e 09 ca | cb 0e 08 ab 8b 0e 08 40 | .......|.......@|
|00002940| cc 0e 08 41 cd 52 aa 82 | 0e 0e 0e 0f 23 88 64 62 |...A.R..|....#.db|
|00002950| 88 d0 0e 09 0e 07 ab 86 | d1 0e 07 50 aa 81 d2 d3 |........|...P....|
|00002960| b1 04 88 d4 d5 d6 21 21 | 2b 87 22 20 5b 6c 6f 6f |......!!|+." [loo|
|00002970| 6b 69 6e 67 2d 61 74 20 | 6c 6d 2d 68 65 61 64 65 |king-at |lm-heade|
|00002980| 72 2d 70 72 65 66 69 78 | 20 30 20 22 5c 5c 28 5b |r-prefix| 0 "\\([|
|00002990| 5e 09 20 5d 2b 5c 5c 29 | 22 20 31 20 6c 6d 2d 6d |^. ]+\\)|" 1 lm-m|
|000029a0| 61 69 6e 74 61 69 6e 65 | 72 20 6c 6d 2d 76 65 72 |aintaine|r lm-ver|
|000029b0| 73 69 6f 6e 20 76 65 72 | 73 69 6f 6e 20 61 64 64 |sion ver|sion add|
|000029c0| 72 20 70 61 63 6b 61 67 | 65 20 6d 61 69 6c 20 6e |r packag|e mail n|
|000029d0| 69 6c 20 22 20 3c 22 20 | 22 3e 22 20 62 75 67 2d |il " <" |">" bug-|
|000029e0| 67 6e 75 2d 65 6d 61 63 | 73 20 74 6f 70 69 63 20 |gnu-emac|s topic |
|000029f0| 22 5c 6e 49 6e 20 22 20 | 22 20 76 65 72 73 69 6f |"\nIn " |" versio|
|00002a00| 6e 20 22 20 22 22 20 22 | 5c 6e 5c 6e 22 20 6d 65 |n " "" "|\n\n" me|
|00002a10| 73 73 61 67 65 20 73 75 | 62 73 74 69 74 75 74 65 |ssage su|bstitute|
|00002a20| 2d 63 6f 6d 6d 61 6e 64 | 2d 6b 65 79 73 20 22 54 |-command|-keys "T|
|00002a30| 79 70 65 20 5c 5c 5b 6d | 61 69 6c 2d 73 65 6e 64 |ype \\[m|ail-send|
|00002a40| 5d 20 74 6f 20 73 65 6e | 64 20 62 75 67 20 72 65 |] to sen|d bug re|
|00002a50| 70 6f 72 74 2e 22 5d 20 | 36 20 28 23 24 20 2e 20 |port."] |6 (#$ . |
|00002a60| 31 30 33 34 39 29 20 22 | 73 42 75 67 20 53 75 62 |10349) "|sBug Sub|
|00002a70| 6a 65 63 74 3a 20 22 5d | 29 0a 28 70 72 6f 76 69 |ject: "]|).(provi|
|00002a80| 64 65 20 27 6c 69 73 70 | 2d 6d 6e 74 29 0a       |de 'lisp|-mnt).  |
+--------+-------------------------+-------------------------+--------+--------+