/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / lisp-mnt.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 33 3a 32 37 3a 31 | 32 20 31 39 39 33 0a 3b | 23:27:1|2 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 6c 69 73 | 70 2d 6d 6e 74 2e 65 6c |lisp/lis|p-mnt.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 35 | 2e 31 36 2e 0a 3b 3b 3b |on 19.15|.16..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 |  (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|000001d0| 21 88 c0 c2 21 88 c3 c4 | c5 5c 22 88 c3 c6 c7 5c |!...!...|.\"....\|
|000001e0| 22 88 c3 c8 c9 5c 22 88 | c3 ca cb 5c 22 88 c3 cc |"....\".|...\"...|
|000001f0| cd 5c 22 88 c3 ce cf 5c | 22 88 c3 d0 d1 5c 22 88 |.\"....\|"....\".|
|00000200| c3 d2 d3 5c 22 88 c3 d4 | d5 5c 22 88 c3 d6 d7 5c |...\"...|.\"....\|
|00000210| 22 88 c3 d8 d9 5c 22 88 | c3 da db 5c 22 88 c3 dc |"....\".|...\"...|
|00000220| dd 5c 22 88 c3 de df 5c | 22 88 c3 e0 e1 5c 22 88 |.\"....\|"....\".|
|00000230| e2 16 23 c0 87 22 20 5b | 72 65 71 75 69 72 65 20 |..#.." [|require |
|00000240| 70 69 63 74 75 72 65 20 | 65 6d 61 63 73 62 75 67 |picture |emacsbug|
|00000250| 20 64 65 66 61 6c 69 61 | 73 20 6c 6d 2d 73 65 63 | defalia|s lm-sec|
|00000260| 74 69 6f 6e 2d 6d 61 72 | 6b 20 23 5b 28 68 64 20 |tion-mar|k #[(hd |
|00000270| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 66 74 65 72 29 |&optiona|l after)|
|00000280| 20 22 8a c0 19 65 62 88 | c2 c3 0c c5 51 c6 c0 23 | "...eb.|....Q..#|
|00000290| 85 1d 00 c7 79 88 0e 08 | 83 1c 00 c9 79 88 60 2a |....y...|....y.`*|
|000002a0| 87 22 20 5b 74 20 63 61 | 73 65 2d 66 6f 6c 64 2d |." [t ca|se-fold-|
|000002b0| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|000002c0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 3b 3b 3b 20 22 |-forward| "^;;; "|
|000002d0| 20 68 64 20 22 3a 24 22 | 20 6e 69 6c 20 30 20 61 | hd ":$"| nil 0 a|
|000002e0| 66 74 65 72 20 31 5d 20 | 34 5d 20 6c 6d 2d 63 6f |fter 1] |4] lm-co|
|000002f0| 64 65 2d 6d 61 72 6b 20 | 23 5b 6e 69 6c 20 22 c0 |de-mark |#[nil ".|
|00000300| c1 21 87 22 20 5b 6c 6d | 2d 73 65 63 74 69 6f 6e |.!." [lm|-section|
|00000310| 2d 6d 61 72 6b 20 22 43 | 6f 64 65 22 5d 20 32 5d |-mark "C|ode"] 2]|
|00000320| 20 6c 6d 2d 68 65 61 64 | 65 72 20 23 5b 28 68 64 | lm-head|er #[(hd|
|00000330| 29 20 22 65 62 88 c0 19 | c2 c3 0c c5 51 c6 20 c0 |) "eb...|....Q. .|
|00000340| 23 85 16 00 c7 94 c7 95 | 7b 29 87 22 20 5b 74 20 |#.......|{)." [t |
|00000350| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00000360| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00000370| 72 64 20 22 5e 3b 3b 20 | 22 20 68 64 20 22 3a 20 |rd "^;; |" hd ": |
|00000380| 5c 5c 28 2e 2a 5c 5c 29 | 22 20 6c 6d 2d 63 6f 64 |\\(.*\\)|" lm-cod|
|00000390| 65 2d 6d 61 72 6b 20 31 | 5d 20 34 5d 20 6c 6d 2d |e-mark 1|] 4] lm-|
|000003a0| 68 65 61 64 65 72 2d 6d | 75 6c 74 69 6c 69 6e 65 |header-m|ultiline|
|000003b0| 20 23 5b 28 68 64 29 20 | 22 8a 65 62 88 8a c0 09 | #[(hd) |".eb....|
|000003c0| 21 29 89 1a 83 28 00 c3 | 79 88 5c 6e 43 12 c4 c5 |!)...(..|y.\nC...|
|000003d0| 21 83 28 00 c3 94 c3 95 | 7b 5c 6e 42 12 c3 79 88 |!.(.....|{\nB..y.|
|000003e0| 82 14 00 5c 6e 2a 87 22 | 20 5b 6c 6d 2d 68 65 61 |...\n*."| [lm-hea|
|000003f0| 64 65 72 20 68 64 20 72 | 65 73 20 31 20 6c 6f 6f |der hd r|es 1 loo|
|00000400| 6b 69 6e 67 2d 61 74 20 | 22 5e 3b 3b 09 5c 5c 28 |king-at |"^;;.\\(|
|00000410| 2e 2a 5c 5c 29 22 5d 20 | 33 5d 20 6c 6d 2d 73 75 |.*\\)"] |3] lm-su|
|00000420| 6d 6d 61 72 79 20 23 5b | 28 26 6f 70 74 69 6f 6e |mmary #[|(&option|
|00000430| 61 6c 20 66 69 6c 65 29 | 20 22 8a 08 83 09 00 c1 |al file)| "......|
|00000440| 08 21 88 65 62 88 c2 c3 | 21 85 17 00 c4 94 c4 95 |.!.eb...|!.......|
|00000450| 7b 08 83 1f 00 c5 70 21 | 88 29 87 22 20 5b 66 69 |{.....p!|.)." [fi|
|00000460| 6c 65 20 66 69 6e 64 2d | 66 69 6c 65 20 6c 6f 6f |le find-|file loo|
|00000470| 6b 69 6e 67 2d 61 74 20 | 22 5e 3b 3b 3b 20 5b 5e |king-at |"^;;; [^|
|00000480| 20 5d 2b 20 2d 2d 2d 20 | 5c 5c 28 2e 2a 5c 5c 29 | ]+ --- |\\(.*\\)|
|00000490| 22 20 31 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |" 1 kill|-buffer]|
|000004a0| 20 33 5d 20 6c 6d 2d 63 | 72 61 63 6b 2d 61 64 64 | 3] lm-c|rack-add|
|000004b0| 72 65 73 73 20 23 5b 28 | 78 29 20 22 c0 c1 5c 6e |ress #[(|x) "..\n|
|000004c0| 5c 22 83 15 00 5c 6e c3 | 94 c3 95 4f 5c 6e c4 94 |\"...\n.|...O\n..|
|000004d0| c4 95 4f 42 87 c0 c5 5c | 6e 5c 22 83 2a 00 5c 6e |..OB...\|n\".*.\n|
|000004e0| c4 94 c4 95 4f 5c 6e c3 | 94 c3 95 4f 42 87 c0 c6 |....O\n.|...OB...|
|000004f0| 5c 6e 5c 22 83 35 00 c7 | 5c 6e 42 87 5c 6e c7 42 |\n\".5..|\nB.\n.B|
|00000500| 87 22 20 5b 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |." [stri|ng-match|
|00000510| 20 22 5c 5c 28 2e 2b 5c | 5c 29 20 5b 28 3c 5d 5c | "\\(.+\|\) [(<]\|
|00000520| 5c 28 5c 5c 53 2d 2b 40 | 5c 5c 53 2d 2b 5c 5c 29 |\(\\S-+@|\\S-+\\)|
|00000530| 5b 3e 29 5d 22 20 78 20 | 31 20 32 20 22 5c 5c 28 |[>)]" x |1 2 "\\(|
|00000540| 5c 5c 53 2d 2b 40 5c 5c | 53 2d 2b 5c 5c 29 20 5b |\\S-+@\\|S-+\\) [|
|00000550| 28 3c 5d 5c 5c 28 2e 2a | 5c 5c 29 5b 3e 29 5d 22 |(<]\\(.*|\\)[>)]"|
|00000560| 20 22 5c 5c 53 2d 2b 40 | 5c 5c 53 2d 2b 22 20 6e | "\\S-+@|\\S-+" n|
|00000570| 69 6c 5d 20 34 5d 20 6c | 6d 2d 61 75 74 68 6f 72 |il] 4] l|m-author|
|00000580| 73 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |s #[(&op|tional f|
|00000590| 69 6c 65 29 20 22 8a 08 | 83 09 00 c1 08 21 88 c2 |ile) "..|.....!..|
|000005a0| c3 21 1c c5 c6 0c 5c 22 | 08 83 19 00 c7 70 21 88 |.!....\"|.....p!.|
|000005b0| 2a 87 22 20 5b 66 69 6c | 65 20 66 69 6e 64 2d 66 |*." [fil|e find-f|
|000005c0| 69 6c 65 20 6c 6d 2d 68 | 65 61 64 65 72 2d 6d 75 |ile lm-h|eader-mu|
|000005d0| 6c 74 69 6c 69 6e 65 20 | 22 61 75 74 68 6f 72 22 |ltiline |"author"|
|000005e0| 20 61 75 74 68 6f 72 6c | 69 73 74 20 6d 61 70 63 | authorl|ist mapc|
|000005f0| 61 72 20 6c 6d 2d 63 72 | 61 63 6b 2d 61 64 64 72 |ar lm-cr|ack-addr|
|00000600| 65 73 73 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |ess kill|-buffer]|
|00000610| 20 33 5d 20 6c 6d 2d 6d | 61 69 6e 74 61 69 6e 65 | 3] lm-m|aintaine|
|00000620| 72 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |r #[(&op|tional f|
|00000630| 69 6c 65 29 20 22 8a 08 | 83 09 00 c1 08 21 88 c2 |ile) "..|.....!..|
|00000640| c3 21 89 1c 83 17 00 c5 | 0c 21 82 1a 00 c6 20 40 |.!......|.!.... @|
|00000650| 29 08 83 23 00 c7 70 21 | 88 29 87 22 20 5b 66 69 |)..#..p!|.)." [fi|
|00000660| 6c 65 20 66 69 6e 64 2d | 66 69 6c 65 20 6c 6d 2d |le find-|file lm-|
|00000670| 68 65 61 64 65 72 20 22 | 6d 61 69 6e 74 61 69 6e |header "|maintain|
|00000680| 65 72 22 20 6d 61 69 6e | 74 20 6c 6d 2d 63 72 61 |er" main|t lm-cra|
|00000690| 63 6b 2d 61 64 64 72 65 | 73 73 20 6c 6d 2d 61 75 |ck-addre|ss lm-au|
|000006a0| 74 68 6f 72 73 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |thors ki|ll-buffe|
|000006b0| 72 5d 20 34 5d 20 6c 6d | 2d 63 72 65 61 74 69 6f |r] 4] lm|-creatio|
|000006c0| 6e 2d 64 61 74 65 20 23 | 5b 28 26 6f 70 74 69 6f |n-date #|[(&optio|
|000006d0| 6e 61 6c 20 66 69 6c 65 | 29 20 22 8a 08 83 09 00 |nal file|) ".....|
|000006e0| c1 08 21 88 c2 c3 21 08 | 83 14 00 c4 70 21 88 29 |..!...!.|....p!.)|
|000006f0| 87 22 20 5b 66 69 6c 65 | 20 66 69 6e 64 2d 66 69 |." [file| find-fi|
|00000700| 6c 65 20 6c 6d 2d 68 65 | 61 64 65 72 20 22 63 72 |le lm-he|ader "cr|
|00000710| 65 61 74 65 64 22 20 6b | 69 6c 6c 2d 62 75 66 66 |eated" k|ill-buff|
|00000720| 65 72 5d 20 33 5d 20 6c | 6d 2d 6c 61 73 74 2d 6d |er] 3] l|m-last-m|
|00000730| 6f 64 69 66 69 65 64 2d | 64 61 74 65 20 23 5b 28 |odified-|date #[(|
|00000740| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 69 6c 65 29 20 |&optiona|l file) |
|00000750| 22 8a 08 83 09 00 c1 08 | 21 88 65 62 88 c2 c3 c4 |".......|!.eb....|
|00000760| 20 c5 23 85 2b 00 c6 c7 | c8 94 c8 95 7b c9 ca 94 | .#.+...|....{...|
|00000770| ca 95 7b 21 cb 38 cc 94 | cc 95 7b 24 08 83 33 00 |..{!.8..|..{$..3.|
|00000780| cd 70 21 88 29 87 22 20 | 5b 66 69 6c 65 20 66 69 |.p!.)." |[file fi|
|00000790| 6e 64 2d 66 69 6c 65 20 | 72 65 2d 73 65 61 72 63 |nd-file |re-searc|
|000007a0| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 5c 24 49 64 |h-forwar|d "\\$Id|
|000007b0| 3a 20 5b 5e 20 5d 2b 20 | 5b 5e 20 5d 2b 20 5c 5c |: [^ ]+ |[^ ]+ \\|
|000007c0| 28 5b 5e 2f 5d 2b 5c 5c | 29 2f 5c 5c 28 5b 5e 2f |([^/]+\\|)/\\([^/|
|000007d0| 5d 2b 5c 5c 29 2f 5c 5c | 28 5b 5e 20 5d 2b 5c 5c |]+\\)/\\|([^ ]+\\|
|000007e0| 29 20 22 20 6c 6d 2d 63 | 6f 64 65 2d 6d 61 72 6b |) " lm-c|ode-mark|
|000007f0| 20 74 20 66 6f 72 6d 61 | 74 20 22 25 73 20 25 73 | t forma|t "%s %s|
|00000800| 20 25 73 22 20 33 20 73 | 74 72 69 6e 67 2d 74 6f | %s" 3 s|tring-to|
|00000810| 2d 69 6e 74 20 32 20 28 | 22 22 20 22 4a 61 6e 22 |-int 2 (|"" "Jan"|
|00000820| 20 22 46 65 62 22 20 22 | 4d 61 72 22 20 22 41 70 | "Feb" "|Mar" "Ap|
|00000830| 72 22 20 22 4d 61 79 22 | 20 22 4a 75 6e 22 20 22 |r" "May"| "Jun" "|
|00000840| 4a 75 6c 22 20 22 41 75 | 67 22 20 22 53 65 70 22 |Jul" "Au|g" "Sep"|
|00000850| 20 22 4f 63 74 22 20 22 | 4e 6f 76 22 20 22 44 65 | "Oct" "|Nov" "De|
|00000860| 63 22 29 20 31 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |c") 1 ki|ll-buffe|
|00000870| 72 5d 20 36 5d 20 6c 6d | 2d 76 65 72 73 69 6f 6e |r] 6] lm|-version|
|00000880| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 66 69 | #[(&opt|ional fi|
|00000890| 6c 65 29 20 22 8a 08 83 | 09 00 c1 08 21 88 c2 c3 |le) "...|....!...|
|000008a0| 21 86 41 00 c4 20 1d 65 | 62 88 c6 c7 0d c8 23 83 |!.A.. .e|b.....#.|
|000008b0| 25 00 c9 94 c9 95 7b 82 | 40 00 c6 ca cb 21 ca cc |%.....{.|@....!..|
|000008c0| cd 20 21 21 ce 51 0d c8 | 23 83 3f 00 c9 94 c9 95 |. !!.Q..|#.?.....|
|000008d0| 7b 82 40 00 cf 29 08 83 | 49 00 d0 70 21 88 29 87 |{.@..)..|I..p!.).|
|000008e0| 22 20 5b 66 69 6c 65 20 | 66 69 6e 64 2d 66 69 6c |" [file |find-fil|
|000008f0| 65 20 6c 6d 2d 68 65 61 | 64 65 72 20 22 76 65 72 |e lm-hea|der "ver|
|00000900| 73 69 6f 6e 22 20 6c 6d | 2d 63 6f 64 65 2d 6d 61 |sion" lm|-code-ma|
|00000910| 72 6b 20 68 65 61 64 65 | 72 2d 6d 61 78 20 72 65 |rk heade|r-max re|
|00000920| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000930| 22 5c 5c 24 49 64 3a 20 | 5b 5e 20 5d 2b 20 5c 5c |"\\$Id: |[^ ]+ \\|
|00000940| 28 5b 5e 20 5d 2b 5c 5c | 29 20 22 20 74 20 31 20 |([^ ]+\\|) " t 1 |
|00000950| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 22 40 28 |regexp-q|uote "@(|
|00000960| 23 29 22 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 6e 6f |#)" file|-name-no|
|00000970| 6e 64 69 72 65 63 74 6f | 72 79 20 62 75 66 66 65 |ndirecto|ry buffe|
|00000980| 72 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 09 5c 5c |r-file-n|ame ".\\|
|00000990| 28 5b 30 31 32 33 34 35 | 36 37 39 2e 5d 2a 5c 5c |([012345|679.]*\\|
|000009a0| 29 22 20 6e 69 6c 20 6b | 69 6c 6c 2d 62 75 66 66 |)" nil k|ill-buff|
|000009b0| 65 72 5d 20 35 5d 20 6c | 6d 2d 6b 65 79 77 6f 72 |er] 5] l|m-keywor|
|000009c0| 64 73 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ds #[(&o|ptional |
|000009d0| 66 69 6c 65 29 20 22 8a | 08 83 09 00 c1 08 21 88 |file) ".|......!.|
|000009e0| c2 c3 21 89 1c 85 13 00 | 0c 97 29 08 83 1c 00 c5 |..!.....|..).....|
|000009f0| 70 21 88 29 87 22 20 5b | 66 69 6c 65 20 66 69 6e |p!.)." [|file fin|
|00000a00| 64 2d 66 69 6c 65 20 6c | 6d 2d 68 65 61 64 65 72 |d-file l|m-header|
|00000a10| 20 22 6b 65 79 77 6f 72 | 64 73 22 20 6b 65 79 77 | "keywor|ds" keyw|
|00000a20| 6f 72 64 73 20 6b 69 6c | 6c 2d 62 75 66 66 65 72 |ords kil|l-buffer|
|00000a30| 5d 20 34 5d 20 6c 6d 2d | 61 64 61 70 74 65 64 2d |] 4] lm-|adapted-|
|00000a40| 62 79 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |by #[(&o|ptional |
|00000a50| 66 69 6c 65 29 20 22 8a | 08 83 09 00 c1 08 21 88 |file) ".|......!.|
|00000a60| c2 c3 21 08 83 14 00 c4 | 70 21 88 29 87 22 20 5b |..!.....|p!.)." [|
|00000a70| 66 69 6c 65 20 66 69 6e | 64 2d 66 69 6c 65 20 6c |file fin|d-file l|
|00000a80| 6d 2d 68 65 61 64 65 72 | 20 22 61 64 61 70 74 65 |m-header| "adapte|
|00000a90| 64 2d 62 79 22 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |d-by" ki|ll-buffe|
|00000aa0| 72 5d 20 33 5d 20 6c 6d | 2d 63 6f 6d 6d 65 6e 74 |r] 3] lm|-comment|
|00000ab0| 61 72 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ary #[(&|optional|
|00000ac0| 20 66 69 6c 65 29 20 22 | 8a 08 83 09 00 c1 08 21 | file) "|.......!|
|00000ad0| 88 c2 c3 c4 5c 22 c2 c5 | 21 c2 c6 21 1e 07 1e 08 |....\"..|!..!....|
|00000ae0| 89 1e 09 85 2f 00 0e 08 | 83 2a 00 0e 09 0e 08 7b |..../...|.*.....{|
|00000af0| 82 2f 00 0e 09 0e 07 7b | 2b 08 83 38 00 ca 70 21 |./.....{|+..8..p!|
|00000b00| 88 29 87 22 20 5b 66 69 | 6c 65 20 66 69 6e 64 2d |.)." [fi|le find-|
|00000b10| 66 69 6c 65 20 6c 6d 2d | 73 65 63 74 69 6f 6e 2d |file lm-|section-|
|00000b20| 6d 61 72 6b 20 22 43 6f | 6d 6d 65 6e 74 61 72 79 |mark "Co|mmentary|
|00000b30| 22 20 74 20 22 43 68 61 | 6e 67 65 20 4c 6f 67 22 |" t "Cha|nge Log"|
|00000b40| 20 22 43 6f 64 65 22 20 | 63 6f 64 65 20 63 68 61 | "Code" |code cha|
|00000b50| 6e 67 65 2d 6c 6f 67 20 | 63 6f 6d 6d 65 6e 74 61 |nge-log |commenta|
|00000b60| 72 79 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |ry kill-|buffer] |
|00000b70| 35 5d 20 69 6e 73 65 72 | 74 2d 61 74 2d 63 6f 6c |5] inser|t-at-col|
|00000b80| 75 6d 6e 20 23 5b 28 63 | 6f 6c 20 26 72 65 73 74 |umn #[(c|ol &rest|
|00000b90| 20 70 69 65 63 65 73 29 | 20 22 69 08 56 83 09 00 | pieces)| "i.V...|
|00000ba0| c1 63 88 c2 08 21 88 c3 | c4 0d 5c 22 87 22 20 5b |.c...!..|..\"." [|
|00000bb0| 63 6f 6c 20 22 5c 6e 22 | 20 6d 6f 76 65 2d 74 6f |col "\n"| move-to|
|00000bc0| 2d 63 6f 6c 75 6d 6e 2d | 66 6f 72 63 65 20 61 70 |-column-|force ap|
|00000bd0| 70 6c 79 20 69 6e 73 65 | 72 74 20 70 69 65 63 65 |ply inse|rt piece|
|00000be0| 73 5d 20 33 5d 20 31 36 | 20 6c 6d 2d 63 6f 6d 6d |s] 3] 16| lm-comm|
|00000bf0| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 5d 20 33 29 0a 28 |ent-colu|mn] 3).(|
|00000c00| 64 65 66 61 6c 69 61 73 | 20 27 6c 6d 2d 76 65 72 |defalias| 'lm-ver|
|00000c10| 69 66 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ify #[(&|optional|
|00000c20| 20 66 69 6c 65 20 73 68 | 6f 77 6f 6b 29 20 22 08 | file sh|owok) ".|
|00000c30| 83 1a 00 c1 08 21 83 1a | 00 c2 c3 c4 21 21 88 c5 |.....!..|....!!..|
|00000c40| 20 88 c6 c7 c8 08 21 5c | 22 87 8a 08 83 23 00 c9 | .....!\|"....#..|
|00000c50| 08 21 88 ca 20 84 2c 00 | cb 82 45 00 cc 20 84 35 |.!.. .,.|..E.. .5|
|00000c60| 00 cd 82 45 00 64 62 88 | ce 79 88 cf d0 08 d1 51 |...E.db.|.y.....Q|
|00000c70| 21 85 45 00 d2 08 83 4d | 00 d3 70 21 88 29 87 22 |!.E....M|..p!.)."|
|00000c80| 20 5b 66 69 6c 65 20 66 | 69 6c 65 2d 64 69 72 65 | [file f|ile-dire|
|00000c90| 63 74 6f 72 79 2d 70 20 | 73 77 69 74 63 68 2d 74 |ctory-p |switch-t|
|00000ca0| 6f 2d 62 75 66 66 65 72 | 20 67 65 74 2d 62 75 66 |o-buffer| get-buf|
|00000cb0| 66 65 72 2d 63 72 65 61 | 74 65 20 22 2a 6c 6d 2d |fer-crea|te "*lm-|
|00000cc0| 76 65 72 69 66 79 2a 22 | 20 65 72 61 73 65 2d 62 |verify*"| erase-b|
|00000cd0| 75 66 66 65 72 20 6d 61 | 70 63 61 72 20 23 5b 28 |uffer ma|pcar #[(|
|00000ce0| 66 29 20 22 c0 c1 5c 6e | 5c 22 85 2d 00 c3 5c 6e |f) "..\n|\".-..\n|
|00000cf0| 21 89 1c 83 1d 00 5c 6e | c5 b1 02 88 c6 0e 07 0c |!.....\n|........|
|00000d00| c8 23 82 2c 00 0e 09 85 | 2c 00 5c 6e c5 b1 02 88 |.#.,....|,.\n....|
|00000d10| c6 0e 07 ca 5c 22 29 87 | 22 20 5b 73 74 72 69 6e |....\").|" [strin|
|00000d20| 67 2d 6d 61 74 63 68 20 | 22 2e 2a 5c 5c 2e 65 6c |g-match |".*\\.el|
|00000d30| 24 22 20 66 20 6c 6d 2d | 76 65 72 69 66 79 20 73 |$" f lm-|verify s|
|00000d40| 74 61 74 75 73 20 22 3a | 22 20 69 6e 73 65 72 74 |tatus ":|" insert|
|00000d50| 2d 61 74 2d 63 6f 6c 75 | 6d 6e 20 6c 6d 2d 63 6f |-at-colu|mn lm-co|
|00000d60| 6d 6d 65 6e 74 2d 63 6f | 6c 75 6d 6e 20 22 5c 6e |mment-co|lumn "\n|
|00000d70| 22 20 73 68 6f 77 6f 6b | 20 22 4f 4b 5c 6e 22 5d |" showok| "OK\n"]|
|00000d80| 20 35 5d 20 64 69 72 65 | 63 74 6f 72 79 2d 66 69 | 5] dire|ctory-fi|
|00000d90| 6c 65 73 20 66 69 6e 64 | 2d 66 69 6c 65 20 6c 6d |les find|-file lm|
|00000da0| 2d 73 75 6d 6d 61 72 79 | 20 22 43 61 6e 27 74 20 |-summary| "Can't |
|00000db0| 66 69 6e 64 20 61 20 70 | 61 63 6b 61 67 65 20 73 |find a p|ackage s|
|00000dc0| 75 6d 6d 61 72 79 22 20 | 6c 6d 2d 63 6f 64 65 2d |ummary" |lm-code-|
|00000dd0| 6d 61 72 6b 20 22 43 61 | 6e 27 74 20 66 69 6e 64 |mark "Ca|n't find|
|00000de0| 20 61 20 63 6f 64 65 20 | 73 65 63 74 69 6f 6e 20 | a code |section |
|00000df0| 6d 61 72 6b 65 72 22 20 | 2d 31 20 6c 6f 6f 6b 69 |marker" |-1 looki|
|00000e00| 6e 67 2d 61 74 20 22 3b | 3b 3b 20 22 20 22 65 6e |ng-at ";|;; " "en|
|00000e10| 64 73 20 68 65 72 65 22 | 20 22 43 61 6e 27 74 20 |ds here"| "Can't |
|00000e20| 66 69 6e 64 20 61 20 66 | 6f 6f 74 65 72 20 6c 69 |find a f|ooter li|
|00000e30| 6e 65 22 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 5d |ne" kill|-buffer]|
|00000e40| 20 34 20 22 5c 0a 43 68 | 65 63 6b 20 74 68 61 74 | 4 "\.Ch|eck that|
|00000e50| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 62 75 66 | the cur|rent buf|
|00000e60| 66 65 72 20 28 6f 72 20 | 46 49 4c 45 20 69 66 20 |fer (or |FILE if |
|00000e70| 67 69 76 65 6e 29 20 69 | 73 20 69 6e 20 70 72 6f |given) i|s in pro|
|00000e80| 70 65 72 20 66 6f 72 6d | 61 74 2e 0a 49 66 20 46 |per form|at..If F|
|00000e90| 49 4c 45 20 69 73 20 61 | 20 64 69 72 65 63 74 6f |ILE is a| directo|
|00000ea0| 72 79 2c 20 72 65 63 75 | 72 73 65 20 6f 6e 20 69 |ry, recu|rse on i|
|00000eb0| 74 73 20 66 69 6c 65 73 | 20 61 6e 64 20 67 65 6e |ts files| and gen|
|00000ec0| 65 72 61 74 65 20 61 20 | 72 65 70 6f 72 74 20 69 |erate a |report i|
|00000ed0| 6e 74 6f 0a 61 20 74 65 | 6d 70 6f 72 61 72 79 20 |nto.a te|mporary |
|00000ee0| 62 75 66 66 65 72 2e 22 | 5d 29 0a 28 64 65 66 61 |buffer."|]).(defa|
|00000ef0| 6c 69 61 73 20 27 6c 6d | 2d 73 79 6e 6f 70 73 69 |lias 'lm|-synopsi|
|00000f00| 73 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |s #[(&op|tional f|
|00000f10| 69 6c 65 20 73 68 6f 77 | 61 6c 6c 29 20 22 08 83 |ile show|all) "..|
|00000f20| 1a 00 c1 08 21 83 1a 00 | c2 c3 c4 21 21 88 c5 20 |....!...|...!!.. |
|00000f30| 88 c6 c7 c8 08 21 5c 22 | 87 8a 08 83 23 00 c9 08 |.....!\"|....#...|
|00000f40| 21 88 ca 20 08 83 2d 00 | cb 70 21 88 29 87 22 20 |!.. ..-.|.p!.)." |
|00000f50| 5b 66 69 6c 65 20 66 69 | 6c 65 2d 64 69 72 65 63 |[file fi|le-direc|
|00000f60| 74 6f 72 79 2d 70 20 73 | 77 69 74 63 68 2d 74 6f |tory-p s|witch-to|
|00000f70| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|00000f80| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 6c 6d 2d 76 |er-creat|e "*lm-v|
|00000f90| 65 72 69 66 79 2a 22 20 | 65 72 61 73 65 2d 62 75 |erify*" |erase-bu|
|00000fa0| 66 66 65 72 20 6d 61 70 | 63 61 72 20 23 5b 28 66 |ffer map|car #[(f|
|00000fb0| 29 20 22 c0 c1 5c 6e 5c | 22 85 2d 00 c3 5c 6e 21 |) "..\n\|".-..\n!|
|00000fc0| 89 1c 83 1d 00 5c 6e c5 | b1 02 88 c6 0e 07 0c c8 |.....\n.|........|
|00000fd0| 23 82 2c 00 0e 09 85 2c | 00 5c 6e c5 b1 02 88 c6 |#.,....,|.\n.....|
|00000fe0| 0e 07 ca 5c 22 29 87 22 | 20 5b 73 74 72 69 6e 67 |...\")."| [string|
|00000ff0| 2d 6d 61 74 63 68 20 22 | 2e 2a 5c 5c 2e 65 6c 24 |-match "|.*\\.el$|
|00001000| 22 20 66 20 6c 6d 2d 73 | 79 6e 6f 70 73 69 73 20 |" f lm-s|ynopsis |
|00001010| 73 79 6e 20 22 3a 22 20 | 69 6e 73 65 72 74 2d 61 |syn ":" |insert-a|
|00001020| 74 2d 63 6f 6c 75 6d 6e | 20 6c 6d 2d 63 6f 6d 6d |t-column| lm-comm|
|00001030| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 20 22 5c 6e 22 20 |ent-colu|mn "\n" |
|00001040| 73 68 6f 77 61 6c 6c 20 | 22 4e 41 5c 6e 22 5d 20 |showall |"NA\n"] |
|00001050| 35 5d 20 64 69 72 65 63 | 74 6f 72 79 2d 66 69 6c |5] direc|tory-fil|
|00001060| 65 73 20 66 69 6e 64 2d | 66 69 6c 65 20 6c 6d 2d |es find-|file lm-|
|00001070| 73 75 6d 6d 61 72 79 20 | 6b 69 6c 6c 2d 62 75 66 |summary |kill-buf|
|00001080| 66 65 72 5d 20 34 20 22 | 5c 0a 47 65 6e 65 72 61 |fer] 4 "|\.Genera|
|00001090| 74 65 20 61 20 73 79 6e | 6f 70 73 69 73 20 6c 69 |te a syn|opsis li|
|000010a0| 73 74 69 6e 67 20 66 6f | 72 20 74 68 65 20 62 75 |sting fo|r the bu|
|000010b0| 66 66 65 72 20 6f 72 20 | 74 68 65 20 67 69 76 65 |ffer or |the give|
|000010c0| 6e 20 46 49 4c 45 20 69 | 66 20 67 69 76 65 6e 2e |n FILE i|f given.|
|000010d0| 0a 49 66 20 46 49 4c 45 | 20 69 73 20 61 20 64 69 |.If FILE| is a di|
|000010e0| 72 65 63 74 6f 72 79 2c | 20 72 65 63 75 72 73 65 |rectory,| recurse|
|000010f0| 20 6f 6e 20 69 74 73 20 | 66 69 6c 65 73 20 61 6e | on its |files an|
|00001100| 64 20 67 65 6e 65 72 61 | 74 65 20 61 20 72 65 70 |d genera|te a rep|
|00001110| 6f 72 74 20 69 6e 74 6f | 0a 61 20 74 65 6d 70 6f |ort into|.a tempo|
|00001120| 72 61 72 79 20 62 75 66 | 66 65 72 2e 20 20 49 66 |rary buf|fer.  If|
|00001130| 20 53 48 4f 57 41 4c 4c | 20 69 73 20 6f 6e 2c 20 | SHOWALL| is on, |
|00001140| 61 6c 73 6f 20 67 65 6e | 65 72 61 74 65 20 61 20 |also gen|erate a |
|00001150| 6c 69 6e 65 20 66 6f 72 | 20 66 69 6c 65 73 0a 77 |line for| files.w|
|00001160| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 69 6e 63 6c |hich do |not incl|
|00001170| 75 64 65 20 61 20 72 65 | 63 6f 67 6e 69 7a 61 62 |ude a re|cognizab|
|00001180| 6c 65 20 73 79 6e 6f 70 | 73 69 73 2e 22 5d 29 0a |le synop|sis."]).|
|00001190| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6d 2d 72 65 |(defalia|s 'lm-re|
|000011a0| 70 6f 72 74 2d 62 75 67 | 20 23 5b 28 74 6f 70 69 |port-bug| #[(topi|
|000011b0| 63 29 20 22 c0 20 c1 20 | c2 20 1b 1c 1d c6 c7 0c |c) ". . |. ......|
|000011c0| 86 11 00 0e 08 0e 09 23 | 88 64 62 88 ca 0d 0b 85 |.......#|.db.....|
|000011d0| 21 00 cb 0b 50 cc b1 04 | 88 cd ce cf 21 21 2b 87 |!...P...|....!!+.|
|000011e0| 22 20 5b 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 6c |" [buffe|r-name l|
|000011f0| 6d 2d 6d 61 69 6e 74 61 | 69 6e 65 72 20 6c 6d 2d |m-mainta|iner lm-|
|00001200| 76 65 72 73 69 6f 6e 20 | 76 65 72 73 69 6f 6e 20 |version |version |
|00001210| 61 64 64 72 20 70 61 63 | 6b 61 67 65 20 6d 61 69 |addr pac|kage mai|
|00001220| 6c 20 6e 69 6c 20 62 75 | 67 2d 67 6e 75 2d 65 6d |l nil bu|g-gnu-em|
|00001230| 61 63 73 20 74 6f 70 69 | 63 20 22 5c 6e 49 6e 20 |acs topi|c "\nIn |
|00001240| 22 20 22 20 76 65 72 73 | 69 6f 6e 20 22 20 22 5c |" " vers|ion " "\|
|00001250| 6e 5c 6e 22 20 6d 65 73 | 73 61 67 65 20 73 75 62 |n\n" mes|sage sub|
|00001260| 73 74 69 74 75 74 65 2d | 63 6f 6d 6d 61 6e 64 2d |stitute-|command-|
|00001270| 6b 65 79 73 20 22 54 79 | 70 65 20 5c 5c 5b 6d 61 |keys "Ty|pe \\[ma|
|00001280| 69 6c 2d 73 65 6e 64 5d | 20 74 6f 20 73 65 6e 64 |il-send]| to send|
|00001290| 20 62 75 67 20 72 65 70 | 6f 72 74 2e 22 5d 20 34 | bug rep|ort."] 4|
|000012a0| 20 22 5c 0a 52 65 70 6f | 72 74 20 61 20 62 75 67 | "\.Repo|rt a bug|
|000012b0| 20 69 6e 20 74 68 65 20 | 70 61 63 6b 61 67 65 20 | in the |package |
|000012c0| 63 75 72 72 65 6e 74 6c | 79 20 62 65 69 6e 67 20 |currentl|y being |
|000012d0| 76 69 73 69 74 65 64 20 | 74 6f 20 69 74 73 20 6d |visited |to its m|
|000012e0| 61 69 6e 74 61 69 6e 65 | 72 2e 0a 50 72 6f 6d 70 |aintaine|r..Promp|
|000012f0| 74 73 20 66 6f 72 20 62 | 75 67 20 73 75 62 6a 65 |ts for b|ug subje|
|00001300| 63 74 2e 20 20 4c 65 61 | 76 65 73 20 79 6f 75 20 |ct.  Lea|ves you |
|00001310| 69 6e 20 61 20 6d 61 69 | 6c 20 62 75 66 66 65 72 |in a mai|l buffer|
|00001320| 2e 22 20 22 73 42 75 67 | 20 53 75 62 6a 65 63 74 |." "sBug| Subject|
|00001330| 3a 20 22 5d 29 0a 28 70 | 72 6f 76 69 64 65 20 28 |: "]).(p|rovide (|
|00001340| 71 75 6f 74 65 20 6c 69 | 73 70 2d 6d 6e 74 29 29 |quote li|sp-mnt))|
|00001350| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+