| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 3b 45 4c 43 1c 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61 | ;ELC.....;;;.Compiled.;;;.in.Ema |
| 0020 | 63 73 20 76 65 72 73 69 6f 6e 20 32 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 | cs.version.28.1.;;;.with.all.opt |
| 0040 | 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 61 75 74 6f 6c 6f 61 64 20 27 73 6c 6f 74 2d 76 | imizations.....(autoload.'slot-v |
| 0060 | 61 6c 75 65 20 22 65 69 65 69 6f 22 29 0a 23 40 34 32 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 | alue."eieio").#@42.Remove.whites |
| 0080 | 70 61 63 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 53 2e 1f 0a 28 64 65 | pace.at.the.beginning.of.S...(de |
| 00a0 | 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 6c 65 66 74 20 23 5b 28 73 29 20 22 5c 33 30 32 20 | falias.'s-trim-left.#[(s)."\302. |
| 00c0 | 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 09 5c 22 5c 32 30 33 15 00 5c 33 30 36 5c 33 | .\303\216\304\305.\"\203..\306\3 |
| 00e0 | 30 37 5c 33 31 30 5c 32 31 31 09 24 5c 32 30 32 16 00 09 2a 5c 32 30 37 22 20 5b 73 61 76 65 2d | 07\310\211.$\202...*\207".[save- |
| 0100 | 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6d 61 74 63 68 2d 64 61 74 61 | match-data-internal.s.match-data |
| 0120 | 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d | .#[nil."\301.\302\"\207".[save-m |
| 0140 | 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 | atch-data-internal.set-match-dat |
| 0160 | 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c | a.evaporate].3].string-match."\\ |
| 0180 | 60 5b 20 09 5c 6e 0d 5d 2b 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 5d 20 35 | `[..\n.]+".replace-match."".t].5 |
| 01a0 | 20 28 23 24 20 2e 20 31 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | .(#$...115)]).(byte-code."\300\3 |
| 01c0 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 | 01\302\303#\300\301\304\303#\300 |
| 01e0 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 72 69 6d 2d 6c 65 66 74 20 | \207".[function-put.s-trim-left. |
| 0200 | 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 33 36 | pure.t.side-effect-free].5).#@36 |
| 0220 | 20 52 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 | .Remove.whitespace.at.the.end.of |
| 0240 | 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 2d 72 69 67 68 74 20 23 5b 28 | .S...(defalias.'s-trim-right.#[( |
| 0260 | 73 29 20 22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 09 5c 22 5c 32 30 | s)."\302..\303\216\304\305.\"\20 |
| 0280 | 33 15 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 32 31 31 09 24 5c 32 30 32 16 00 09 2a 5c 32 30 | 3..\306\307\310\211.$\202...*\20 |
| 02a0 | 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6d | 7".[save-match-data-internal.s.m |
| 02c0 | 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 | atch-data.#[nil."\301.\302\"\207 |
| 02e0 | 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d | ".[save-match-data-internal.set- |
| 0300 | 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 74 72 69 6e 67 2d | match-data.evaporate].3].string- |
| 0320 | 6d 61 74 63 68 20 22 5b 20 09 5c 6e 0d 5d 2b 5c 5c 27 22 20 72 65 70 6c 61 63 65 2d 6d 61 74 63 | match."[..\n.]+\\'".replace-matc |
| 0340 | 68 20 22 22 20 74 5d 20 35 20 28 23 24 20 2e 20 35 34 35 29 5d 29 0a 23 40 35 30 20 52 65 6d 6f | h."".t].5.(#$...545)]).#@50.Remo |
| 0360 | 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 61 | ve.whitespace.at.the.beginning.a |
| 0380 | 6e 64 20 65 6e 64 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 72 69 6d 20 | nd.end.of.S...(defalias.'s-trim. |
| 03a0 | 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 21 21 5c 32 30 37 22 20 5b 73 20 73 2d 74 72 69 | #[(s)."\301\302.!!\207".[s.s-tri |
| 03c0 | 6d 2d 6c 65 66 74 20 73 2d 74 72 69 6d 2d 72 69 67 68 74 5d 20 33 20 28 23 24 20 2e 20 38 36 30 | m-left.s-trim-right].3.(#$...860 |
| 03e0 | 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | )]).(byte-code."\300\301\302\303 |
| 0400 | 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e | #\300\301\304\303#\300\207".[fun |
| 0420 | 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 72 69 6d 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 | ction-put.s-trim.pure.t.side-eff |
| 0440 | 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 33 20 43 6f 6e 76 65 72 74 20 61 6c 6c 20 61 64 | ect-free].5).#@63.Convert.all.ad |
| 0460 | 6a 61 63 65 6e 74 20 77 68 69 74 65 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 | jacent.whitespace.characters.to. |
| 0480 | 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 6f | a.single.space...(defalias.'s-co |
| 04a0 | 6c 6c 61 70 73 65 2d 77 68 69 74 65 73 70 61 63 65 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 | llapse-whitespace.#[(s)."\301\30 |
| 04c0 | 32 5c 33 30 33 08 23 5c 32 30 37 22 20 5b 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 | 2\303.#\207".[s.replace-regexp-i |
| 04e0 | 6e 2d 73 74 72 69 6e 67 20 22 5b 20 09 5c 6e 0d 5d 2b 22 20 22 20 22 5d 20 34 20 28 23 24 20 2e | n-string."[..\n.]+"."."].4.(#$.. |
| 0500 | 20 31 31 30 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | .1106)]).(byte-code."\300\301\30 |
| 0520 | 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | 2\303#\300\301\304\303#\300\207" |
| 0540 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6c 6c 61 70 73 65 2d 77 68 69 74 65 73 | .[function-put.s-collapse-whites |
| 0560 | 70 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 | pace.pure.t.side-effect-free].5) |
| 0580 | 0a 23 40 31 39 30 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 73 75 62 73 74 72 69 6e 67 73 20 62 | .#@190.Split.S.into.substrings.b |
| 05a0 | 6f 75 6e 64 65 64 20 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65 78 70 20 53 45 50 | ounded.by.matches.for.regexp.SEP |
| 05c0 | 41 52 41 54 4f 52 2e 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c | ARATOR..If.OMIT-NULLS.is.non-nil |
| 05e0 | 2c 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20 61 72 65 20 6f 6d 69 | ,.zero-length.substrings.are.omi |
| 0600 | 74 74 65 64 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 | tted...This.is.a.simple.wrapper. |
| 0620 | 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 70 6c 69 74 2d 73 74 72 69 6e | around.the.built-in.`split-strin |
| 0640 | 67 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 20 23 5b 28 73 65 70 61 72 | g'...(defalias.'s-split.#[(separ |
| 0660 | 61 74 6f 72 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c 73 29 20 22 5c 33 | ator.s.&optional.omit-nulls)."\3 |
| 0680 | 30 34 20 18 5c 33 30 35 5c 32 31 36 5c 33 30 36 09 5c 6e 0b 23 2a 5c 32 30 37 22 20 5b 73 61 76 | 04..\305\216\306.\n.#*\207".[sav |
| 06a0 | 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 73 65 70 61 72 61 74 6f | e-match-data-internal.s.separato |
| 06c0 | 72 20 6f 6d 69 74 2d 6e 75 6c 6c 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c | r.omit-nulls.match-data.#[nil."\ |
| 06e0 | 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 | 301.\302\"\207".[save-match-data |
| 0700 | 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 | -internal.set-match-data.evapora |
| 0720 | 74 65 5d 20 33 5d 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 5d 20 34 20 28 23 24 20 2e 20 31 34 31 | te].3].split-string].4.(#$...141 |
| 0740 | 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | 5)]).(byte-code."\300\301\302\30 |
| 0760 | 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 70 6c 69 | 3#\300\207".[function-put.s-spli |
| 0780 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 31 36 34 20 53 | t.side-effect-free.t].4).#@164.S |
| 07a0 | 70 6c 69 74 20 53 20 75 70 20 74 6f 20 4e 20 74 69 6d 65 73 20 69 6e 74 6f 20 73 75 62 73 74 72 | plit.S.up.to.N.times.into.substr |
| 07c0 | 69 6e 67 73 20 62 6f 75 6e 64 65 64 20 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65 | ings.bounded.by.matches.for.rege |
| 07e0 | 78 70 20 53 45 50 41 52 41 54 4f 52 2e 0a 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 | xp.SEPARATOR...If.OMIT-NULLS.is. |
| 0800 | 6e 6f 6e 2d 6e 69 6c 2c 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20 | non-nil,.zero-length.substrings. |
| 0820 | 61 72 65 20 6f 6d 69 74 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 73 2d 73 70 6c 69 74 27 | are.omitted...See.also.`s-split' |
| 0840 | 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 23 5b 28 73 | ...(defalias.'s-split-up-to.#[(s |
| 0860 | 65 70 61 72 61 74 6f 72 20 73 20 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c | eparator.s.n.&optional.omit-null |
| 0880 | 73 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 5c 33 31 31 19 1a 5c 33 31 32 | s)."\306..\307\216\310\311..\312 |
| 08a0 | 5c 33 31 33 5c 33 31 34 5c 22 1b 72 0b 71 5c 32 31 30 5c 33 31 35 5c 32 31 36 5c 66 63 5c 32 31 | \313\314\".r.q\210\315\216\fc\21 |
| 08c0 | 30 65 62 12 5c 33 31 36 0d 5c 33 31 31 5c 33 31 34 23 5c 32 30 33 4d 00 5c 33 31 30 0e 10 57 5c | 0eb.\316.\311\314#\203M.\310..W\ |
| 08e0 | 32 30 33 4d 00 5c 6e 5c 33 31 30 5c 32 32 34 7b 1e 11 0e 12 5c 32 30 33 3b 00 0e 11 5c 33 31 37 | 203M.\n\310\224{....\203;...\317 |
| 0900 | 5c 32 33 32 5c 32 30 34 40 00 0e 11 09 42 11 29 5c 33 31 30 5c 32 32 35 62 12 0e 10 53 16 10 5c | \232\204@....B.)\310\225b...S..\ |
| 0920 | 32 30 32 1a 00 5c 6e 64 7b 1e 11 0e 12 5c 32 30 33 5e 00 0e 11 5c 33 31 37 5c 32 33 32 5c 32 30 | 202..\nd{....\203^...\317\232\20 |
| 0940 | 34 63 00 0e 11 09 42 11 2c 09 5c 32 33 37 2c 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 | 4c....B.,.\237,\207".[save-match |
| 0960 | 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 72 20 6f 70 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 | -data-internal.r.op.#1=#:temp-bu |
| 0980 | 66 66 65 72 20 73 20 73 65 70 61 72 61 74 6f 72 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 | ffer.s.separator.match-data.#[ni |
| 09a0 | 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d | l."\301.\302\"\207".[save-match- |
| 09c0 | 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 | data-internal.set-match-data.eva |
| 09e0 | 70 6f 72 61 74 65 5d 20 33 5d 20 30 20 6e 69 6c 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 | porate].3].0.nil.generate-new-bu |
| 0a00 | 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 | ffer.".*temp*".t.#[nil."\301.!\2 |
| 0a20 | 30 35 09 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 | 05..\302.!\207".[#1#.buffer-name |
| 0a40 | 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 | .kill-buffer].2].re-search-forwa |
| 0a60 | 72 64 20 22 22 20 6e 20 73 75 62 20 6f 6d 69 74 2d 6e 75 6c 6c 73 5d 20 34 20 28 23 24 20 2e 20 | rd."".n.sub.omit-nulls].4.(#$... |
| 0a80 | 31 39 35 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 1951)]).(byte-code."\300\301\302 |
| 0aa0 | 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 | \303#\300\207".[function-put.s-s |
| 0ac0 | 70 6c 69 74 2d 75 70 2d 74 6f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 | plit-up-to.side-effect-free.t].4 |
| 0ae0 | 29 0a 23 40 35 36 20 53 70 6c 69 74 73 20 53 20 69 6e 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 73 | ).#@56.Splits.S.into.a.list.of.s |
| 0b00 | 74 72 69 6e 67 73 20 6f 6e 20 6e 65 77 6c 69 6e 65 20 63 68 61 72 61 63 74 65 72 73 2e 1f 0a 28 | trings.on.newline.characters...( |
| 0b20 | 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 69 6e 65 73 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 | defalias.'s-lines.#[(s)."\301\30 |
| 0b40 | 32 08 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 73 70 6c 69 74 20 22 5c 5c 28 0d 5c 6e 5c 5c 7c 5b | 2.\"\207".[s.s-split."\\(.\n\\|[ |
| 0b60 | 5c 6e 0d 5d 5c 5c 29 22 5d 20 33 20 28 23 24 20 2e 20 32 37 39 31 29 5d 29 0a 28 62 79 74 65 2d | \n.]\\)"].3.(#$...2791)]).(byte- |
| 0b80 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c | code."\300\301\302\303#\300\301\ |
| 0ba0 | 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 | 304\303#\300\207".[function-put. |
| 0bc0 | 73 2d 6c 69 6e 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d | s-lines.pure.t.side-effect-free] |
| 0be0 | 20 35 29 0a 23 40 36 30 20 4a 6f 69 6e 20 61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 73 20 69 6e | .5).#@60.Join.all.the.strings.in |
| 0c00 | 20 53 54 52 49 4e 47 53 20 77 69 74 68 20 53 45 50 41 52 41 54 4f 52 20 69 6e 20 62 65 74 77 65 | .STRINGS.with.SEPARATOR.in.betwe |
| 0c20 | 65 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6a 6f 69 6e 20 23 5b 28 73 65 70 61 72 61 | en...(defalias.'s-join.#[(separa |
| 0c40 | 74 6f 72 20 73 74 72 69 6e 67 73 29 20 22 5c 33 30 32 5c 33 30 33 08 09 23 5c 32 30 37 22 20 5b | tor.strings)."\302\303..#\207".[ |
| 0c60 | 73 74 72 69 6e 67 73 20 73 65 70 61 72 61 74 6f 72 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e | strings.separator.mapconcat.iden |
| 0c80 | 74 69 74 79 5d 20 34 20 28 23 24 20 2e 20 33 30 34 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 | tity].4.(#$...3049)]).(byte-code |
| 0ca0 | 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c | ."\300\301\302\303#\300\301\304\ |
| 0cc0 | 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6a 6f | 303#\300\207".[function-put.s-jo |
| 0ce0 | 69 6e 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 | in.pure.t.side-effect-free].5).# |
| 0d00 | 40 34 38 20 4a 6f 69 6e 20 61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 | @48.Join.all.the.string.argument |
| 0d20 | 73 20 69 6e 74 6f 20 6f 6e 65 20 73 74 72 69 6e 67 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 | s.into.one.string...(defalias.'s |
| 0d40 | 2d 63 6f 6e 63 61 74 20 23 5b 28 26 72 65 73 74 20 73 74 72 69 6e 67 73 29 20 22 5c 33 30 31 5c | -concat.#[(&rest.strings)."\301\ |
| 0d60 | 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73 74 72 69 6e 67 73 20 61 70 70 6c 79 20 63 6f 6e 63 61 | 302.\"\207".[strings.apply.conca |
| 0d80 | 74 5d 20 33 20 28 23 24 20 2e 20 33 33 33 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | t].3.(#$...3332)]).(byte-code."\ |
| 0da0 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 | 300\301\302\303#\300\301\304\303 |
| 0dc0 | 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6e 63 61 | #\300\207".[function-put.s-conca |
| 0de0 | 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 | t.pure.t.side-effect-free].5).#@ |
| 0e00 | 32 37 20 43 6f 6e 63 61 74 65 6e 61 74 65 20 50 52 45 46 49 58 20 61 6e 64 20 53 2e 1f 0a 28 64 | 27.Concatenate.PREFIX.and.S...(d |
| 0e20 | 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 70 65 6e 64 20 23 5b 28 70 72 65 66 69 78 20 73 29 20 | efalias.'s-prepend.#[(prefix.s). |
| 0e40 | 22 08 09 50 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 5d 20 32 20 28 23 24 20 2e 20 33 35 38 | "..P\207".[prefix.s].2.(#$...358 |
| 0e60 | 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 | 7)]).(byte-code."\300\301\302\30 |
| 0e80 | 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 | 3#\300\301\304\303#\300\207".[fu |
| 0ea0 | 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 70 65 6e 64 20 70 75 72 65 20 74 20 73 69 64 65 | nction-put.s-prepend.pure.t.side |
| 0ec0 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 37 20 43 6f 6e 63 61 74 65 6e 61 74 | -effect-free].5).#@27.Concatenat |
| 0ee0 | 65 20 53 20 61 6e 64 20 53 55 46 46 49 58 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 61 70 | e.S.and.SUFFIX...(defalias.'s-ap |
| 0f00 | 70 65 6e 64 20 23 5b 28 73 75 66 66 69 78 20 73 29 20 22 08 09 50 5c 32 30 37 22 20 5b 73 20 73 | pend.#[(suffix.s)."..P\207".[s.s |
| 0f20 | 75 66 66 69 78 5d 20 32 20 28 23 24 20 2e 20 33 37 39 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | uffix].2.(#$...3798)]).(byte-cod |
| 0f40 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 | e."\300\301\302\303#\300\301\304 |
| 0f60 | 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 61 | \303#\300\207".[function-put.s-a |
| 0f80 | 70 70 65 6e 64 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 | ppend.pure.t.side-effect-free].5 |
| 0fa0 | 29 0a 23 40 34 30 20 4d 61 6b 65 20 61 20 73 74 72 69 6e 67 20 6f 66 20 53 20 72 65 70 65 61 74 | ).#@40.Make.a.string.of.S.repeat |
| 0fc0 | 65 64 20 4e 55 4d 20 74 69 6d 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 65 | ed.NUM.times...(defalias.'s-repe |
| 0fe0 | 61 74 20 23 5b 28 6e 75 6d 20 73 29 20 22 5c 33 30 33 18 09 5c 33 30 34 56 5c 32 30 33 13 00 5c | at.#[(num.s)."\303..\304V\203..\ |
| 1000 | 6e 08 42 10 09 53 5c 32 31 31 11 5c 32 30 32 03 00 5c 33 30 35 5c 33 30 36 08 5c 22 29 5c 32 30 | n.B..S\211.\202..\305\306.\")\20 |
| 1020 | 37 22 20 5b 73 73 20 6e 75 6d 20 73 20 6e 69 6c 20 30 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 5d | 7".[ss.num.s.nil.0.apply.concat] |
| 1040 | 20 34 20 28 23 24 20 2e 20 34 30 30 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | .4.(#$...4007)]).(byte-code."\30 |
| 1060 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c | 0\301\302\303#\300\301\304\303#\ |
| 1080 | 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 70 65 61 74 20 | 300\207".[function-put.s-repeat. |
| 10a0 | 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 33 37 | pure.t.side-effect-free].5).#@37 |
| 10c0 | 20 52 65 6d 6f 76 65 20 53 55 46 46 49 58 20 69 66 20 69 74 20 69 73 20 61 74 20 65 6e 64 20 6f | .Remove.SUFFIX.if.it.is.at.end.o |
| 10e0 | 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 23 | f.S...(defalias.'s-chop-suffix.# |
| 1100 | 5b 28 73 75 66 66 69 78 20 73 29 20 22 08 47 5b 19 5c 6e 47 08 47 59 5c 32 30 33 1c 00 08 5c 6e | [(suffix.s).".G[.\nG.GY\203...\n |
| 1120 | 09 5c 33 30 33 4f 5c 32 33 30 5c 32 30 33 1c 00 5c 6e 5c 33 30 34 09 4f 5c 32 30 32 1d 00 5c 6e | .\303O\230\203..\n\304.O\202..\n |
| 1140 | 29 5c 32 30 37 22 20 5b 73 75 66 66 69 78 20 70 6f 73 20 73 20 6e 69 6c 20 30 5d 20 34 20 28 23 | )\207".[suffix.pos.s.nil.0].4.(# |
| 1160 | 24 20 2e 20 34 32 38 39 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 | $...4289)]).(byte-code."\300\301 |
| 1180 | 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 | \302\303#\300\301\304\303#\300\2 |
| 11a0 | 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 | 07".[function-put.s-chop-suffix. |
| 11c0 | 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 37 | pure.t.side-effect-free].5).#@67 |
| 11e0 | 20 52 65 6d 6f 76 65 20 53 55 46 46 49 58 45 53 20 6f 6e 65 20 62 79 20 6f 6e 65 20 69 6e 20 6f | .Remove.SUFFIXES.one.by.one.in.o |
| 1200 | 72 64 65 72 2c 20 69 66 20 74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 | rder,.if.they.are.at.the.end.of. |
| 1220 | 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 23 | S...(defalias.'s-chop-suffixes.# |
| 1240 | 5b 28 73 75 66 66 69 78 65 73 20 73 29 20 22 08 5c 32 30 33 11 00 5c 33 30 32 08 40 09 5c 22 11 | [(suffixes.s).".\203..\302.@.\". |
| 1260 | 08 41 5c 32 31 31 10 5c 32 30 34 04 00 09 5c 32 30 37 22 20 5b 73 75 66 66 69 78 65 73 20 73 20 | .A\211.\204...\207".[suffixes.s. |
| 1280 | 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 5d 20 34 20 28 23 24 20 2e 20 34 35 37 37 29 5d 29 0a 28 | s-chop-suffix].4.(#$...4577)]).( |
| 12a0 | 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 | byte-code."\300\301\302\303#\300 |
| 12c0 | 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e | \301\304\303#\300\207".[function |
| 12e0 | 2d 70 75 74 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 70 75 72 65 20 74 20 73 69 64 65 | -put.s-chop-suffixes.pure.t.side |
| 1300 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 33 20 52 65 6d 6f 76 65 20 50 52 45 | -effect-free].5).#@43.Remove.PRE |
| 1320 | 46 49 58 20 69 66 20 69 74 20 69 73 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 1f | FIX.if.it.is.at.the.start.of.S.. |
| 1340 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 23 5b 28 70 72 65 | .(defalias.'s-chop-prefix.#[(pre |
| 1360 | 66 69 78 20 73 29 20 22 08 47 19 5c 6e 47 08 47 59 5c 32 30 33 1b 00 08 5c 6e 5c 33 30 33 09 4f | fix.s).".G.\nG.GY\203...\n\303.O |
| 1380 | 5c 32 33 30 5c 32 30 33 1b 00 5c 6e 09 5c 33 30 34 4f 5c 32 30 32 1c 00 5c 6e 29 5c 32 30 37 22 | \230\203..\n.\304O\202..\n)\207" |
| 13a0 | 20 5b 70 72 65 66 69 78 20 70 6f 73 20 73 20 30 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 34 38 | .[prefix.pos.s.0.nil].4.(#$...48 |
| 13c0 | 38 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 86)]).(byte-code."\300\301\302\3 |
| 13e0 | 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 | 03#\300\301\304\303#\300\207".[f |
| 1400 | 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 70 75 72 65 20 74 | unction-put.s-chop-prefix.pure.t |
| 1420 | 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 39 20 52 65 6d 6f 76 | .side-effect-free].5).#@69.Remov |
| 1440 | 65 20 50 52 45 46 49 58 45 53 20 6f 6e 65 20 62 79 20 6f 6e 65 20 69 6e 20 6f 72 64 65 72 2c 20 | e.PREFIXES.one.by.one.in.order,. |
| 1460 | 69 66 20 74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 53 2e 1f 0a | if.they.are.at.the.start.of.S... |
| 1480 | 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 65 73 20 23 5b 28 70 72 | (defalias.'s-chop-prefixes.#[(pr |
| 14a0 | 65 66 69 78 65 73 20 73 29 20 22 08 5c 32 30 33 11 00 5c 33 30 32 08 40 09 5c 22 11 08 41 5c 32 | efixes.s).".\203..\302.@.\"..A\2 |
| 14c0 | 31 31 10 5c 32 30 34 04 00 09 5c 32 30 37 22 20 5b 70 72 65 66 69 78 65 73 20 73 20 73 2d 63 68 | 11.\204...\207".[prefixes.s.s-ch |
| 14e0 | 6f 70 2d 70 72 65 66 69 78 5d 20 34 20 28 23 24 20 2e 20 35 31 37 39 29 5d 29 0a 28 62 79 74 65 | op-prefix].4.(#$...5179)]).(byte |
| 1500 | 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 | -code."\300\301\302\303#\300\301 |
| 1520 | 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 | \304\303#\300\207".[function-put |
| 1540 | 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 65 73 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 | .s-chop-prefixes.pure.t.side-eff |
| 1560 | 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 34 20 52 65 74 75 72 6e 73 20 74 68 65 20 6c 6f | ect-free].5).#@54.Returns.the.lo |
| 1580 | 6e 67 65 73 74 20 70 72 65 66 69 78 20 53 31 20 61 6e 64 20 53 32 20 68 61 76 65 20 69 6e 20 63 | ngest.prefix.S1.and.S2.have.in.c |
| 15a0 | 6f 6d 6d 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 68 61 72 65 64 2d 73 74 61 72 | ommon...(defalias.'s-shared-star |
| 15c0 | 74 20 23 5b 28 73 31 20 73 32 29 20 22 5c 33 30 33 08 5c 33 30 34 08 47 09 5c 33 30 34 09 47 26 | t.#[(s1.s2)."\303.\304.G.\304.G& |
| 15e0 | 06 5c 32 31 31 1a 5c 33 30 35 3d 5c 32 30 33 16 00 08 5c 32 30 32 1d 00 08 5c 33 30 34 5c 33 30 | .\211.\305=\203...\202...\304\30 |
| 1600 | 36 5c 6e 21 53 4f 29 5c 32 30 37 22 20 5b 73 31 20 73 32 20 63 6d 70 20 63 6f 6d 70 61 72 65 2d | 6\n!SO)\207".[s1.s2.cmp.compare- |
| 1620 | 73 74 72 69 6e 67 73 20 30 20 74 20 61 62 73 5d 20 38 20 28 23 24 20 2e 20 35 34 39 30 29 5d 29 | strings.0.t.abs].8.(#$...5490)]) |
| 1640 | 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 | .(byte-code."\300\301\302\303#\3 |
| 1660 | 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 | 00\301\304\303#\300\207".[functi |
| 1680 | 6f 6e 2d 70 75 74 20 73 2d 73 68 61 72 65 64 2d 73 74 61 72 74 20 70 75 72 65 20 74 20 73 69 64 | on-put.s-shared-start.pure.t.sid |
| 16a0 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 34 20 52 65 74 75 72 6e 73 20 74 | e-effect-free].5).#@54.Returns.t |
| 16c0 | 68 65 20 6c 6f 6e 67 65 73 74 20 73 75 66 66 69 78 20 53 31 20 61 6e 64 20 53 32 20 68 61 76 65 | he.longest.suffix.S1.and.S2.have |
| 16e0 | 20 69 6e 20 63 6f 6d 6d 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 68 61 72 65 64 | .in.common...(defalias.'s-shared |
| 1700 | 2d 65 6e 64 20 23 5b 28 73 31 20 73 32 29 20 22 08 47 19 5c 6e 47 1b 09 0b 5e 1c 5c 33 30 36 5c | -end.#[(s1.s2).".G.\nG...^.\306\ |
| 1720 | 32 31 31 1d 5c 66 57 5c 32 30 33 29 00 08 09 0d 5a 53 48 5c 6e 0b 0d 5a 53 48 55 5c 32 30 33 29 | 211.\fW\203)....ZSH\n..ZSHU\203) |
| 1740 | 00 0d 54 5c 32 31 31 15 5c 32 30 32 0d 00 0d 5c 33 30 36 55 5c 32 30 33 33 00 5c 33 30 37 5c 32 | ..T\211.\202...\306U\2033.\307\2 |
| 1760 | 30 32 38 00 08 0d 5b 5c 33 31 30 4f 2c 5c 32 30 37 22 20 5b 73 31 20 6c 31 20 73 32 20 6c 32 20 | 028...[\310O,\207".[s1.l1.s2.l2. |
| 1780 | 73 65 61 72 63 68 2d 6c 65 6e 67 74 68 20 69 20 30 20 22 22 20 6e 69 6c 5d 20 35 20 28 23 24 20 | search-length.i.0."".nil].5.(#$. |
| 17a0 | 2e 20 35 38 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | ..5815)]).(byte-code."\300\301\3 |
| 17c0 | 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 | 02\303#\300\301\304\303#\300\207 |
| 17e0 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 68 61 72 65 64 2d 65 6e 64 20 70 75 72 | ".[function-put.s-shared-end.pur |
| 1800 | 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 30 20 52 65 | e.t.side-effect-free].5).#@50.Re |
| 1820 | 6d 6f 76 65 20 6f 6e 65 20 74 72 61 69 6c 69 6e 67 20 60 5c 6e 60 2c 20 60 5c 72 60 20 6f 72 20 | move.one.trailing.`\n`,.`\r`.or. |
| 1840 | 60 5c 72 5c 6e 60 20 66 72 6f 6d 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 68 6f | `\r\n`.from.S...(defalias.'s-cho |
| 1860 | 6d 70 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d | mp.#[(s)."\301\302.\"\207".[s.s- |
| 1880 | 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 28 22 5c 6e 22 20 22 0d 22 29 5d 20 33 20 28 23 24 20 | chop-suffixes.("\n".".")].3.(#$. |
| 18a0 | 2e 20 36 31 37 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | ..6174)]).(byte-code."\300\301\3 |
| 18c0 | 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 | 02\303#\300\301\304\303#\300\207 |
| 18e0 | 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 68 6f 6d 70 20 70 75 72 65 20 74 20 73 | ".[function-put.s-chomp.pure.t.s |
| 1900 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 39 32 20 49 66 20 53 20 69 | ide-effect-free].5).#@192.If.S.i |
| 1920 | 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 63 75 74 20 69 74 20 64 6f 77 6e 20 61 | s.longer.than.LEN,.cut.it.down.a |
| 1940 | 6e 64 20 61 64 64 20 45 4c 4c 49 50 53 49 53 20 74 6f 20 74 68 65 20 65 6e 64 2e 0a 0a 54 68 65 | nd.add.ELLIPSIS.to.the.end...The |
| 1960 | 20 72 65 73 75 6c 74 69 6e 67 20 73 74 72 69 6e 67 2c 20 69 6e 63 6c 75 64 69 6e 67 20 65 6c 6c | .resulting.string,.including.ell |
| 1980 | 69 70 73 69 73 2c 20 77 69 6c 6c 20 62 65 20 4c 45 4e 20 63 68 61 72 61 63 74 65 72 73 0a 6c 6f | ipsis,.will.be.LEN.characters.lo |
| 19a0 | 6e 67 2e 0a 0a 57 68 65 6e 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 20 45 4c 4c 49 50 53 49 | ng...When.not.specified,.ELLIPSI |
| 19c0 | 53 20 64 65 66 61 75 6c 74 73 20 74 6f 20 e2 80 98 2e 2e 2e e2 80 99 2e 1f 0a 28 64 65 66 61 6c | S.defaults.to.............(defal |
| 19e0 | 69 61 73 20 27 73 2d 74 72 75 6e 63 61 74 65 20 23 5b 28 6c 65 6e 20 73 20 26 6f 70 74 69 6f 6e | ias.'s-truncate.#[(len.s.&option |
| 1a00 | 61 6c 20 65 6c 6c 69 70 73 69 73 29 20 22 08 5c 32 30 34 06 00 5c 33 30 33 10 09 47 5c 6e 56 5c | al.ellipsis).".\204..\303..G\nV\ |
| 1a20 | 32 30 33 19 00 5c 33 30 34 5c 33 30 35 09 5c 33 30 36 5c 6e 08 47 5a 4f 08 23 5c 32 30 37 09 5c | 203..\304\305.\306\n.GZO.#\207.\ |
| 1a40 | 32 30 37 22 20 5b 65 6c 6c 69 70 73 69 73 20 73 20 6c 65 6e 20 22 2e 2e 2e 22 20 66 6f 72 6d 61 | 207".[ellipsis.s.len."...".forma |
| 1a60 | 74 20 22 25 73 25 73 22 20 30 5d 20 36 20 28 23 24 20 2e 20 36 34 32 36 29 5d 29 0a 28 62 79 74 | t."%s%s".0].6.(#$...6426)]).(byt |
| 1a80 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 1aa0 | 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 1\304\303#\300\207".[function-pu |
| 1ac0 | 74 20 73 2d 74 72 75 6e 63 61 74 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | t.s-truncate.pure.t.side-effect- |
| 1ae0 | 66 72 65 65 5d 20 35 29 0a 23 40 35 36 20 49 66 20 53 20 69 73 20 6c 6f 6e 67 65 72 20 74 68 61 | free].5).#@56.If.S.is.longer.tha |
| 1b00 | 6e 20 4c 45 4e 2c 20 77 72 61 70 20 74 68 65 20 77 6f 72 64 73 20 77 69 74 68 20 6e 65 77 6c 69 | n.LEN,.wrap.the.words.with.newli |
| 1b20 | 6e 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 77 72 61 70 20 23 5b 28 | nes...(defalias.'s-word-wrap.#[( |
| 1b40 | 6c 65 6e 20 73 29 20 22 5c 33 30 35 20 18 5c 33 30 36 5c 32 31 36 5c 33 30 37 5c 33 31 30 5c 33 | len.s)."\305..\306\216\307\310\3 |
| 1b60 | 31 31 5c 22 19 72 09 71 5c 32 31 30 5c 33 31 32 5c 32 31 36 5c 6e 63 5c 32 31 30 0b 1c 5c 33 31 | 11\".r.q\210\312\216\nc\210..\31 |
| 1b80 | 33 65 64 5c 22 5c 32 31 30 29 65 64 7b 2d 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d | 3ed\"\210)ed{-\207".[save-match- |
| 1ba0 | 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 20 73 | data-internal.#1=#:temp-buffer.s |
| 1bc0 | 20 6c 65 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 | .len.fill-column.match-data.#[ni |
| 1be0 | 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d | l."\301.\302\"\207".[save-match- |
| 1c00 | 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 | data-internal.set-match-data.eva |
| 1c20 | 70 6f 72 61 74 65 5d 20 33 5d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 | porate].3].generate-new-buffer." |
| 1c40 | 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 00 5c 33 | .*temp*".t.#[nil."\301.!\205..\3 |
| 1c60 | 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d | 02.!\207".[#1#.buffer-name.kill- |
| 1c80 | 62 75 66 66 65 72 5d 20 32 5d 20 66 69 6c 6c 2d 72 65 67 69 6f 6e 5d 20 33 20 28 23 24 20 2e 20 | buffer].2].fill-region].3.(#$... |
| 1ca0 | 36 38 39 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 6894)]).(byte-code."\300\301\302 |
| 1cc0 | 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 77 | \303#\300\207".[function-put.s-w |
| 1ce0 | 6f 72 64 2d 77 72 61 70 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a | ord-wrap.side-effect-free.t].4). |
| 1d00 | 23 40 36 35 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 70 | #@65.If.S.is.shorter.than.LEN,.p |
| 1d20 | 61 64 20 69 74 20 77 69 74 68 20 73 70 61 63 65 73 20 73 6f 20 69 74 20 69 73 20 63 65 6e 74 65 | ad.it.with.spaces.so.it.is.cente |
| 1d40 | 72 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 65 6e 74 65 72 20 23 5b 28 6c 65 6e | red...(defalias.'s-center.#[(len |
| 1d60 | 20 73 29 20 22 5c 33 30 33 08 09 47 5a 5d 1a 5c 33 30 34 5c 33 30 35 5c 6e 5c 33 30 36 5c 22 5c | .s)."\303..GZ].\304\305\n\306\"\ |
| 1d80 | 33 30 37 5c 22 09 5c 33 30 34 5c 33 31 30 5c 6e 5c 33 30 36 5c 22 5c 33 30 37 5c 22 51 29 5c 32 | 307\".\304\310\n\306\"\307\"Q)\2 |
| 1da0 | 30 37 22 20 5b 6c 65 6e 20 73 20 65 78 74 72 61 20 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 63 | 07".[len.s.extra.0.make-string.c |
| 1dc0 | 65 69 6c 69 6e 67 20 32 20 33 32 20 66 6c 6f 6f 72 5d 20 36 20 28 23 24 20 2e 20 37 34 32 39 29 | eiling.2.32.floor].6.(#$...7429) |
| 1de0 | 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 | ]).(byte-code."\300\301\302\303# |
| 1e00 | 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 | \300\301\304\303#\300\207".[func |
| 1e20 | 74 69 6f 6e 2d 70 75 74 20 73 2d 63 65 6e 74 65 72 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 | tion-put.s-center.pure.t.side-ef |
| 1e40 | 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 30 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 | fect-free].5).#@60.If.S.is.short |
| 1e60 | 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 50 41 44 44 49 4e 47 | er.than.LEN,.pad.it.with.PADDING |
| 1e80 | 20 6f 6e 20 74 68 65 20 6c 65 66 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 61 64 2d | .on.the.left...(defalias.'s-pad- |
| 1ea0 | 6c 65 66 74 20 23 5b 28 6c 65 6e 20 70 61 64 64 69 6e 67 20 73 29 20 22 5c 33 30 34 08 09 47 5a | left.#[(len.padding.s)."\304..GZ |
| 1ec0 | 5d 1a 5c 33 30 35 5c 6e 5c 33 30 36 0b 21 5c 22 09 50 29 5c 32 30 37 22 20 5b 6c 65 6e 20 73 20 | ].\305\n\306.!\".P)\207".[len.s. |
| 1ee0 | 65 78 74 72 61 20 70 61 64 64 69 6e 67 20 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 73 74 72 69 | extra.padding.0.make-string.stri |
| 1f00 | 6e 67 2d 74 6f 2d 63 68 61 72 5d 20 34 20 28 23 24 20 2e 20 37 37 36 33 29 5d 29 0a 28 62 79 74 | ng-to-char].4.(#$...7763)]).(byt |
| 1f20 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 1f40 | 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 1\304\303#\300\207".[function-pu |
| 1f60 | 74 20 73 2d 70 61 64 2d 6c 65 66 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | t.s-pad-left.pure.t.side-effect- |
| 1f80 | 66 72 65 65 5d 20 35 29 0a 23 40 36 31 20 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 | free].5).#@61.If.S.is.shorter.th |
| 1fa0 | 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 50 41 44 44 49 4e 47 20 6f 6e 20 74 | an.LEN,.pad.it.with.PADDING.on.t |
| 1fc0 | 68 65 20 72 69 67 68 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 61 64 2d 72 69 67 68 | he.right...(defalias.'s-pad-righ |
| 1fe0 | 74 20 23 5b 28 6c 65 6e 20 70 61 64 64 69 6e 67 20 73 29 20 22 5c 33 30 34 08 09 47 5a 5d 1a 09 | t.#[(len.padding.s)."\304..GZ].. |
| 2000 | 5c 33 30 35 5c 6e 5c 33 30 36 0b 21 5c 22 50 29 5c 32 30 37 22 20 5b 6c 65 6e 20 73 20 65 78 74 | \305\n\306.!\"P)\207".[len.s.ext |
| 2020 | 72 61 20 70 61 64 64 69 6e 67 20 30 20 6d 61 6b 65 2d 73 74 72 69 6e 67 20 73 74 72 69 6e 67 2d | ra.padding.0.make-string.string- |
| 2040 | 74 6f 2d 63 68 61 72 5d 20 35 20 28 23 24 20 2e 20 38 30 37 38 29 5d 29 0a 28 62 79 74 65 2d 63 | to-char].5.(#$...8078)]).(byte-c |
| 2060 | 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 | ode."\300\301\302\303#\300\301\3 |
| 2080 | 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 | 04\303#\300\207".[function-put.s |
| 20a0 | 2d 70 61 64 2d 72 69 67 68 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | -pad-right.pure.t.side-effect-fr |
| 20c0 | 65 65 5d 20 35 29 0a 23 40 34 31 20 52 65 74 75 72 6e 73 20 75 70 20 74 6f 20 74 68 65 20 4c 45 | ee].5).#@41.Returns.up.to.the.LE |
| 20e0 | 4e 20 66 69 72 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | N.first.chars.of.S...(defalias.' |
| 2100 | 73 2d 6c 65 66 74 20 23 5b 28 6c 65 6e 20 73 29 20 22 08 47 09 56 5c 32 30 33 5c 66 00 08 5c 33 | s-left.#[(len.s).".G.V\203\f..\3 |
| 2120 | 30 32 09 4f 5c 32 30 37 08 5c 32 30 37 22 20 5b 73 20 6c 65 6e 20 30 5d 20 33 20 28 23 24 20 2e | 02.O\207.\207".[s.len.0].3.(#$.. |
| 2140 | 20 38 33 39 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | .8396)]).(byte-code."\300\301\30 |
| 2160 | 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | 2\303#\300\301\304\303#\300\207" |
| 2180 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 66 74 20 70 75 72 65 20 74 20 73 69 64 | .[function-put.s-left.pure.t.sid |
| 21a0 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 30 20 52 65 74 75 72 6e 73 20 75 | e-effect-free].5).#@40.Returns.u |
| 21c0 | 70 20 74 6f 20 74 68 65 20 4c 45 4e 20 6c 61 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 1f 0a 28 | p.to.the.LEN.last.chars.of.S...( |
| 21e0 | 64 65 66 61 6c 69 61 73 20 27 73 2d 72 69 67 68 74 20 23 5b 28 6c 65 6e 20 73 29 20 22 08 47 5c | defalias.'s-right.#[(len.s).".G\ |
| 2200 | 32 31 31 19 5c 6e 56 5c 32 30 33 12 00 08 09 5c 6e 5a 09 4f 5c 32 30 32 13 00 08 29 5c 32 30 37 | 211.\nV\203....\nZ.O\202...)\207 |
| 2220 | 22 20 5b 73 20 6c 20 6c 65 6e 5d 20 34 20 28 23 24 20 2e 20 38 36 33 31 29 5d 29 0a 28 62 79 74 | ".[s.l.len].4.(#$...8631)]).(byt |
| 2240 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 | e-code."\300\301\302\303#\300\30 |
| 2260 | 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | 1\304\303#\300\207".[function-pu |
| 2280 | 74 20 73 2d 72 69 67 68 74 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | t.s-right.pure.t.side-effect-fre |
| 22a0 | 65 5d 20 35 29 0a 23 40 31 34 32 20 44 6f 65 73 20 53 20 65 6e 64 20 77 69 74 68 20 53 55 46 46 | e].5).#@142.Does.S.end.with.SUFF |
| 22c0 | 49 58 3f 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 | IX?..If.IGNORE-CASE.is.non-nil,. |
| 22e0 | 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 | the.comparison.is.done.without.p |
| 2300 | 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e | aying.attention.to.case.differen |
| 2320 | 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 73 75 66 66 69 78 3f 27 1f 0a 28 64 65 66 61 6c | ces...Alias:.`s-suffix?'..(defal |
| 2340 | 69 61 73 20 27 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 23 5b 28 73 75 66 66 69 78 20 73 20 26 | ias.'s-ends-with\?.#[(suffix.s.& |
| 2360 | 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 08 47 09 47 5a 5c 32 31 31 | optional.ignore-case).".G.GZ\211 |
| 2380 | 1a 5c 33 30 34 59 5c 32 30 35 18 00 5c 33 30 35 09 5c 33 30 36 5c 32 31 31 08 5c 6e 5c 33 30 36 | .\304Y\205..\305.\306\211.\n\306 |
| 23a0 | 0b 26 07 5c 33 30 37 3d 29 5c 32 30 37 22 20 5b 73 20 73 75 66 66 69 78 20 73 74 61 72 74 2d 70 | .&.\307=)\207".[s.suffix.start-p |
| 23c0 | 6f 73 20 69 67 6e 6f 72 65 2d 63 61 73 65 20 30 20 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73 | os.ignore-case.0.compare-strings |
| 23e0 | 20 6e 69 6c 20 74 5d 20 39 20 28 23 24 20 2e 20 38 38 37 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f | .nil.t].9.(#$...8876)]).(byte-co |
| 2400 | 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 | de."\300\301\302\303#\300\301\30 |
| 2420 | 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d | 4\303#\300\207".[function-put.s- |
| 2440 | 65 6e 64 73 2d 77 69 74 68 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | ends-with\?.pure.t.side-effect-f |
| 2460 | 72 65 65 5d 20 35 29 0a 23 40 32 30 39 20 44 6f 65 73 20 53 20 73 74 61 72 74 20 77 69 74 68 20 | ree].5).#@209.Does.S.start.with. |
| 2480 | 50 52 45 46 49 58 3f 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e | PREFIX?..If.IGNORE-CASE.is.non-n |
| 24a0 | 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f | il,.the.comparison.is.done.witho |
| 24c0 | 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 | ut.paying.attention.to.case.diff |
| 24e0 | 65 72 65 6e 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 70 72 65 66 69 78 3f 27 2e 20 54 68 | erences...Alias:.`s-prefix?'..Th |
| 2500 | 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 | is.is.a.simple.wrapper.around.th |
| 2520 | 65 20 62 75 69 6c 74 2d 69 6e 0a 60 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 27 2e 1f 0a 28 | e.built-in.`string-prefix-p'...( |
| 2540 | 64 65 66 61 6c 69 61 73 20 27 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 23 5b 28 70 72 65 | defalias.'s-starts-with\?.#[(pre |
| 2560 | 66 69 78 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 5c 33 | fix.s.&optional.ignore-case)."\3 |
| 2580 | 30 33 08 09 5c 6e 23 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 20 69 67 6e 6f 72 65 2d 63 61 | 03..\n#\207".[prefix.s.ignore-ca |
| 25a0 | 73 65 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 5d 20 34 20 28 23 24 20 2e 20 39 33 32 36 | se.string-prefix-p].4.(#$...9326 |
| 25c0 | 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | )]).(byte-code."\300\301\302\303 |
| 25e0 | 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e | #\300\301\304\303#\300\207".[fun |
| 2600 | 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 70 75 72 65 20 74 | ction-put.s-starts-with\?.pure.t |
| 2620 | 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 28 64 65 66 61 6c 69 61 73 20 | .side-effect-free].5).(defalias. |
| 2640 | 27 73 2d 2d 74 72 75 74 68 79 5c 3f 20 23 5b 28 76 61 6c 29 20 22 08 3f 3f 5c 32 30 37 22 20 5b | 's--truthy\?.#[(val).".??\207".[ |
| 2660 | 76 61 6c 5d 20 31 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | val].1]).(byte-code."\300\301\30 |
| 2680 | 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | 2\303#\300\301\304\303#\300\207" |
| 26a0 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 70 75 72 65 20 | .[function-put.s--truthy\?.pure. |
| 26c0 | 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 31 32 31 20 44 6f 65 | t.side-effect-free].5).#@121.Doe |
| 26e0 | 73 20 53 20 63 6f 6e 74 61 69 6e 20 4e 45 45 44 4c 45 3f 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43 | s.S.contain.NEEDLE?..If.IGNORE-C |
| 2700 | 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 | ASE.is.non-nil,.the.comparison.i |
| 2720 | 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20 | s.done.without.paying.attention. |
| 2740 | 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 | to.case.differences...(defalias. |
| 2760 | 27 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 23 5b 28 6e 65 65 64 6c 65 20 73 20 26 6f 70 74 69 6f | 's-contains\?.#[(needle.s.&optio |
| 2780 | 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 08 19 5c 33 30 35 5c 33 30 36 5c 6e 21 0b | nal.ignore-case)."..\305\306\n!. |
| 27a0 | 5c 33 30 37 5c 33 31 30 1c 5c 33 31 31 03 03 03 23 29 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 | \307\310.\311...#)\266\203!)\207 |
| 27c0 | 22 20 5b 69 67 6e 6f 72 65 2d 63 61 73 65 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 | ".[ignore-case.case-fold-search. |
| 27e0 | 6e 65 65 64 6c 65 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d | needle.s.inhibit-changing-match- |
| 2800 | 64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 69 | data.s--truthy\?.regexp-quote.ni |
| 2820 | 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 39 39 34 39 29 5d | l.t.string-match].8.(#$...9949)] |
| 2840 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c | ).(byte-code."\300\301\302\303#\ |
| 2860 | 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 | 300\301\304\303#\300\207".[funct |
| 2880 | 69 6f 6e 2d 70 75 74 20 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 | ion-put.s-contains\?.pure.t.side |
| 28a0 | 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 32 20 49 73 20 53 31 20 65 71 75 61 | -effect-free].5).#@82.Is.S1.equa |
| 28c0 | 6c 20 74 6f 20 53 32 3f 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 | l.to.S2?..This.is.a.simple.wrapp |
| 28e0 | 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 72 69 6e 67 2d 65 | er.around.the.built-in.`string-e |
| 2900 | 71 75 61 6c 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 65 71 75 61 6c 73 5c 3f 20 23 5b | qual'...(defalias.'s-equals\?.#[ |
| 2920 | 28 73 31 20 73 32 29 20 22 08 09 5c 32 33 30 5c 32 30 37 22 20 5b 73 31 20 73 32 5d 20 32 20 28 | (s1.s2)."..\230\207".[s1.s2].2.( |
| 2940 | 23 24 20 2e 20 31 30 34 32 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...10422)]).(byte-code."\300\3 |
| 2960 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 | 01\302\303#\300\301\304\303#\300 |
| 2980 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 65 71 75 61 6c 73 5c 3f 20 70 | \207".[function-put.s-equals\?.p |
| 29a0 | 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 33 20 | ure.t.side-effect-free].5).#@83. |
| 29c0 | 49 73 20 53 31 20 6c 65 73 73 20 74 68 61 6e 20 53 32 3f 0a 0a 54 68 69 73 20 69 73 20 61 20 73 | Is.S1.less.than.S2?..This.is.a.s |
| 29e0 | 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 | imple.wrapper.around.the.built-i |
| 2a00 | 6e 20 60 73 74 72 69 6e 67 2d 6c 65 73 73 70 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d | n.`string-lessp'...(defalias.'s- |
| 2a20 | 6c 65 73 73 5c 3f 20 23 5b 28 73 31 20 73 32 29 20 22 08 09 5c 32 33 31 5c 32 30 37 22 20 5b 73 | less\?.#[(s1.s2)."..\231\207".[s |
| 2a40 | 31 20 73 32 5d 20 32 20 28 23 24 20 2e 20 31 30 36 38 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | 1.s2].2.(#$...10688)]).(byte-cod |
| 2a60 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 | e."\300\301\302\303#\300\301\304 |
| 2a80 | 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c | \303#\300\207".[function-put.s-l |
| 2aa0 | 65 73 73 5c 3f 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 | ess\?.pure.t.side-effect-free].5 |
| 2ac0 | 29 0a 23 40 31 33 39 20 44 6f 65 73 20 52 45 47 45 58 50 20 6d 61 74 63 68 20 53 3f 0a 49 66 20 | ).#@139.Does.REGEXP.match.S?.If. |
| 2ae0 | 53 54 41 52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 20 73 65 61 72 63 68 20 73 74 61 72 | START.is.non-nil.the.search.star |
| 2b00 | 74 73 20 61 74 20 74 68 61 74 20 69 6e 64 65 78 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d | ts.at.that.index...This.is.a.sim |
| 2b20 | 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 | ple.wrapper.around.the.built-in. |
| 2b40 | 60 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d | `string-match-p'...(defalias.'s- |
| 2b60 | 6d 61 74 63 68 65 73 5c 3f 20 23 5b 28 72 65 67 65 78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 | matches\?.#[(regexp.s.&optional. |
| 2b80 | 73 74 61 72 74 29 20 22 5c 33 30 34 08 09 5c 6e 5c 33 30 35 1b 5c 33 30 36 03 03 03 23 29 5c 32 | start)."\304..\n\305.\306...#)\2 |
| 2ba0 | 36 36 5c 32 30 33 21 5c 32 30 37 22 20 5b 72 65 67 65 78 70 20 73 20 73 74 61 72 74 20 69 6e 68 | 66\203!\207".[regexp.s.start.inh |
| 2bc0 | 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 2d 2d 74 72 75 74 | ibit-changing-match-data.s--trut |
| 2be0 | 68 79 5c 3f 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 31 30 39 | hy\?.t.string-match].8.(#$...109 |
| 2c00 | 35 32 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 52)]).(byte-code."\300\301\302\3 |
| 2c20 | 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6d 61 74 | 03#\300\207".[function-put.s-mat |
| 2c40 | 63 68 65 73 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 | ches\?.side-effect-free.t].4).#@ |
| 2c60 | 33 31 20 49 73 20 53 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 3f | 31.Is.S.nil.or.the.empty.string? |
| 2c80 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 5c 3f 20 23 5b 28 73 29 20 22 08 3f | ..(defalias.'s-blank\?.#[(s).".? |
| 2ca0 | 5c 32 30 36 08 00 08 5c 33 30 31 5c 32 33 30 5c 32 30 37 22 20 5b 73 20 22 22 5d 20 32 20 28 23 | \206...\301\230\207".[s.""].2.(# |
| 2cc0 | 24 20 2e 20 31 31 33 36 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 | $...11363)]).(byte-code."\300\30 |
| 2ce0 | 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c | 1\302\303#\300\301\304\303#\300\ |
| 2d00 | 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 5c 3f 20 70 75 72 | 207".[function-put.s-blank\?.pur |
| 2d20 | 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 36 36 20 49 73 | e.t.side-effect-free].5).#@66.Is |
| 2d40 | 20 53 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 6f 72 20 73 74 | .S.nil.or.the.empty.string.or.st |
| 2d60 | 72 69 6e 67 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 77 68 69 74 65 73 70 61 63 65 3f 1f 0a | ring.only.contains.whitespace?.. |
| 2d80 | 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 23 5b 28 73 29 20 22 | (defalias.'s-blank-str\?.#[(s)." |
| 2da0 | 5c 33 30 31 08 21 5c 32 30 36 0b 00 5c 33 30 31 5c 33 30 32 08 21 21 5c 32 30 37 22 20 5b 73 20 | \301.!\206..\301\302.!!\207".[s. |
| 2dc0 | 73 2d 62 6c 61 6e 6b 5c 3f 20 73 2d 74 72 69 6d 5d 20 33 20 28 23 24 20 2e 20 31 31 35 38 32 29 | s-blank\?.s-trim].3.(#$...11582) |
| 2de0 | 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 | ]).(byte-code."\300\301\302\303# |
| 2e00 | 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 | \300\301\304\303#\300\207".[func |
| 2e20 | 74 69 6f 6e 2d 70 75 74 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 70 75 72 65 20 74 20 73 69 | tion-put.s-blank-str\?.pure.t.si |
| 2e40 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 34 20 49 73 20 53 20 61 6e 79 | de-effect-free].5).#@44.Is.S.any |
| 2e60 | 74 68 69 6e 67 20 62 75 74 20 6e 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e | thing.but.nil.or.the.empty.strin |
| 2e80 | 67 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 73 65 6e 74 5c 3f 20 23 5b 28 73 29 | g?..(defalias.'s-present\?.#[(s) |
| 2ea0 | 20 22 5c 33 30 31 08 21 3f 5c 32 30 37 22 20 5b 73 20 73 2d 62 6c 61 6e 6b 5c 3f 5d 20 32 20 28 | ."\301.!?\207".[s.s-blank\?].2.( |
| 2ec0 | 23 24 20 2e 20 31 31 38 36 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 | #$...11864)]).(byte-code."\300\3 |
| 2ee0 | 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 | 01\302\303#\300\301\304\303#\300 |
| 2f00 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 73 65 6e 74 5c 3f 20 | \207".[function-put.s-present\?. |
| 2f20 | 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 35 34 | pure.t.side-effect-free].5).#@54 |
| 2f40 | 20 52 65 74 75 72 6e 20 53 20 69 66 20 69 74 27 73 20 60 73 2d 70 72 65 73 65 6e 74 3f 27 2c 20 | .Return.S.if.it's.`s-present?',. |
| 2f60 | 6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 6e 69 6c 2e 1f 0a 28 64 65 66 61 6c 69 61 73 | otherwise.return.nil...(defalias |
| 2f80 | 20 27 73 2d 70 72 65 73 65 6e 63 65 20 23 5b 28 73 29 20 22 5c 33 30 31 08 21 5c 32 30 35 07 00 | .'s-presence.#[(s)."\301.!\205.. |
| 2fa0 | 08 5c 32 30 37 22 20 5b 73 20 73 2d 70 72 65 73 65 6e 74 5c 3f 5d 20 32 20 28 23 24 20 2e 20 31 | .\207".[s.s-present\?].2.(#$...1 |
| 2fc0 | 32 30 39 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 | 2097)]).(byte-code."\300\301\302 |
| 2fe0 | 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 | \303#\300\301\304\303#\300\207". |
| 3000 | 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 70 72 65 73 65 6e 63 65 20 70 75 72 65 20 74 20 | [function-put.s-presence.pure.t. |
| 3020 | 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 34 31 20 41 72 65 20 61 6c | side-effect-free].5).#@41.Are.al |
| 3040 | 6c 20 74 68 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 20 69 6e 20 6c 6f 77 65 72 20 63 61 73 65 | l.the.letters.in.S.in.lower.case |
| 3060 | 3f 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 23 5b 28 73 | ?..(defalias.'s-lowercase\?.#[(s |
| 3080 | 29 20 22 5c 33 30 33 18 5c 33 30 34 09 5c 33 30 33 5c 33 30 35 1a 5c 33 30 36 03 03 03 23 29 5c | )."\303.\304.\303\305.\306...#)\ |
| 30a0 | 32 36 36 5c 32 30 33 29 3f 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 | 266\203)?\207".[case-fold-search |
| 30c0 | 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e | .s.inhibit-changing-match-data.n |
| 30e0 | 69 6c 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d | il."[[:upper:]]".t.string-match] |
| 3100 | 20 37 20 28 23 24 20 2e 20 31 32 33 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | .7.(#$...12346)]).(byte-code."\3 |
| 3120 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 | 00\301\302\303#\300\207".[functi |
| 3140 | 6f 6e 2d 70 75 74 20 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74 | on-put.s-lowercase\?.side-effect |
| 3160 | 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 34 31 20 41 72 65 20 61 6c 6c 20 74 68 65 20 6c 65 74 | -free.t].4).#@41.Are.all.the.let |
| 3180 | 74 65 72 73 20 69 6e 20 53 20 69 6e 20 75 70 70 65 72 20 63 61 73 65 3f 1f 0a 28 64 65 66 61 6c | ters.in.S.in.upper.case?..(defal |
| 31a0 | 69 61 73 20 27 73 2d 75 70 70 65 72 63 61 73 65 5c 3f 20 23 5b 28 73 29 20 22 5c 33 30 33 18 5c | ias.'s-uppercase\?.#[(s)."\303.\ |
| 31c0 | 33 30 34 09 5c 33 30 33 5c 33 30 35 1a 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 30 33 29 3f | 304.\303\305.\306...#)\266\203)? |
| 31e0 | 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 69 6e 68 69 62 69 | \207".[case-fold-search.s.inhibi |
| 3200 | 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 6e 69 6c 20 22 5b 5b 3a 6c 6f | t-changing-match-data.nil."[[:lo |
| 3220 | 77 65 72 3a 5d 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 37 20 28 23 24 20 2e 20 | wer:]]".t.string-match].7.(#$... |
| 3240 | 31 32 36 35 37 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 12657)]).(byte-code."\300\301\30 |
| 3260 | 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d | 2\303#\300\207".[function-put.s- |
| 3280 | 75 70 70 65 72 63 61 73 65 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 | uppercase\?.side-effect-free.t]. |
| 32a0 | 34 29 0a 23 40 35 36 20 41 72 65 20 74 68 65 72 65 20 62 6f 74 68 20 6c 6f 77 65 72 20 63 61 73 | 4).#@56.Are.there.both.lower.cas |
| 32c0 | 65 20 61 6e 64 20 75 70 70 65 72 20 63 61 73 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 3f 1f 0a | e.and.upper.case.letters.in.S?.. |
| 32e0 | 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 69 78 65 64 63 61 73 65 5c 3f 20 23 5b 28 73 29 20 22 | (defalias.'s-mixedcase\?.#[(s)." |
| 3300 | 5c 33 30 33 18 5c 33 30 34 5c 33 30 35 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03 23 29 | \303.\304\305.\303\306.\307...#) |
| 3320 | 5c 32 36 36 5c 32 30 33 5c 32 30 35 20 00 5c 33 31 30 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 | \266\203\205..\310.\303\306.\307 |
| 3340 | 03 03 03 23 29 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d | ...#)\266\203!)\207".[case-fold- |
| 3360 | 73 65 61 72 63 68 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d | search.s.inhibit-changing-match- |
| 3380 | 64 61 74 61 20 6e 69 6c 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 22 5b 5b 3a 6c 6f 77 65 72 3a 5d | data.nil.s--truthy\?."[[:lower:] |
| 33a0 | 5d 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 5d | ]".t.string-match."[[:upper:]]"] |
| 33c0 | 20 38 20 28 23 24 20 2e 20 31 32 39 36 38 29 5d 29 0a 23 40 37 33 20 49 6e 20 53 2c 20 69 73 20 | .8.(#$...12968)]).#@73.In.S,.is. |
| 33e0 | 74 68 65 20 66 69 72 73 74 20 6c 65 74 74 65 72 20 75 70 70 65 72 20 63 61 73 65 2c 20 61 6e 64 | the.first.letter.upper.case,.and |
| 3400 | 20 61 6c 6c 20 6f 74 68 65 72 20 6c 65 74 74 65 72 73 20 6c 6f 77 65 72 20 63 61 73 65 3f 1f 0a | .all.other.letters.lower.case?.. |
| 3420 | 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 23 5b 28 73 29 | (defalias.'s-capitalized\?.#[(s) |
| 3440 | 20 22 5c 33 30 33 18 5c 33 30 34 5c 33 30 35 09 5c 33 30 33 5c 33 30 36 1a 5c 33 30 37 03 03 03 | ."\303.\304\305.\303\306.\307... |
| 3460 | 23 29 5c 32 36 36 5c 32 30 33 21 29 5c 32 30 37 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 | #)\266\203!)\207".[case-fold-sea |
| 3480 | 72 63 68 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 63 68 2d 64 61 74 | rch.s.inhibit-changing-match-dat |
| 34a0 | 61 20 6e 69 6c 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 22 5e 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5b | a.nil.s--truthy\?."^[[:upper:]][ |
| 34c0 | 5e 5b 3a 75 70 70 65 72 3a 5d 5d 2a 24 22 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 | ^[:upper:]]*$".t.string-match].8 |
| 34e0 | 20 28 23 24 20 2e 20 31 33 32 37 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...13271)]).(byte-code."\300 |
| 3500 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e | \301\302\303#\300\207".[function |
| 3520 | 2d 70 75 74 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 73 69 64 65 2d 65 66 66 65 63 74 | -put.s-capitalized\?.side-effect |
| 3540 | 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 31 36 20 49 73 20 53 20 61 20 6e 75 6d 62 65 72 3f 1f | -free.t].4).#@16.Is.S.a.number?. |
| 3560 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6e 75 6d 65 72 69 63 5c 3f 20 23 5b 28 73 29 20 22 5c | .(defalias.'s-numeric\?.#[(s)."\ |
| 3580 | 33 30 32 5c 33 30 33 08 5c 33 30 34 5c 33 30 35 19 5c 33 30 36 03 03 03 23 29 5c 32 36 36 5c 32 | 302\303.\304\305.\306...#)\266\2 |
| 35a0 | 30 33 21 5c 32 30 37 22 20 5b 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 6e 67 2d 6d 61 74 | 03!\207".[s.inhibit-changing-mat |
| 35c0 | 63 68 2d 64 61 74 61 20 73 2d 2d 74 72 75 74 68 79 5c 3f 20 22 5e 5b 30 2d 39 5d 2b 24 22 20 6e | ch-data.s--truthy\?."^[0-9]+$".n |
| 35e0 | 69 6c 20 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 31 33 36 34 39 | il.t.string-match].8.(#$...13649 |
| 3600 | 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | )]).(byte-code."\300\301\302\303 |
| 3620 | 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e | #\300\301\304\303#\300\207".[fun |
| 3640 | 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6e 75 6d 65 72 69 63 5c 3f 20 70 75 72 65 20 74 20 73 69 64 | ction-put.s-numeric\?.pure.t.sid |
| 3660 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 39 20 52 65 70 6c 61 63 65 73 20 | e-effect-free].5).#@29.Replaces. |
| 3680 | 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 | OLD.with.NEW.in.S...(defalias.'s |
| 36a0 | 2d 72 65 70 6c 61 63 65 20 23 5b 28 6f 6c 64 20 6e 65 77 20 73 29 20 22 5c 33 30 33 5c 33 30 34 | -replace.#[(old.new.s)."\303\304 |
| 36c0 | 08 21 09 5c 6e 5c 33 30 35 5c 32 31 31 25 5c 32 30 37 22 20 5b 6f 6c 64 20 6e 65 77 20 73 20 72 | .!.\n\305\211%\207".[old.new.s.r |
| 36e0 | 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 72 65 67 65 78 70 2d 71 | eplace-regexp-in-string.regexp-q |
| 3700 | 75 6f 74 65 20 74 5d 20 36 20 28 23 24 20 2e 20 31 33 39 34 33 29 5d 29 0a 28 62 79 74 65 2d 63 | uote.t].6.(#$...13943)]).(byte-c |
| 3720 | 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 | ode."\300\301\302\303#\300\301\3 |
| 3740 | 30 34 5c 33 30 33 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 30 37 22 20 5b 66 75 6e 63 | 04\303#\305\306\307\"\207".[func |
| 3760 | 74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 70 6c 61 63 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 | tion-put.s-replace.pure.t.side-e |
| 3780 | 66 66 65 63 74 2d 66 72 65 65 20 64 65 66 61 6c 69 61 73 20 73 2d 72 65 70 6c 61 63 65 2d 72 65 | ffect-free.defalias.s-replace-re |
| 37a0 | 67 65 78 70 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 5d 20 35 | gexp.replace-regexp-in-string].5 |
| 37c0 | 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 2d 61 67 65 74 20 23 5b 28 61 6c 69 73 74 20 6b 65 | ).(defalias.'s--aget.#[(alist.ke |
| 37e0 | 79 29 20 22 5c 33 30 32 08 09 5c 22 41 5c 32 30 37 22 20 5b 6b 65 79 20 61 6c 69 73 74 20 61 73 | y)."\302..\"A\207".[key.alist.as |
| 3800 | 73 6f 63 2d 73 74 72 69 6e 67 5d 20 33 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | soc-string].3]).(byte-code."\300 |
| 3820 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 | \301\302\303#\300\301\304\303#\3 |
| 3840 | 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 2d 61 67 65 74 20 70 75 | 00\207".[function-put.s--aget.pu |
| 3860 | 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 37 39 20 52 | re.t.side-effect-free].5).#@79.R |
| 3880 | 45 50 4c 41 43 45 4d 45 4e 54 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 2d 63 65 | EPLACEMENTS.is.a.list.of.cons-ce |
| 38a0 | 6c 6c 73 2e 20 45 61 63 68 20 60 63 61 72 60 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 | lls..Each.`car`.is.replaced.with |
| 38c0 | 20 60 63 64 72 60 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 6c 61 | .`cdr`.in.S...(defalias.'s-repla |
| 38e0 | 63 65 2d 61 6c 6c 20 23 5b 28 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 73 29 20 22 5c 33 30 32 5c | ce-all.#[(replacements.s)."\302\ |
| 3900 | 33 30 33 5c 33 30 34 5c 33 30 35 08 5c 22 21 5c 33 30 36 09 5c 33 30 37 5c 32 31 31 25 5c 32 30 | 303\304\305.\"!\306.\307\211%\20 |
| 3920 | 37 22 20 5b 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 | 7".[replacements.s.replace-regex |
| 3940 | 70 2d 69 6e 2d 73 74 72 69 6e 67 20 72 65 67 65 78 70 2d 6f 70 74 20 6d 61 70 63 61 72 20 63 61 | p-in-string.regexp-opt.mapcar.ca |
| 3960 | 72 20 23 5b 28 69 74 29 20 22 5c 33 30 32 08 09 5c 22 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 | r.#[(it)."\302..\"\207".[replace |
| 3980 | 6d 65 6e 74 73 20 69 74 20 73 2d 2d 61 67 65 74 5d 20 33 5d 20 74 5d 20 36 20 28 23 24 20 2e 20 | ments.it.s--aget].3].t].6.(#$... |
| 39a0 | 31 34 34 36 33 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 | 14463)]).(byte-code."\300\301\30 |
| 39c0 | 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | 2\303#\300\301\304\303#\300\207" |
| 39e0 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72 65 70 6c 61 63 65 2d 61 6c 6c 20 70 75 72 | .[function-put.s-replace-all.pur |
| 3a00 | 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 38 34 20 43 6f | e.t.side-effect-free].5).#@84.Co |
| 3a20 | 6e 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 | nvert.S.to.lower.case...This.is. |
| 3a40 | 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c | a.simple.wrapper.around.the.buil |
| 3a60 | 74 2d 69 6e 20 60 64 6f 77 6e 63 61 73 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 64 | t-in.`downcase'...(defalias.'s-d |
| 3a80 | 6f 77 6e 63 61 73 65 20 23 5b 28 73 29 20 22 08 5c 32 32 37 5c 32 30 37 22 20 5b 73 5d 20 31 20 | owncase.#[(s).".\227\207".[s].1. |
| 3aa0 | 28 23 24 20 2e 20 31 34 38 37 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...14878)]).(byte-code."\300\ |
| 3ac0 | 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 301\302\303#\300\207".[function- |
| 3ae0 | 70 75 74 20 73 2d 64 6f 77 6e 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 | put.s-downcase.side-effect-free. |
| 3b00 | 74 5d 20 34 29 0a 23 40 38 32 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 75 70 70 65 72 20 63 61 | t].4).#@82.Convert.S.to.upper.ca |
| 3b20 | 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 | se...This.is.a.simple.wrapper.ar |
| 3b40 | 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 75 70 63 61 73 65 27 2e 1f 0a 28 64 65 | ound.the.built-in.`upcase'...(de |
| 3b60 | 66 61 6c 69 61 73 20 27 73 2d 75 70 63 61 73 65 20 23 5b 28 73 29 20 22 08 5c 32 32 36 5c 32 30 | falias.'s-upcase.#[(s).".\226\20 |
| 3b80 | 37 22 20 5b 73 5d 20 31 20 28 23 24 20 2e 20 31 35 31 31 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f | 7".[s].1.(#$...15115)]).(byte-co |
| 3ba0 | 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b | de."\300\301\302\303#\300\207".[ |
| 3bc0 | 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 75 70 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 | function-put.s-upcase.side-effec |
| 3be0 | 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 38 39 20 43 6f 6e 76 65 72 74 20 74 68 65 20 66 69 | t-free.t].4).#@89.Convert.the.fi |
| 3c00 | 72 73 74 20 77 6f 72 64 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70 | rst.word's.first.character.to.up |
| 3c20 | 70 65 72 20 63 61 73 65 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63 | per.case.and.the.rest.to.lower.c |
| 3c40 | 61 73 65 20 69 6e 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69 | ase.in.S...(defalias.'s-capitali |
| 3c60 | 7a 65 20 23 5b 28 73 29 20 22 08 5c 33 30 31 5c 33 30 32 4f 5c 32 32 36 08 5c 33 30 32 5c 33 30 | ze.#[(s).".\301\302O\226.\302\30 |
| 3c80 | 33 4f 5c 32 32 37 50 5c 32 30 37 22 20 5b 73 20 30 20 31 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e | 3O\227P\207".[s.0.1.nil].4.(#$.. |
| 3ca0 | 20 31 35 33 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 | .15346)]).(byte-code."\300\301\3 |
| 3cc0 | 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 | 02\303#\300\207".[function-put.s |
| 3ce0 | 2d 63 61 70 69 74 61 6c 69 7a 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 | -capitalize.side-effect-free.t]. |
| 3d00 | 34 29 0a 23 40 31 34 34 20 43 6f 6e 76 65 72 74 20 65 61 63 68 20 77 6f 72 64 27 73 20 66 69 72 | 4).#@144.Convert.each.word's.fir |
| 3d20 | 73 74 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70 70 65 72 20 63 61 73 65 20 61 6e 64 20 74 | st.character.to.upper.case.and.t |
| 3d40 | 68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 20 69 6e 20 53 2e 0a 0a 54 68 69 | he.rest.to.lower.case.in.S...Thi |
| 3d60 | 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 | s.is.a.simple.wrapper.around.the |
| 3d80 | 20 62 75 69 6c 74 2d 69 6e 20 60 63 61 70 69 74 61 6c 69 7a 65 27 2e 1f 0a 28 64 65 66 61 6c 69 | .built-in.`capitalize'...(defali |
| 3da0 | 61 73 20 27 73 2d 74 69 74 6c 65 69 7a 65 20 23 5b 28 73 29 20 22 5c 33 30 31 08 21 5c 32 30 37 | as.'s-titleize.#[(s)."\301.!\207 |
| 3dc0 | 22 20 5b 73 20 63 61 70 69 74 61 6c 69 7a 65 5d 20 32 20 28 23 24 20 2e 20 31 35 36 32 35 29 5d | ".[s.capitalize].2.(#$...15625)] |
| 3de0 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c | ).(byte-code."\300\301\302\303#\ |
| 3e00 | 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 69 74 6c 65 69 7a | 300\207".[function-put.s-titleiz |
| 3e20 | 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 31 31 20 54 | e.side-effect-free.t].4).#@211.T |
| 3e40 | 68 72 65 61 64 73 20 53 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 6e 73 65 | hreads.S.through.the.forms..Inse |
| 3e60 | 72 74 73 20 53 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 20 66 69 | rts.S.as.the.last.item.in.the.fi |
| 3e80 | 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 20 69 66 | rst.form,.making.a.list.of.it.if |
| 3ea0 | 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 20 74 68 | .it.is.not.a.list.already..If.th |
| 3ec0 | 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 73 20 74 68 65 20 | ere.are.more.forms,.inserts.the. |
| 3ee0 | 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 6e 20 73 | first.form.as.the.last.item.in.s |
| 3f00 | 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 | econd.form,.etc...(defalias.'s-w |
| 3f20 | 69 74 68 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 73 20 66 6f 72 6d 20 26 72 65 73 74 20 6d 6f | ith.'(macro...#[(s.form.&rest.mo |
| 3f40 | 72 65 29 20 22 08 5c 32 30 34 17 00 09 3c 5c 32 30 33 13 00 09 40 5c 33 30 33 09 41 5c 6e 43 5c | re).".\204...<\203...@\303.A\nC\ |
| 3f60 | 22 42 5c 32 30 37 09 5c 6e 44 5c 32 30 37 5c 33 30 34 5c 32 31 31 5c 6e 09 45 08 42 42 5c 32 30 | "B\207.\nD\207\304\211\n.E.BB\20 |
| 3f80 | 37 22 20 5b 6d 6f 72 65 20 66 6f 72 6d 20 73 20 61 70 70 65 6e 64 20 73 2d 77 69 74 68 5d 20 34 | 7".[more.form.s.append.s-with].4 |
| 3fa0 | 20 28 23 24 20 2e 20 31 35 39 33 35 29 5d 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 | .(#$...15935)])).(byte-code."\30 |
| 3fc0 | 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 | 0\301\302\303#\210\300\301\304\3 |
| 3fe0 | 30 35 23 5c 32 30 37 22 20 5b 70 75 74 20 73 2d 77 69 74 68 20 65 64 65 62 75 67 2d 66 6f 72 6d | 05#\207".[put.s-with.edebug-form |
| 4000 | 2d 73 70 65 63 20 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72 20 28 66 75 6e 63 74 69 6f 6e | -spec.(form.&rest.[&or.(function |
| 4020 | 20 26 72 65 73 74 20 66 6f 72 6d 29 20 66 62 6f 75 6e 64 70 5d 29 20 6c 69 73 70 2d 69 6e 64 65 | .&rest.form).fboundp]).lisp-inde |
| 4040 | 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 31 34 32 20 52 65 74 75 72 6e 73 20 | nt-function.1].4).#@142.Returns. |
| 4060 | 66 69 72 73 74 20 69 6e 64 65 78 20 6f 66 20 4e 45 45 44 4c 45 20 69 6e 20 53 2c 20 6f 72 20 6e | first.index.of.NEEDLE.in.S,.or.n |
| 4080 | 69 6c 2e 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 | il...If.IGNORE-CASE.is.non-nil,. |
| 40a0 | 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 | the.comparison.is.done.without.p |
| 40c0 | 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e | aying.attention.to.case.differen |
| 40e0 | 63 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 69 6e 64 65 78 2d 6f 66 20 23 5b 28 6e | ces...(defalias.'s-index-of.#[(n |
| 4100 | 65 65 64 6c 65 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 20 22 | eedle.s.&optional.ignore-case)." |
| 4120 | 08 19 5c 33 30 35 5c 6e 21 0b 5c 33 30 36 5c 33 30 37 1c 5c 33 31 30 03 03 03 23 29 5c 32 36 36 | ..\305\n!.\306\307.\310...#)\266 |
| 4140 | 5c 32 30 33 29 5c 32 30 37 22 20 5b 69 67 6e 6f 72 65 2d 63 61 73 65 20 63 61 73 65 2d 66 6f 6c | \203)\207".[ignore-case.case-fol |
| 4160 | 64 2d 73 65 61 72 63 68 20 6e 65 65 64 6c 65 20 73 20 69 6e 68 69 62 69 74 2d 63 68 61 6e 67 69 | d-search.needle.s.inhibit-changi |
| 4180 | 6e 67 2d 6d 61 74 63 68 2d 64 61 74 61 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 69 6c 20 74 | ng-match-data.regexp-quote.nil.t |
| 41a0 | 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 37 20 28 23 24 20 2e 20 31 36 34 37 32 29 5d 29 0a | .string-match].7.(#$...16472)]). |
| 41c0 | 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 | (byte-code."\300\301\302\303#\30 |
| 41e0 | 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f | 0\301\304\303#\300\207".[functio |
| 4200 | 6e 2d 70 75 74 20 73 2d 69 6e 64 65 78 2d 6f 66 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 | n-put.s-index-of.pure.t.side-eff |
| 4220 | 65 63 74 2d 66 72 65 65 5d 20 35 29 0a 23 40 32 36 20 52 65 74 75 72 6e 20 74 68 65 20 72 65 76 | ect-free].5).#@26.Return.the.rev |
| 4240 | 65 72 73 65 20 6f 66 20 53 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 76 65 72 73 65 | erse.of.S...(defalias.'s-reverse |
| 4260 | 20 23 5b 28 73 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 09 21 5c 32 30 33 | .#[(s)."\306..\307\216\310.!\203 |
| 4280 | 47 00 09 5c 33 31 31 01 5c 33 31 32 5c 22 5c 32 36 32 01 5c 33 31 32 1a 1b 5c 33 31 33 5c 33 31 | G..\311.\312\"\262.\312..\313\31 |
| 42a0 | 34 21 5c 32 31 30 0b 5c 32 30 33 40 00 0b 5c 32 31 31 41 13 5c 32 34 32 43 1c 5c 33 31 35 0b 40 | 4!\210.\203@..\211A.\242C.\315.@ |
| 42c0 | 0d 5c 22 5c 32 30 33 37 00 0b 5c 32 31 31 41 13 5c 32 34 32 5c 66 42 14 5c 32 30 32 24 00 5c 66 | .\"\2037..\211A.\242\fB.\202$.\f |
| 42e0 | 5c 32 33 37 5c 6e 5c 32 34 34 12 29 5c 32 30 32 19 00 5c 6e 5c 32 36 30 01 2a 5c 32 30 32 51 00 | \237\n\244.)\202..\n\260.*\202Q. |
| 4300 | 09 5c 33 31 31 01 5c 33 31 32 5c 22 5c 32 36 32 01 5c 32 33 37 5c 32 36 30 01 2a 5c 32 30 37 22 | .\311.\312\"\262.\237\260.*\207" |
| 4320 | 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 20 6f 75 74 | .[save-match-data-internal.s.out |
| 4340 | 70 75 74 20 69 6e 70 75 74 20 67 72 61 70 68 65 6d 65 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 | put.input.grapheme.ucs-normalize |
| 4360 | 2d 63 6f 6d 62 69 6e 69 6e 67 2d 63 68 61 72 73 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 | -combining-chars.match-data.#[ni |
| 4380 | 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d | l."\301.\302\"\207".[save-match- |
| 43a0 | 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 | data-internal.set-match-data.eva |
| 43c0 | 70 6f 72 61 74 65 5d 20 33 5d 20 6d 75 6c 74 69 62 79 74 65 2d 73 74 72 69 6e 67 2d 70 20 61 70 | porate].3].multibyte-string-p.ap |
| 43e0 | 70 65 6e 64 20 6e 69 6c 20 72 65 71 75 69 72 65 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 20 6d | pend.nil.require.ucs-normalize.m |
| 4400 | 65 6d 71 6c 5d 20 34 20 28 23 24 20 2e 20 31 36 39 34 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 | emql].4.(#$...16946)]).(byte-cod |
| 4420 | 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 | e."\300\301\302\303#\300\301\304 |
| 4440 | 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 72 | \303#\300\207".[function-put.s-r |
| 4460 | 65 76 65 72 73 65 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 5d 20 | everse.pure.t.side-effect-free]. |
| 4480 | 35 29 0a 23 40 31 38 34 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 | 5).#@184.Return.a.list.of.matche |
| 44a0 | 73 20 66 6f 72 20 52 45 47 45 58 20 69 6e 20 53 54 52 49 4e 47 2e 0a 0a 45 61 63 68 20 65 6c 65 | s.for.REGEX.in.STRING...Each.ele |
| 44c0 | 6d 65 6e 74 20 69 74 73 65 6c 66 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73 | ment.itself.is.a.list.of.matches |
| 44e0 | 2c 20 61 73 20 70 65 72 0a 60 6d 61 74 63 68 2d 73 74 72 69 6e 67 27 2e 20 4d 75 6c 74 69 70 6c | ,.as.per.`match-string'..Multipl |
| 4500 | 65 20 6d 61 74 63 68 65 73 20 61 74 20 74 68 65 20 73 61 6d 65 20 70 6f 73 69 74 69 6f 6e 20 77 | e.matches.at.the.same.position.w |
| 4520 | 69 6c 6c 20 62 65 0a 69 67 6e 6f 72 65 64 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 2e 1f | ill.be.ignored.after.the.first.. |
| 4540 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 | .(defalias.'s-match-strings-all. |
| 4560 | 23 5b 28 72 65 67 65 78 20 73 74 72 69 6e 67 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 | #[(regex.string)."\306..\307\216 |
| 4580 | 5c 33 31 30 5c 33 31 31 19 1a 09 0b 47 57 5c 32 30 33 49 00 5c 33 31 32 5c 66 0b 09 23 5c 32 30 | \310\311....GW\203I.\312\f..#\20 |
| 45a0 | 33 49 00 5c 33 31 31 5c 32 32 34 54 11 5c 33 31 30 5c 33 30 36 20 47 5c 33 31 33 5c 32 34 35 5c | 3I.\311\224T.\310\306.G\313\245\ |
| 45c0 | 33 31 31 1d 1e 0d 1e 0e 0d 0e 0d 55 5c 32 30 34 3f 00 5c 33 31 34 0d 0b 5c 22 0e 0e 42 16 0e 0d | 311........U\204?.\314..\"..B... |
| 45e0 | 54 5c 32 31 31 15 5c 32 30 32 29 00 0e 0e 5c 32 33 37 5c 6e 42 12 2b 5c 32 30 32 09 00 5c 6e 5c | T\211.\202)...\237\nB.+\202..\n\ |
| 4600 | 32 33 37 2c 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 | 237,\207".[save-match-data-inter |
| 4620 | 6e 61 6c 20 69 20 61 6c 6c 2d 73 74 72 69 6e 67 73 20 73 74 72 69 6e 67 20 72 65 67 65 78 20 6d | nal.i.all-strings.string.regex.m |
| 4640 | 61 74 63 68 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 | atch.match-data.#[nil."\301.\302 |
| 4660 | 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 | \"\207".[save-match-data-interna |
| 4680 | 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 6e | l.set-match-data.evaporate].3].n |
| 46a0 | 69 6c 20 30 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 32 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 | il.0.string-match.2.match-string |
| 46c0 | 20 6e 75 6d 2d 6d 61 74 63 68 65 73 20 73 74 72 69 6e 67 73 5d 20 35 20 28 23 24 20 2e 20 31 37 | .num-matches.strings].5.(#$...17 |
| 46e0 | 35 34 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c | 545)]).(byte-code."\300\301\302\ |
| 4700 | 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6d 61 | 303#\300\207".[function-put.s-ma |
| 4720 | 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 | tch-strings-all.side-effect-free |
| 4740 | 20 74 5d 20 34 29 0a 23 40 38 38 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 | .t].4).#@88.Return.a.list.of.mat |
| 4760 | 63 68 65 64 20 70 6f 73 69 74 69 6f 6e 73 20 66 6f 72 20 52 45 47 45 58 50 20 69 6e 20 53 54 52 | ched.positions.for.REGEXP.in.STR |
| 4780 | 49 4e 47 2e 0a 53 55 42 45 58 50 2d 44 45 50 54 48 20 69 73 20 30 20 62 79 20 64 65 66 61 75 6c | ING..SUBEXP-DEPTH.is.0.by.defaul |
| 47a0 | 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 65 64 2d 70 6f 73 69 74 69 6f | t...(defalias.'s-matched-positio |
| 47c0 | 6e 73 2d 61 6c 6c 20 23 5b 28 72 65 67 65 78 70 20 73 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 | ns-all.#[(regexp.string.&optiona |
| 47e0 | 6c 20 73 75 62 65 78 70 2d 64 65 70 74 68 29 20 22 08 5c 32 30 34 06 00 5c 33 30 36 10 5c 33 30 | l.subexp-depth).".\204..\306.\30 |
| 4800 | 37 20 19 5c 33 31 30 5c 32 31 36 5c 33 30 36 5c 33 31 31 1a 1b 5c 33 31 32 5c 66 0d 0b 23 5c 32 | 7..\310\216\306\311..\312\f..#\2 |
| 4820 | 30 33 31 00 0b 0d 47 57 5c 32 30 33 31 00 08 5c 32 32 35 1e 0b 08 5c 32 32 34 08 5c 32 32 35 42 | 031...GW\2031..\225...\224.\225B |
| 4840 | 5c 6e 42 12 5c 33 30 36 5c 32 32 35 13 29 5c 32 30 32 0f 00 5c 6e 5c 32 33 37 2c 5c 32 30 37 22 | \nB.\306\225.)\202..\n\237,\207" |
| 4860 | 20 5b 73 75 62 65 78 70 2d 64 65 70 74 68 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 | .[subexp-depth.save-match-data-i |
| 4880 | 6e 74 65 72 6e 61 6c 20 72 65 73 75 6c 74 20 70 6f 73 20 72 65 67 65 78 70 20 73 74 72 69 6e 67 | nternal.result.pos.regexp.string |
| 48a0 | 20 30 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 | .0.match-data.#[nil."\301.\302\" |
| 48c0 | 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 | \207".[save-match-data-internal. |
| 48e0 | 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 6e 69 6c | set-match-data.evaporate].3].nil |
| 4900 | 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6d 5d 20 34 20 28 23 24 20 2e 20 31 38 32 35 32 29 5d | .string-match.m].4.(#$...18252)] |
| 4920 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c | ).(byte-code."\300\301\302\303#\ |
| 4940 | 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6d 61 74 63 68 65 64 | 300\207".[function-put.s-matched |
| 4960 | 2d 70 6f 73 69 74 69 6f 6e 73 2d 61 6c 6c 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 | -positions-all.side-effect-free. |
| 4980 | 74 5d 20 34 29 0a 23 40 32 37 34 20 57 68 65 6e 20 74 68 65 20 67 69 76 65 6e 20 65 78 70 72 65 | t].4).#@274.When.the.given.expre |
| 49a0 | 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 74 68 65 20 73 74 72 69 6e 67 2c 20 74 68 69 73 20 66 | ssion.matches.the.string,.this.f |
| 49c0 | 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 61 20 6c 69 73 74 0a 6f 66 20 74 68 65 20 77 68 | unction.returns.a.list.of.the.wh |
| 49e0 | 6f 6c 65 20 6d 61 74 63 68 69 6e 67 20 73 74 72 69 6e 67 20 61 6e 64 20 61 20 73 74 72 69 6e 67 | ole.matching.string.and.a.string |
| 4a00 | 20 66 6f 72 20 65 61 63 68 20 6d 61 74 63 68 65 64 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 73 | .for.each.matched.subexpressions |
| 4a20 | 2e 0a 49 66 20 69 74 20 64 69 64 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 72 65 74 75 72 6e | ..If.it.did.not.match.the.return |
| 4a40 | 65 64 20 76 61 6c 75 65 20 69 73 20 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 20 28 6e 69 6c 29 2e | ed.value.is.an.empty.list.(nil). |
| 4a60 | 0a 0a 57 68 65 6e 20 53 54 41 52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 20 73 65 61 72 | ..When.START.is.non-nil.the.sear |
| 4a80 | 63 68 20 77 69 6c 6c 20 73 74 61 72 74 20 61 74 20 74 68 61 74 20 69 6e 64 65 78 2e 1f 0a 28 64 | ch.will.start.at.that.index...(d |
| 4aa0 | 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 74 63 68 20 23 5b 28 72 65 67 65 78 70 20 73 20 26 6f 70 | efalias.'s-match.#[(regexp.s.&op |
| 4ac0 | 74 69 6f 6e 61 6c 20 73 74 61 72 74 29 20 22 5c 33 30 36 20 18 5c 33 30 37 5c 32 31 36 5c 33 31 | tional.start)."\306..\307\216\31 |
| 4ae0 | 30 09 5c 6e 0b 23 5c 32 30 35 40 00 5c 33 30 36 20 5c 33 31 31 1c 1d 0d 5c 32 30 33 3d 00 0d 40 | 0.\n.#\205@.\306.\311...\203=..@ |
| 4b00 | 1e 5c 6e 0d 41 40 1e 0b 0e 5c 6e 5c 32 30 35 2f 00 0e 0b 5c 32 30 35 2f 00 5c 6e 0e 5c 6e 0e 0b | .\n.A@...\n\205/...\205/.\n.\n.. |
| 4b20 | 4f 5c 32 31 31 1e 5c 66 5c 66 42 14 0d 41 41 15 2b 5c 32 30 32 12 00 5c 66 5c 32 33 37 2a 2a 5c | O\211.\f\fB..AA.+\202..\f\237**\ |
| 4b40 | 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 72 | 207".[save-match-data-internal.r |
| 4b60 | 65 67 65 78 70 20 73 20 73 74 61 72 74 20 72 65 73 75 6c 74 20 6d 61 74 63 68 2d 64 61 74 61 2d | egexp.s.start.result.match-data- |
| 4b80 | 6c 69 73 74 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 | list.match-data.#[nil."\301.\302 |
| 4ba0 | 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 | \"\207".[save-match-data-interna |
| 4bc0 | 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 73 | l.set-match-data.evaporate].3].s |
| 4be0 | 74 72 69 6e 67 2d 6d 61 74 63 68 20 6e 69 6c 20 62 65 67 20 65 6e 64 20 73 75 62 73 5d 20 35 20 | tring-match.nil.beg.end.subs].5. |
| 4c00 | 28 23 24 20 2e 20 31 38 38 32 38 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c | (#$...18828)]).(byte-code."\300\ |
| 4c20 | 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d | 301\302\303#\300\207".[function- |
| 4c40 | 70 75 74 20 73 2d 6d 61 74 63 68 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 | put.s-match.side-effect-free.t]. |
| 4c60 | 34 29 0a 23 40 34 35 20 53 6c 69 63 65 73 20 53 20 75 70 20 61 74 20 65 76 65 72 79 20 69 6e 64 | 4).#@45.Slices.S.up.at.every.ind |
| 4c80 | 65 78 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 | ex.matching.REGEXP...(defalias.' |
| 4ca0 | 73 2d 73 6c 69 63 65 2d 61 74 20 23 5b 28 72 65 67 65 78 70 20 73 29 20 22 08 47 5c 33 30 34 55 | s-slice-at.#[(regexp.s).".G\304U |
| 4cc0 | 5c 32 30 33 5c 6e 00 5c 33 30 35 43 5c 32 30 37 5c 33 30 36 20 19 5c 33 30 37 5c 32 31 36 5c 33 | \203\n.\305C\207\306..\307\216\3 |
| 4ce0 | 31 30 1a 5c 33 31 31 0b 08 5c 33 31 32 23 5c 32 31 31 12 5c 32 30 33 2a 00 08 5c 33 30 34 5c 6e | 10.\311..\312#\211.\203*..\304\n |
| 4d00 | 4f 5c 33 31 33 0b 08 5c 6e 5c 33 31 30 4f 5c 22 42 5c 32 30 32 2c 00 08 43 2b 5c 32 30 37 22 20 | O\313..\n\310O\"B\202,..C+\207". |
| 4d20 | 5b 73 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 69 20 72 65 | [s.save-match-data-internal.i.re |
| 4d40 | 67 65 78 70 20 30 20 22 22 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 | gexp.0."".match-data.#[nil."\301 |
| 4d60 | 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e | .\302\"\207".[save-match-data-in |
| 4d80 | 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 61 74 65 5d | ternal.set-match-data.evaporate] |
| 4da0 | 20 33 5d 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 31 20 73 2d 73 6c 69 63 65 2d 61 | .3].nil.string-match.1.s-slice-a |
| 4dc0 | 74 5d 20 37 20 28 23 24 20 2e 20 31 39 35 36 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | t].7.(#$...19560)]).(byte-code." |
| 4de0 | 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 | \300\301\302\303#\300\207".[func |
| 4e00 | 74 69 6f 6e 2d 70 75 74 20 73 2d 73 6c 69 63 65 2d 61 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d | tion-put.s-slice-at.side-effect- |
| 4e20 | 66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 39 20 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 6c 69 73 | free.t].4).#@29.Split.S.into.lis |
| 4e40 | 74 20 6f 66 20 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 70 6c 69 74 2d | t.of.words...(defalias.'s-split- |
| 4e60 | 77 6f 72 64 73 20 23 5b 28 73 29 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 34 18 5c 33 30 35 5c 33 | words.#[(s)."\302\303\304.\305\3 |
| 4e80 | 30 36 5c 33 30 37 5c 33 30 35 5c 33 31 30 5c 33 30 37 09 23 23 29 5c 33 31 31 23 5c 32 30 37 22 | 06\307\305\310\307.##)\311#\207" |
| 4ea0 | 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 73 20 73 2d 73 70 6c 69 74 20 22 5b 5e | .[case-fold-search.s.s-split."[^ |
| 4ec0 | 5b 3a 77 6f 72 64 3a 5d 30 2d 39 5d 2b 22 20 6e 69 6c 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 | [:word:]0-9]+".nil.replace-regex |
| 4ee0 | 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 28 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 5c 5c | p-in-string."\\([[:lower:]]\\)\\ |
| 4f00 | 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5c 5c 29 22 20 22 5c 5c 31 20 5c 5c 32 22 20 22 5c 5c 28 5b | ([[:upper:]]\\)"."\\1.\\2"."\\([ |
| 4f20 | 5b 3a 75 70 70 65 72 3a 5d 5d 5c 5c 29 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5b 30 2d 39 5b | [:upper:]]\\)\\([[:upper:]][0-9[ |
| 4f40 | 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 22 20 74 5d 20 39 20 28 23 24 20 2e 20 32 30 30 31 36 29 5d | :lower:]]\\)".t].9.(#$...20016)] |
| 4f60 | 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c | ).(byte-code."\300\301\302\303#\ |
| 4f80 | 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 70 6c 69 74 2d 77 | 300\207".[function-put.s-split-w |
| 4fa0 | 6f 72 64 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 36 39 | ords.side-effect-free.t].4).#@69 |
| 4fc0 | 20 4c 69 6b 65 20 4d 41 50 43 41 52 2c 20 62 75 74 20 61 70 70 6c 69 65 73 20 61 20 64 69 66 66 | .Like.MAPCAR,.but.applies.a.diff |
| 4fe0 | 65 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d | erent.function.to.the.first.elem |
| 5000 | 65 6e 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 2d 6d 61 70 63 61 72 2d 68 65 61 64 20 | ent...(defalias.'s--mapcar-head. |
| 5020 | 23 5b 28 66 6e 2d 68 65 61 64 20 66 6e 2d 72 65 73 74 20 6c 69 73 74 29 20 22 08 5c 32 30 35 0e | #[(fn-head.fn-rest.list).".\205. |
| 5040 | 00 09 08 40 21 5c 33 30 33 5c 6e 08 41 5c 22 42 5c 32 30 37 22 20 5b 6c 69 73 74 20 66 6e 2d 68 | ...@!\303\n.A\"B\207".[list.fn-h |
| 5060 | 65 61 64 20 66 6e 2d 72 65 73 74 20 6d 61 70 63 61 72 5d 20 34 20 28 23 24 20 2e 20 32 30 34 31 | ead.fn-rest.mapcar].4.(#$...2041 |
| 5080 | 37 29 5d 29 0a 23 40 33 30 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 43 61 6d 65 | 7)]).#@30.Convert.S.to.lowerCame |
| 50a0 | 6c 43 61 73 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 6f 77 65 72 2d 63 61 6d 65 6c | lCase...(defalias.'s-lower-camel |
| 50c0 | 2d 63 61 73 65 20 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 | -case.#[(s)."\301\302\303\304\30 |
| 50e0 | 35 5c 33 30 36 08 21 23 5c 22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 73 2d 2d | 5\306.!#\"\207".[s.s-join."".s-- |
| 5100 | 6d 61 70 63 61 72 2d 68 65 61 64 20 64 6f 77 6e 63 61 73 65 20 63 61 70 69 74 61 6c 69 7a 65 20 | mapcar-head.downcase.capitalize. |
| 5120 | 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 37 20 28 23 24 20 2e 20 32 30 36 31 38 29 5d 29 0a | s-split-words].7.(#$...20618)]). |
| 5140 | 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 | (byte-code."\300\301\302\303#\30 |
| 5160 | 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 6f 77 65 72 2d 63 61 6d | 0\207".[function-put.s-lower-cam |
| 5180 | 65 6c 2d 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 | el-case.side-effect-free.t].4).# |
| 51a0 | 40 33 30 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 55 70 70 65 72 43 61 6d 65 6c 43 61 73 65 2e | @30.Convert.S.to.UpperCamelCase. |
| 51c0 | 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 70 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 | ..(defalias.'s-upper-camel-case. |
| 51e0 | 23 5b 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c | #[(s)."\301\302\303\304\305.!\"\ |
| 5200 | 22 5c 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20 63 61 70 69 74 | "\207".[s.s-join."".mapcar.capit |
| 5220 | 61 6c 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 30 39 | alize.s-split-words].6.(#$...209 |
| 5240 | 30 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 | 00)]).(byte-code."\300\301\302\3 |
| 5260 | 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 75 70 70 | 03#\300\207".[function-put.s-upp |
| 5280 | 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 | er-camel-case.side-effect-free.t |
| 52a0 | 5d 20 34 29 0a 23 40 32 36 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 73 6e 61 6b 65 5f 63 61 73 | ].4).#@26.Convert.S.to.snake_cas |
| 52c0 | 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 6e 61 6b 65 2d 63 61 73 65 20 23 5b 28 73 | e...(defalias.'s-snake-case.#[(s |
| 52e0 | 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30 | )."\301\302\303\304\305.!\"\"\20 |
| 5300 | 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 5f 22 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 | 7".[s.s-join."_".mapcar.downcase |
| 5320 | 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 31 36 32 29 5d 29 | .s-split-words].6.(#$...21162)]) |
| 5340 | 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 | .(byte-code."\300\301\302\303#\3 |
| 5360 | 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 73 6e 61 6b 65 2d 63 61 | 00\207".[function-put.s-snake-ca |
| 5380 | 73 65 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 32 38 20 43 | se.side-effect-free.t].4).#@28.C |
| 53a0 | 6f 6e 76 65 72 74 20 53 20 74 6f 20 64 61 73 68 65 64 2d 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61 | onvert.S.to.dashed-words...(defa |
| 53c0 | 6c 69 61 73 20 27 73 2d 64 61 73 68 65 64 2d 77 6f 72 64 73 20 23 5b 28 73 29 20 22 5c 33 30 31 | lias.'s-dashed-words.#[(s)."\301 |
| 53e0 | 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 30 37 22 20 5b 73 20 73 | \302\303\304\305.!\"\"\207".[s.s |
| 5400 | 2d 6a 6f 69 6e 20 22 2d 22 20 6d 61 70 63 61 72 20 64 6f 77 6e 63 61 73 65 20 73 2d 73 70 6c 69 | -join."-".mapcar.downcase.s-spli |
| 5420 | 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 34 30 37 29 5d 29 0a 28 62 79 74 65 2d | t-words].6.(#$...21407)]).(byte- |
| 5440 | 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 | code."\300\301\302\303#\300\207" |
| 5460 | 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 64 61 73 68 65 64 2d 77 6f 72 64 73 20 73 69 | .[function-put.s-dashed-words.si |
| 5480 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 33 33 20 43 6f 6e 76 65 72 | de-effect-free.t].4).#@33.Conver |
| 54a0 | 74 20 53 20 74 6f 20 43 61 70 69 74 61 6c 69 7a 65 64 20 77 6f 72 64 73 2e 1f 0a 28 64 65 66 61 | t.S.to.Capitalized.words...(defa |
| 54c0 | 6c 69 61 73 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 2d 77 6f 72 64 73 20 23 5b 28 73 29 20 | lias.'s-capitalized-words.#[(s). |
| 54e0 | 22 5c 33 30 32 08 21 19 5c 33 30 33 5c 33 30 34 5c 33 30 35 09 40 21 5c 33 30 36 5c 33 30 37 09 | "\302.!.\303\304\305.@!\306\307. |
| 5500 | 41 5c 22 42 5c 22 29 5c 32 30 37 22 20 5b 73 20 77 6f 72 64 73 20 73 2d 73 70 6c 69 74 2d 77 6f | A\"B\")\207".[s.words.s-split-wo |
| 5520 | 72 64 73 20 73 2d 6a 6f 69 6e 20 22 20 22 20 63 61 70 69 74 61 6c 69 7a 65 20 6d 61 70 63 61 72 | rds.s-join.".".capitalize.mapcar |
| 5540 | 20 64 6f 77 6e 63 61 73 65 5d 20 36 20 28 23 24 20 2e 20 32 31 36 35 38 29 5d 29 0a 28 62 79 74 | .downcase].6.(#$...21658)]).(byt |
| 5560 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 | e-code."\300\301\302\303#\300\20 |
| 5580 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 2d 77 | 7".[function-put.s-capitalized-w |
| 55a0 | 6f 72 64 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 33 31 | ords.side-effect-free.t].4).#@31 |
| 55c0 | 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 54 69 74 6c 65 69 7a 65 64 20 57 6f 72 64 73 2e 1f 0a | .Convert.S.to.Titleized.Words... |
| 55e0 | 28 64 65 66 61 6c 69 61 73 20 27 73 2d 74 69 74 6c 65 69 7a 65 64 2d 77 6f 72 64 73 20 23 5b 28 | (defalias.'s-titleized-words.#[( |
| 5600 | 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c 32 | s)."\301\302\303\304\305.!\"\"\2 |
| 5620 | 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 20 22 20 6d 61 70 63 61 72 20 73 2d 74 69 74 6c 65 | 07".[s.s-join.".".mapcar.s-title |
| 5640 | 69 7a 65 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 31 39 35 33 | ize.s-split-words].6.(#$...21953 |
| 5660 | 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 | )]).(byte-code."\300\301\302\303 |
| 5680 | 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 74 69 74 6c 65 | #\300\207".[function-put.s-title |
| 56a0 | 69 7a 65 64 2d 77 6f 72 64 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 | ized-words.side-effect-free.t].4 |
| 56c0 | 29 0a 23 40 32 38 20 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 69 74 73 20 69 6e 69 74 69 61 6c 73 | ).#@28.Convert.S.to.its.initials |
| 56e0 | 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 6f 72 64 2d 69 6e 69 74 69 61 6c 73 20 23 5b | ...(defalias.'s-word-initials.#[ |
| 5700 | 28 73 29 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 08 21 5c 22 5c 22 5c | (s)."\301\302\303\304\305.!\"\"\ |
| 5720 | 32 30 37 22 20 5b 73 20 73 2d 6a 6f 69 6e 20 22 22 20 6d 61 70 63 61 72 20 23 5b 28 73 73 29 20 | 207".[s.s-join."".mapcar.#[(ss). |
| 5740 | 22 08 5c 33 30 31 5c 33 30 32 4f 5c 32 30 37 22 20 5b 73 73 20 30 20 31 5d 20 33 5d 20 73 2d 73 | ".\301\302O\207".[ss.0.1].3].s-s |
| 5760 | 70 6c 69 74 2d 77 6f 72 64 73 5d 20 36 20 28 23 24 20 2e 20 32 32 32 31 35 29 5d 29 0a 28 62 79 | plit-words].6.(#$...22215)]).(by |
| 5780 | 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 34 5c 33 | te-code."\300\301\302\303#\304\3 |
| 57a0 | 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 31 30 5c 33 31 31 23 | 05\306\307#\210\304\305\310\311# |
| 57c0 | 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 77 6f 72 64 2d 69 6e 69 74 69 | \207".[function-put.s-word-initi |
| 57e0 | 61 6c 73 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 20 70 75 74 20 73 2d 66 6f 72 | als.side-effect-free.t.put.s-for |
| 5800 | 6d 61 74 2d 72 65 73 6f 6c 76 65 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 20 28 65 72 | mat-resolve.error-conditions.(er |
| 5820 | 72 6f 72 20 73 2d 66 6f 72 6d 61 74 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 29 20 65 | ror.s-format.s-format-resolve).e |
| 5840 | 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 22 43 61 6e 6e 6f 74 20 72 65 73 6f 6c 76 65 20 61 20 74 | rror-message."Cannot.resolve.a.t |
| 5860 | 65 6d 70 6c 61 74 65 20 74 6f 20 76 61 6c 75 65 73 22 5d 20 35 29 0a 23 40 34 35 38 20 46 6f 72 | emplate.to.values"].5).#@458.For |
| 5880 | 6d 61 74 20 54 45 4d 50 4c 41 54 45 20 77 69 74 68 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 52 | mat.TEMPLATE.with.the.function.R |
| 58a0 | 45 50 4c 41 43 45 52 2e 0a 0a 52 45 50 4c 41 43 45 52 20 74 61 6b 65 73 20 61 6e 20 61 72 67 75 | EPLACER...REPLACER.takes.an.argu |
| 58c0 | 6d 65 6e 74 20 6f 66 20 74 68 65 20 66 6f 72 6d 61 74 20 76 61 72 69 61 62 6c 65 20 61 6e 64 20 | ment.of.the.format.variable.and. |
| 58e0 | 6f 70 74 69 6f 6e 61 6c 6c 79 0a 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 20 77 68 69 | optionally.an.extra.argument.whi |
| 5900 | 63 68 20 69 73 20 74 68 65 20 45 58 54 52 41 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20 63 | ch.is.the.EXTRA.value.from.the.c |
| 5920 | 61 6c 6c 20 74 6f 0a 60 73 2d 66 6f 72 6d 61 74 27 2e 0a 0a 53 65 76 65 72 61 6c 20 73 74 61 6e | all.to.`s-format'...Several.stan |
| 5940 | 64 61 72 64 20 60 73 2d 66 6f 72 6d 61 74 27 20 68 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 | dard.`s-format'.helper.functions |
| 5960 | 20 61 72 65 20 72 65 63 6f 67 6e 69 7a 65 64 20 61 6e 64 0a 61 64 61 70 74 65 64 20 66 6f 72 20 | .are.recognized.and.adapted.for. |
| 5980 | 74 68 69 73 3a 0a 0a 20 20 20 20 28 73 2d 66 6f 72 6d 61 74 20 22 24 7b 6e 61 6d 65 7d 22 20 27 | this:......(s-format."${name}".' |
| 59a0 | 67 65 74 68 61 73 68 20 68 61 73 68 2d 74 61 62 6c 65 29 0a 20 20 20 20 28 73 2d 66 6f 72 6d 61 | gethash.hash-table).....(s-forma |
| 59c0 | 74 20 22 24 7b 6e 61 6d 65 7d 22 20 27 61 67 65 74 20 61 6c 69 73 74 29 0a 20 20 20 20 28 73 2d | t."${name}".'aget.alist).....(s- |
| 59e0 | 66 6f 72 6d 61 74 20 22 24 30 22 20 27 65 6c 74 20 73 65 71 75 65 6e 63 65 29 0a 0a 54 68 65 20 | format."$0".'elt.sequence)..The. |
| 5a00 | 52 45 50 4c 41 43 45 52 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f | REPLACER.function.may.be.used.to |
| 5a20 | 20 64 6f 20 61 6e 79 20 6f 74 68 65 72 20 6b 69 6e 64 20 6f 66 0a 74 72 61 6e 73 66 6f 72 6d 61 | .do.any.other.kind.of.transforma |
| 5a40 | 74 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 66 6f 72 6d 61 74 20 23 5b 28 74 65 | tion...(defalias.'s-format.#[(te |
| 5a60 | 6d 70 6c 61 74 65 20 72 65 70 6c 61 63 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 74 72 61 29 | mplate.replacer.&optional.extra) |
| 5a80 | 20 22 5c 33 30 32 20 18 5c 33 30 33 5c 32 31 36 5c 33 30 34 5c 33 30 35 5c 33 30 36 09 5c 33 30 | ."\302..\303\216\304\305\306.\30 |
| 5aa0 | 37 5c 32 31 31 25 2a 5c 32 30 37 22 20 5b 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 74 | 7\211%*\207".[saved-match-data.t |
| 5ac0 | 65 6d 70 6c 61 74 65 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 | emplate.match-data.#[nil."\301.! |
| 5ae0 | 5c 32 30 37 22 20 5b 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 65 74 2d 6d 61 74 63 | \207".[saved-match-data.set-matc |
| 5b00 | 68 2d 64 61 74 61 5d 20 32 5d 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 | h-data].2].replace-regexp-in-str |
| 5b20 | 69 6e 67 20 22 5c 5c 24 5c 5c 28 7b 5c 5c 28 5b 5e 7d 5d 2b 5c 5c 29 7d 5c 5c 7c 5b 30 2d 39 5d | ing."\\$\\({\\([^}]+\\)}\\|[0-9] |
| 5b40 | 2b 5c 5c 29 22 20 23 5b 28 6d 64 29 20 22 5c 33 30 36 5c 33 30 37 08 5c 22 5c 32 31 31 19 5c 32 | +\\)".#[(md)."\306\307.\"\211.\2 |
| 5b60 | 30 33 0d 00 09 5c 32 30 32 13 00 5c 33 31 30 5c 33 30 36 5c 33 31 31 08 5c 22 21 29 5c 33 31 32 | 03...\202..\310\306\311.\"!)\312 |
| 5b80 | 20 1a 1b 5c 33 31 33 5c 32 31 36 5c 66 5c 33 31 34 5c 32 36 37 5c 32 30 32 3e 00 5c 66 0b 0d 5c | ...\313\216\f\314\267\202>.\f..\ |
| 5ba0 | 22 5c 32 30 32 51 00 5c 33 31 35 0d 0b 5c 22 5c 32 30 32 51 00 5c 66 0d 0b 5c 22 5c 32 30 32 51 | "\202Q.\315..\"\202Q.\f..\"\202Q |
| 5bc0 | 00 5c 33 31 36 0d 5c 33 31 37 0b 21 5c 22 5c 32 30 32 51 00 5c 33 32 30 0e 15 21 5c 32 31 30 0d | .\316.\317.!\"\202Q.\320..!\210. |
| 5be0 | 5c 32 30 33 4e 00 5c 66 0b 0d 5c 22 5c 32 30 32 51 00 5c 66 0b 21 5c 32 31 31 1e 16 5c 32 30 33 | \203N.\f..\"\202Q.\f.!\211..\203 |
| 5c00 | 5f 00 5c 33 32 31 5c 33 32 32 0e 16 5c 22 5c 32 30 32 63 00 5c 33 32 33 5c 33 32 34 08 5c 22 2c | _.\321\322..\"\202c.\323\324.\", |
| 5c20 | 5c 32 30 37 22 20 5b 6d 64 20 6d 20 72 65 70 6c 61 63 65 72 2d 6d 61 74 63 68 2d 64 61 74 61 20 | \207".[md.m.replacer-match-data. |
| 5c40 | 76 61 72 20 72 65 70 6c 61 63 65 72 20 65 78 74 72 61 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 | var.replacer.extra.match-string. |
| 5c60 | 32 20 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 31 20 6d 61 74 63 68 2d 64 61 74 61 20 | 2.string-to-number.1.match-data. |
| 5c80 | 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 72 2d 6d 61 74 | #[nil."\301.!\207".[replacer-mat |
| 5ca0 | 63 68 2d 64 61 74 61 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 5d 20 32 5d 20 23 73 28 68 61 | ch-data.set-match-data].2].#s(ha |
| 5cc0 | 73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 34 20 74 65 73 74 20 65 71 20 72 65 68 61 73 68 2d 73 | sh-table.size.4.test.eq.rehash-s |
| 5ce0 | 69 7a 65 20 31 2e 35 20 72 65 68 61 73 68 2d 74 68 72 65 73 68 6f 6c 64 20 30 2e 38 31 32 35 20 | ize.1.5.rehash-threshold.0.8125. |
| 5d00 | 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 67 65 74 68 61 73 68 20 33 32 20 61 67 65 74 | purecopy.t.data.(gethash.32.aget |
| 5d20 | 20 33 39 20 65 6c 74 20 34 36 20 6f 72 65 66 20 35 33 29 29 20 73 2d 2d 61 67 65 74 20 73 6c 6f | .39.elt.46.oref.53)).s--aget.slo |
| 5d40 | 74 2d 76 61 6c 75 65 20 69 6e 74 65 72 6e 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 66 6f | t-value.intern.set-match-data.fo |
| 5d60 | 72 6d 61 74 20 22 25 73 22 20 73 69 67 6e 61 6c 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 | rmat."%s".signal.s-format-resolv |
| 5d80 | 65 20 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 20 76 5d 20 35 5d 20 74 5d 20 36 20 28 23 | e.saved-match-data.v].5].t].6.(# |
| 5da0 | 24 20 2e 20 32 32 36 35 33 29 5d 29 0a 23 40 39 32 20 49 66 20 60 74 27 20 69 6e 74 65 72 70 6f | $...22653)]).#@92.If.`t'.interpo |
| 5dc0 | 6c 61 74 65 20 6c 69 73 70 20 76 61 6c 75 65 73 20 61 73 20 6c 69 73 70 2e 0a 0a 60 73 2d 6c 65 | late.lisp.values.as.lisp...`s-le |
| 5de0 | 78 2d 66 6f 72 6d 61 74 27 20 69 6e 73 65 72 74 73 20 76 61 6c 75 65 73 20 77 69 74 68 20 28 66 | x-format'.inserts.values.with.(f |
| 5e00 | 6f 72 6d 61 74 20 22 25 53 22 29 2e 1f 0a 28 64 65 66 76 61 72 20 73 2d 6c 65 78 2d 76 61 6c 75 | ormat."%S")...(defvar.s-lex-valu |
| 5e20 | 65 2d 61 73 2d 6c 69 73 70 20 6e 69 6c 20 28 23 24 20 2e 20 32 33 39 38 36 29 29 0a 23 40 32 33 | e-as-lisp.nil.(#$...23986)).#@23 |
| 5e40 | 20 45 78 70 61 6e 64 20 46 4d 54 20 69 6e 74 6f 20 6c 69 73 70 2e 1f 0a 28 64 65 66 61 6c 69 61 | .Expand.FMT.into.lisp...(defalia |
| 5e60 | 73 20 27 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 20 23 5b 28 66 6d 74 29 20 22 5c 33 30 | s.'s-lex-fmt|expand.#[(fmt)."\30 |
| 5e80 | 31 08 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 08 5c | 1.\302\303\304\305\306\307\310.\ |
| 5ea0 | 22 5c 22 5c 22 46 5c 32 30 37 22 20 5b 66 6d 74 20 73 2d 66 6f 72 6d 61 74 20 27 61 67 65 74 20 | "\"\"F\207".[fmt.s-format.'aget. |
| 5ec0 | 61 70 70 65 6e 64 20 28 6c 69 73 74 29 20 6d 61 70 63 61 72 20 23 5b 28 6d 61 74 63 68 65 73 29 | append.(list).mapcar.#[(matches) |
| 5ee0 | 20 22 5c 33 30 31 08 41 40 5c 33 30 32 5c 33 30 33 5c 33 30 34 08 41 40 21 45 45 5c 32 30 37 22 | ."\301.A@\302\303\304.A@!EE\207" |
| 5f00 | 20 5b 6d 61 74 63 68 65 73 20 63 6f 6e 73 20 66 6f 72 6d 61 74 20 28 69 66 20 73 2d 6c 65 78 2d | .[matches.cons.format.(if.s-lex- |
| 5f20 | 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 20 22 25 53 22 20 22 25 73 22 29 20 69 6e 74 65 72 6e 5d | value-as-lisp."%S"."%s").intern] |
| 5f40 | 20 36 5d 20 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 22 24 7b 5c 5c 28 5b 5e | .6].s-match-strings-all."${\\([^ |
| 5f60 | 7d 5d 2b 5c 5c 29 7d 22 5d 20 31 30 20 28 23 24 20 2e 20 32 34 31 32 39 29 5d 29 0a 28 62 79 74 | }]+\\)}"].10.(#$...24129)]).(byt |
| 5f80 | 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 | e-code."\300\301\302\303#\300\20 |
| 5fa0 | 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e | 7".[function-put.s-lex-fmt|expan |
| 5fc0 | 64 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 33 31 36 20 60 | d.side-effect-free.t].4).#@316.` |
| 5fe0 | 73 2d 66 6f 72 6d 61 74 60 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 65 6e 76 69 72 | s-format`.with.the.current.envir |
| 6000 | 6f 6e 6d 65 6e 74 2e 0a 0a 46 4f 52 4d 41 54 2d 53 54 52 20 6d 61 79 20 75 73 65 20 74 68 65 20 | onment...FORMAT-STR.may.use.the. |
| 6020 | 60 73 2d 66 6f 72 6d 61 74 27 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 20 74 6f | `s-format'.variable.reference.to |
| 6040 | 20 72 65 66 65 72 20 74 6f 0a 61 6e 79 20 76 61 72 69 61 62 6c 65 3a 0a 0a 20 28 6c 65 74 20 28 | .refer.to.any.variable:...(let.( |
| 6060 | 28 78 20 31 29 29 0a 20 20 20 28 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 22 78 20 69 73 3a 20 24 | (x.1))....(s-lex-format."x.is:.$ |
| 6080 | 7b 78 7d 22 29 29 0a 0a 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 | {x}"))..The.values.of.the.variab |
| 60a0 | 6c 65 73 20 61 72 65 20 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 20 22 25 73 22 20 75 | les.are.interpolated.with."%s".u |
| 60c0 | 6e 6c 65 73 73 0a 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 73 2d 6c 65 78 2d 76 61 6c 75 65 2d | nless.the.variable.`s-lex-value- |
| 60e0 | 61 73 2d 6c 69 73 70 27 20 69 73 20 60 74 27 20 61 6e 64 20 74 68 65 6e 20 74 68 65 79 20 61 72 | as-lisp'.is.`t'.and.then.they.ar |
| 6100 | 65 0a 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 20 22 25 53 22 2e 1f 0a 28 64 65 66 61 | e.interpolated.with."%S"...(defa |
| 6120 | 6c 69 61 73 20 27 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 | lias.'s-lex-format.'(macro...#[( |
| 6140 | 66 6f 72 6d 61 74 2d 73 74 72 29 20 22 5c 33 30 31 08 21 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 | format-str)."\301.!\207".[format |
| 6160 | 2d 73 74 72 20 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 5d 20 32 20 28 23 24 20 2e 20 32 | -str.s-lex-fmt|expand].2.(#$...2 |
| 6180 | 34 35 34 33 29 5d 29 29 0a 28 70 75 74 20 27 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 27 65 64 65 | 4543)])).(put.'s-lex-format.'ede |
| 61a0 | 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 27 28 66 6f 72 6d 29 29 0a 23 40 34 31 37 20 43 6f 75 | bug-form-spec.'(form)).#@417.Cou |
| 61c0 | 6e 74 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 | nt.occurrences.of.`regexp'.in.`s |
| 61e0 | 27 2e 0a 0a 60 73 74 61 72 74 27 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 | '...`start',.inclusive,.and.`end |
| 6200 | 27 2c 20 65 78 63 6c 75 73 69 76 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f | ',.exclusive,.delimit.the.part.o |
| 6220 | 66 20 60 73 27 20 74 6f 0a 6d 61 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e | f.`s'.to.match...`start'.and.`en |
| 6240 | 64 27 20 61 72 65 20 62 6f 74 68 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 | d'.are.both.indexed.starting.at. |
| 6260 | 31 3b 20 74 68 65 20 69 6e 69 74 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 | 1;.the.initial.character.in.`s'. |
| 6280 | 69 73 20 69 6e 64 65 78 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 | is.index.1...This.function.start |
| 62a0 | 73 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f | s.looking.for.the.next.match.fro |
| 62c0 | 6d 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 6d 61 74 63 68 2e | m.the.end.of.the.previous.match. |
| 62e0 | 20 20 48 65 6e 63 65 2c 20 69 74 20 69 67 6e 6f 72 65 73 20 6d 61 74 63 68 65 73 20 74 68 61 74 | ..Hence,.it.ignores.matches.that |
| 6300 | 20 6f 76 65 72 6c 61 70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 0a 66 6f 75 6e 64 20 6d 61 74 63 | .overlap.a.previously.found.matc |
| 6320 | 68 2e 20 20 54 6f 20 63 6f 75 6e 74 20 6f 76 65 72 6c 61 70 70 69 6e 67 20 6d 61 74 63 68 65 73 | h...To.count.overlapping.matches |
| 6340 | 2c 20 75 73 65 0a 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 27 2e 1f 0a 28 64 | ,.use.`s-count-matches-all'...(d |
| 6360 | 65 66 61 6c 69 61 73 20 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 23 5b 28 72 65 67 65 | efalias.'s-count-matches.#[(rege |
| 6380 | 78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 20 22 5c 33 30 36 20 | xp.s.&optional.start.end)."\306. |
| 63a0 | 18 5c 33 30 37 5c 32 31 36 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 22 19 72 09 71 5c 32 31 30 5c | .\307\216\310\311\312\".r.q\210\ |
| 63c0 | 33 31 33 5c 32 31 36 5c 6e 63 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 34 0b 5c 66 5c 32 30 36 1d | 313\216\nc\210eb\210\314.\f\206. |
| 63e0 | 00 5c 33 31 35 0d 5c 32 30 36 5c 22 00 64 23 2d 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 | .\315.\206\".d#-\207".[save-matc |
| 6400 | 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 23 31 3d 23 3a 74 65 6d 70 2d 62 75 66 66 65 72 | h-data-internal.#1=#:temp-buffer |
| 6420 | 20 73 20 72 65 67 65 78 70 20 73 74 61 72 74 20 65 6e 64 20 6d 61 74 63 68 2d 64 61 74 61 20 23 | .s.regexp.start.end.match-data.# |
| 6440 | 5b 6e 69 6c 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 | [nil."\301.\302\"\207".[save-mat |
| 6460 | 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 | ch-data-internal.set-match-data. |
| 6480 | 65 76 61 70 6f 72 61 74 65 5d 20 33 5d 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 | evaporate].3].generate-new-buffe |
| 64a0 | 72 20 22 20 2a 74 65 6d 70 2a 22 20 74 20 23 5b 6e 69 6c 20 22 5c 33 30 31 08 21 5c 32 30 35 09 | r.".*temp*".t.#[nil."\301.!\205. |
| 64c0 | 00 5c 33 30 32 08 21 5c 32 30 37 22 20 5b 23 31 23 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 | .\302.!\207".[#1#.buffer-name.ki |
| 64e0 | 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 31 5d 20 34 | ll-buffer].2].count-matches.1].4 |
| 6500 | 20 28 23 24 20 2e 20 32 35 30 32 31 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 | .(#$...25021)]).(byte-code."\300 |
| 6520 | 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e | \301\302\303#\300\207".[function |
| 6540 | 2d 70 75 74 20 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 73 69 64 65 2d 65 66 66 65 63 74 | -put.s-count-matches.side-effect |
| 6560 | 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 34 35 32 20 43 6f 75 6e 74 20 6f 63 63 75 72 72 65 6e | -free.t].4).#@452.Count.occurren |
| 6580 | 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 2e 0a 0a 60 73 74 61 72 74 27 | ces.of.`regexp'.in.`s'...`start' |
| 65a0 | 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 2c 20 65 78 63 6c 75 73 69 76 | ,.inclusive,.and.`end',.exclusiv |
| 65c0 | 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 20 60 73 27 20 74 6f 0a 6d 61 | e,.delimit.the.part.of.`s'.to.ma |
| 65e0 | 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 27 20 61 72 65 20 62 6f 74 68 | tch...`start'.and.`end'.are.both |
| 6600 | 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 3b 20 74 68 65 20 69 6e 69 74 | .indexed.starting.at.1;.the.init |
| 6620 | 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 73 20 69 6e 64 65 78 20 31 2e | ial.character.in.`s'.is.index.1. |
| 6640 | 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 20 6c 6f 6f 6b 69 6e 67 20 66 | ..This.function.starts.looking.f |
| 6660 | 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d 20 74 68 65 20 73 65 63 6f 6e | or.the.next.match.from.the.secon |
| 6680 | 64 0a 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6d 61 74 63 | d.character.of.the.previous.matc |
| 66a0 | 68 2e 20 20 48 65 6e 63 65 2c 20 69 74 20 63 6f 75 6e 74 73 20 6d 61 74 63 68 65 73 20 74 68 61 | h...Hence,.it.counts.matches.tha |
| 66c0 | 74 0a 6f 76 65 72 6c 61 70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 20 6d 61 74 | t.overlap.a.previously.found.mat |
| 66e0 | 63 68 2e 20 20 54 6f 20 69 67 6e 6f 72 65 20 6d 61 74 63 68 65 73 20 74 68 61 74 20 6f 76 65 72 | ch...To.ignore.matches.that.over |
| 6700 | 6c 61 70 20 61 0a 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 20 6d 61 74 63 68 2c 20 75 73 | lap.a.previously.found.match,.us |
| 6720 | 65 20 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 | e.`s-count-matches'...(defalias. |
| 6740 | 27 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 23 5b 28 72 65 67 65 78 70 20 73 | 's-count-matches-all.#[(regexp.s |
| 6760 | 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 20 22 5c 33 30 36 5c 33 30 37 08 | .&optional.start.end)."\306\307. |
| 6780 | 5c 22 19 5c 33 31 30 5c 32 31 31 1a 1b 5c 66 0d 5c 32 30 35 10 00 0d 53 0e 0d 5c 32 30 35 18 00 | \".\310\211..\f.\205...S..\205.. |
| 67a0 | 0e 0d 53 4f 1e 0e 5c 33 31 31 20 1e 0f 5c 33 31 32 5c 32 31 36 0b 0e 0e 47 57 5c 32 30 33 3e 00 | ..SO..\311...\312\216...GW\203>. |
| 67c0 | 5c 33 31 33 09 0e 0e 0b 5c 33 31 34 4f 5c 22 5c 32 30 33 37 00 5c 6e 54 12 0b 54 5c 32 31 31 13 | \313....\314O\"\2037.\nT..T\211. |
| 67e0 | 5c 32 30 32 5c 22 00 2a 5c 6e 2c 5c 32 30 37 22 20 5b 72 65 67 65 78 70 20 61 6e 63 68 6f 72 65 | \202\".*\n,\207".[regexp.anchore |
| 6800 | 64 2d 72 65 67 65 78 70 20 6d 61 74 63 68 2d 63 6f 75 6e 74 20 69 20 73 20 73 74 61 72 74 20 66 | d-regexp.match-count.i.s.start.f |
| 6820 | 6f 72 6d 61 74 20 22 5e 25 73 22 20 30 20 6d 61 74 63 68 2d 64 61 74 61 20 23 5b 6e 69 6c 20 22 | ormat."^%s".0.match-data.#[nil." |
| 6840 | 5c 33 30 31 08 5c 33 30 32 5c 22 5c 32 30 37 22 20 5b 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 | \301.\302\"\207".[save-match-dat |
| 6860 | 61 2d 69 6e 74 65 72 6e 61 6c 20 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 65 76 61 70 6f 72 | a-internal.set-match-data.evapor |
| 6880 | 61 74 65 5d 20 33 5d 20 73 2d 6d 61 74 63 68 65 73 5c 3f 20 6e 69 6c 20 65 6e 64 20 6e 61 72 72 | ate].3].s-matches\?.nil.end.narr |
| 68a0 | 6f 77 65 64 2d 73 20 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 2d 69 6e 74 65 72 6e 61 6c 5d | owed-s.save-match-data-internal] |
| 68c0 | 20 36 20 28 23 24 20 2e 20 32 35 39 37 30 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 | .6.(#$...25970)]).(byte-code."\3 |
| 68e0 | 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 | 00\301\302\303#\300\207".[functi |
| 6900 | 6f 6e 2d 70 75 74 20 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 73 69 64 65 2d | on-put.s-count-matches-all.side- |
| 6920 | 65 66 66 65 63 74 2d 66 72 65 65 20 74 5d 20 34 29 0a 23 40 31 38 31 20 57 72 61 70 20 73 74 72 | effect-free.t].4).#@181.Wrap.str |
| 6940 | 69 6e 67 20 53 20 77 69 74 68 20 50 52 45 46 49 58 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79 | ing.S.with.PREFIX.and.optionally |
| 6960 | 20 53 55 46 46 49 58 2e 0a 0a 52 65 74 75 72 6e 20 73 74 72 69 6e 67 20 53 20 77 69 74 68 20 50 | .SUFFIX...Return.string.S.with.P |
| 6980 | 52 45 46 49 58 20 70 72 65 70 65 6e 64 65 64 2e 20 20 49 66 20 53 55 46 46 49 58 20 69 73 20 70 | REFIX.prepended...If.SUFFIX.is.p |
| 69a0 | 72 65 73 65 6e 74 2c 20 69 74 0a 69 73 20 61 70 70 65 6e 64 65 64 2c 20 6f 74 68 65 72 77 69 73 | resent,.it.is.appended,.otherwis |
| 69c0 | 65 20 50 52 45 46 49 58 20 69 73 20 75 73 65 64 20 61 73 20 62 6f 74 68 20 70 72 65 66 69 78 20 | e.PREFIX.is.used.as.both.prefix. |
| 69e0 | 61 6e 64 0a 73 75 66 66 69 78 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 77 72 61 70 20 23 | and.suffix...(defalias.'s-wrap.# |
| 6a00 | 5b 28 73 20 70 72 65 66 69 78 20 26 6f 70 74 69 6f 6e 61 6c 20 73 75 66 66 69 78 29 20 22 08 09 | [(s.prefix.&optional.suffix).".. |
| 6a20 | 5c 6e 5c 32 30 36 07 00 08 51 5c 32 30 37 22 20 5b 70 72 65 66 69 78 20 73 20 73 75 66 66 69 78 | \n\206...Q\207".[prefix.s.suffix |
| 6a40 | 5d 20 33 20 28 23 24 20 2e 20 32 36 39 33 36 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c | ].3.(#$...26936)]).(byte-code."\ |
| 6a60 | 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 23 5c 33 30 30 5c 33 30 31 5c 33 30 34 5c 33 30 33 | 300\301\302\303#\300\301\304\303 |
| 6a80 | 23 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 30 5c 33 31 31 5c | #\305\306\307\"\210\305\310\311\ |
| 6aa0 | 22 5c 32 31 30 5c 33 30 35 5c 33 31 32 5c 33 31 33 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 34 5c | "\210\305\312\313\"\210\305\314\ |
| 6ac0 | 33 31 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 31 36 5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35 5c | 315\"\210\305\316\317\"\210\305\ |
| 6ae0 | 33 32 30 5c 33 32 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 32 5c 33 32 33 5c 22 5c 32 31 30 5c | 320\321\"\210\305\322\323\"\210\ |
| 6b00 | 33 30 35 5c 33 32 34 5c 33 32 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 32 36 5c 33 32 37 5c 22 5c | 305\324\325\"\210\305\326\327\"\ |
| 6b20 | 32 31 30 5c 33 30 35 5c 33 33 30 5c 33 33 31 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 32 5c 33 33 | 210\305\330\331\"\210\305\332\33 |
| 6b40 | 33 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 34 5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 | 3\"\210\305\334\335\"\210\305\33 |
| 6b60 | 36 5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 33 37 5c 33 34 30 5c 22 5c 32 31 30 5c 33 30 | 6\335\"\210\305\337\340\"\210\30 |
| 6b80 | 35 5c 33 34 31 5c 33 33 35 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 32 5c 33 31 37 5c 22 5c 32 31 | 5\341\335\"\210\305\342\317\"\21 |
| 6ba0 | 30 5c 33 30 35 5c 33 34 33 5c 33 31 37 5c 22 5c 32 31 30 5c 33 30 35 5c 33 34 34 5c 33 34 35 5c | 0\305\343\317\"\210\305\344\345\ |
| 6bc0 | 22 5c 32 31 30 5c 33 34 36 5c 33 34 37 21 5c 32 30 37 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 | "\210\346\347!\207".[function-pu |
| 6be0 | 74 20 73 2d 77 72 61 70 20 70 75 72 65 20 74 20 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 | t.s-wrap.pure.t.side-effect-free |
| 6c00 | 20 64 65 66 61 6c 69 61 73 20 73 2d 62 6c 61 6e 6b 2d 70 20 73 2d 62 6c 61 6e 6b 5c 3f 20 73 2d | .defalias.s-blank-p.s-blank\?.s- |
| 6c20 | 62 6c 61 6e 6b 2d 73 74 72 2d 70 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 5c 3f 20 73 2d 63 61 70 69 | blank-str-p.s-blank-str\?.s-capi |
| 6c40 | 74 61 6c 69 7a 65 64 2d 70 20 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 5c 3f 20 73 2d 63 6f 6e 74 | talized-p.s-capitalized\?.s-cont |
| 6c60 | 61 69 6e 73 2d 70 20 73 2d 63 6f 6e 74 61 69 6e 73 5c 3f 20 73 2d 65 6e 64 73 2d 77 69 74 68 2d | ains-p.s-contains\?.s-ends-with- |
| 6c80 | 70 20 73 2d 65 6e 64 73 2d 77 69 74 68 5c 3f 20 73 2d 65 71 75 61 6c 73 2d 70 20 73 2d 65 71 75 | p.s-ends-with\?.s-equals-p.s-equ |
| 6ca0 | 61 6c 73 5c 3f 20 73 2d 6c 65 73 73 2d 70 20 73 2d 6c 65 73 73 5c 3f 20 73 2d 6c 6f 77 65 72 63 | als\?.s-less-p.s-less\?.s-lowerc |
| 6cc0 | 61 73 65 2d 70 20 73 2d 6c 6f 77 65 72 63 61 73 65 5c 3f 20 73 2d 6d 61 74 63 68 65 73 2d 70 20 | ase-p.s-lowercase\?.s-matches-p. |
| 6ce0 | 73 2d 6d 61 74 63 68 65 73 5c 3f 20 73 2d 6d 69 78 65 64 63 61 73 65 2d 70 20 73 2d 6d 69 78 65 | s-matches\?.s-mixedcase-p.s-mixe |
| 6d00 | 64 63 61 73 65 5c 3f 20 73 2d 6e 75 6d 65 72 69 63 2d 70 20 73 2d 6e 75 6d 65 72 69 63 5c 3f 20 | dcase\?.s-numeric-p.s-numeric\?. |
| 6d20 | 73 2d 70 72 65 66 69 78 2d 70 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 5c 3f 20 73 2d 70 72 65 | s-prefix-p.s-starts-with\?.s-pre |
| 6d40 | 66 69 78 5c 3f 20 73 2d 70 72 65 73 65 6e 74 2d 70 20 73 2d 70 72 65 73 65 6e 74 5c 3f 20 73 2d | fix\?.s-present-p.s-present\?.s- |
| 6d60 | 73 74 61 72 74 73 2d 77 69 74 68 2d 70 20 73 2d 73 75 66 66 69 78 2d 70 20 73 2d 73 75 66 66 69 | starts-with-p.s-suffix-p.s-suffi |
| 6d80 | 78 5c 3f 20 73 2d 75 70 70 65 72 63 61 73 65 2d 70 20 73 2d 75 70 70 65 72 63 61 73 65 5c 3f 20 | x\?.s-uppercase-p.s-uppercase\?. |
| 6da0 | 70 72 6f 76 69 64 65 20 73 5d 20 35 29 0a | provide.s].5). |
 |
index : emacs.d | |
| emacs config file | Biswakalyan Bhuyan |
| aboutsummaryrefslogtreecommitdiffstats |
blob: ed8fa9de63e0a8188fc59d98fb8112ed0033aa9f (plain)