|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ m ┃
Length: 1276 (0x4fc)
Names: »mim-syntax.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/mim-syntax.elc«
0x000…020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 6d 69 6d 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 ┆ (require (quote mim-mode)) (de┆
0x020…040 66 75 6e 20 73 6c 6f 77 2d 73 79 6e 74 61 78 2d 63 68 65 63 6b 2d 6d 69 6d 20 6e 69 6c 20 22 5c ┆fun slow-syntax-check-mim nil "\┆
0x040…060 0a 43 68 65 63 6b 20 4d 69 6d 20 73 79 6e 74 61 78 20 73 6c 6f 77 6c 79 2e 0a 50 6f 69 6e 74 73 ┆ Check Mim syntax slowly. Points┆
0x060…080 20 6f 75 74 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 20 65 72 72 6f 72 2c 20 69 ┆ out the context of the error, i┆
0x080…0a0 66 20 74 68 65 20 73 79 6e 74 61 78 20 69 73 20 69 6e 63 6f 72 72 65 63 74 2e 22 20 28 69 6e 74 ┆f the syntax is incorrect." (int┆
0x0a0…0c0 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 88 c8 c9 21 88 64 c7 c7 c7 ┆eractive) (byte-code " ! d ┆
0x0c0…0e0 c7 c7 1d 1c 1b 1a 19 18 8a 65 62 88 0c 3f 85 20 00 ca cb 08 c6 23 85 9b 00 68 89 12 88 0a cc 55 ┆ eb ? # h U┆
0x0e0…100 83 34 00 c7 cd ce 8f 82 97 00 0a cf 55 83 41 00 c7 d0 d1 8f 82 97 00 d2 0a 21 d3 55 83 7e 00 0b ┆ 4 U A ! U ~ ┆
0x100…120 3f 86 5b 00 d4 d5 d6 20 0b 48 d7 5c 22 d8 5c 22 0a 55 3f 83 64 00 60 89 14 82 7b 00 09 40 89 15 ┆? [ H \" \" U? d ` { @ ┆
0x120…140 88 0d 83 73 00 0d 53 66 82 74 00 c7 89 13 88 09 41 89 11 82 97 00 c6 85 97 00 0d 83 8e 00 0d 09 ┆ s Sf t A ┆
0x140…160 42 89 11 82 8f 00 c7 88 60 89 15 88 0a 89 13 88 82 16 00 29 88 0c 86 a2 00 0d 3f 83 ac 00 c8 d9 ┆B ` ) ? ┆
0x160…180 21 82 fc 00 0c 83 ef 00 0c 62 88 da 0a cc 5c 22 83 c0 00 db dc 21 82 ec 00 0d 3f 83 ce 00 db dd ┆! b \" ! ? ┆
0x180…1a0 de 0a 21 5c 22 82 ec 00 c6 85 ec 00 db df 8a 60 53 89 14 88 0d 53 62 88 e0 60 e1 20 88 60 0c 5e ┆ !\" `S Sb ` ` ^┆
0x1a0…1c0 5c 22 29 de 0a 21 23 82 fc 00 c6 85 fc 00 0d 62 88 db e2 de 0b 21 5c 22 2e 06 87 22 20 5b 73 74 ┆\") !# b !\". " [st┆
0x1c0…1e0 6f 70 20 70 6f 69 6e 74 2d 73 74 61 63 6b 20 63 75 72 72 65 6e 74 20 6c 61 73 74 2d 62 72 61 63 ┆op point-stack current last-brac┆
0x1e0…200 6b 65 74 20 77 68 6f 6f 70 73 20 6c 61 73 74 2d 70 6f 69 6e 74 20 74 20 6e 69 6c 20 6d 65 73 73 ┆ket whoops last-point t nil mess┆
0x200…220 61 67 65 20 22 63 68 65 63 6b 69 6e 67 20 73 79 6e 74 61 78 2e 2e 2e 22 20 72 65 2d 73 65 61 72 ┆age "checking syntax..." re-sear┆
0x220…240 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 73 28 5c 5c 7c 5c 5c 73 29 5c 5c 7c 5c 22 5c 5c 7c 5b ┆ch-forward "\\s(\\|\\s)\\|\"\\|[┆
0x240…260 5c 5c 5d 22 20 33 34 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 88 c1 89 10 87 22 20 5b 63 ┆\\]" 34 (byte-code " ! " [c┆
0x260…280 75 72 72 65 6e 74 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 5e ┆urrent nil re-search-forward "[^┆
0x280…2a0 5c 5c 5d 5c 22 22 5d 20 33 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 60 ┆\\]\""] 3) ((error (byte-code "`┆
0x2a0…2c0 89 10 87 22 20 5b 77 68 6f 6f 70 73 5d 20 32 29 29 29 20 39 32 20 28 62 79 74 65 2d 63 6f 64 65 ┆ " [whoops] 2))) 92 (byte-code┆
0x2c0…2e0 20 22 c0 c1 21 87 22 20 5b 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20 32 29 20 28 28 65 72 ┆ " ! " [forward-char 1] 2) ((er┆
0x2e0…300 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 63 ┆ror (byte-code " " [nil] 1))) c┆
0x300…320 68 61 72 2d 73 79 6e 74 61 78 20 34 31 20 6c 6f 67 61 6e 64 20 6c 73 68 20 73 79 6e 74 61 78 2d ┆har-syntax 41 logand lsh syntax-┆
0x320…340 74 61 62 6c 65 20 2d 38 20 31 32 37 20 22 53 79 6e 74 61 78 20 63 6f 72 72 65 63 74 22 20 65 71 ┆table -8 127 "Syntax correct" eq┆
0x340…360 75 61 6c 20 65 72 72 6f 72 20 22 55 6e 74 65 72 6d 69 6e 61 74 65 64 20 73 74 72 69 6e 67 22 20 ┆ual error "Unterminated string" ┆
0x360…380 22 45 78 74 72 61 6e 65 6f 75 73 20 25 73 22 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 22 ┆"Extraneous %s" char-to-string "┆
0x380…3a0 4d 69 73 6d 61 74 63 68 65 64 20 25 73 20 77 69 74 68 20 25 73 22 20 62 75 66 66 65 72 2d 73 75 ┆Mismatched %s with %s" buffer-su┆
0x3a0…3c0 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 55 6e 6d 61 74 63 68 65 64 20 25 ┆bstring end-of-line "Unmatched %┆
0x3c0…3e0 73 22 5d 20 31 39 29 29 0a 0a 28 64 65 66 75 6e 20 66 61 73 74 2d 73 79 6e 74 61 78 2d 63 68 65 ┆s"] 19)) (defun fast-syntax-che┆
0x3e0…400 63 6b 2d 6d 69 6d 20 6e 69 6c 20 22 5c 0a 43 68 65 63 6b 73 20 4d 69 6d 20 73 79 6e 74 61 78 20 ┆ck-mim nil "\ Checks Mim syntax ┆
0x400…420 71 75 69 63 6b 6c 79 2e 0a 41 6e 73 77 65 72 73 20 63 6f 72 72 65 63 74 20 6f 72 20 69 6e 63 6f ┆quickly. Answers correct or inco┆
0x420…440 72 72 65 63 74 2c 20 63 61 6e 6e 6f 74 20 70 6f 69 6e 74 20 6f 75 74 20 74 68 65 20 65 72 72 6f ┆rrect, cannot point out the erro┆
0x440…460 72 20 63 6f 6e 74 65 78 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d ┆r context." (interactive) (byte-┆
0x460…480 63 6f 64 65 20 22 c1 88 8a 65 62 88 c1 18 6d 3f 85 18 00 c2 c3 60 64 c4 23 89 10 40 c4 5c 22 85 ┆code " eb m? `d # @ \" ┆
0x480…4a0 20 00 c1 88 82 08 00 88 c2 08 40 c4 5c 22 83 2f 00 c5 c6 21 82 32 00 c7 c8 21 29 29 87 22 20 5b ┆ @ \" / ! 2 !)) " [┆
0x4a0…4c0 73 74 61 74 65 20 6e 69 6c 20 65 71 75 61 6c 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 ┆state nil equal parse-partial-se┆
0x4c0…4e0 78 70 20 30 20 6d 65 73 73 61 67 65 20 22 53 79 6e 74 61 78 20 63 6f 72 72 65 63 74 22 20 65 72 ┆xp 0 message "Syntax correct" er┆
0x4e0…4fc 72 6f 72 20 22 53 79 6e 74 61 78 20 69 6e 63 6f 72 72 65 63 74 22 5d 20 36 29 29 0a ┆ror "Syntax incorrect"] 6)) ┆