blob: ba6e3fefee95d218a09c42347c55eb021604a44a (plain)

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 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	imizations.....(byte-code."\300\
0060	33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20	301!\210\300\302!\207".[require.
0080	65 72 74 20 74 79 70 65 73 63 72 69 70 74 2d 6d 6f 64 65 5d 20 32 29 0a 23 40 36 33 20 46 69 6c	ert.typescript-mode].2).#@63.Fil
00a0	6c 20 61 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 20 77 69 74 68 20 60 43 4f 4e 54 45	l.a.temporary.buffer.with.`CONTE
00c0	4e 54 27 20 61 6e 64 20 65 76 61 6c 20 60 42 4f 44 59 27 20 69 6e 20 69 74 2e 1f 0a 28 64 65 66	NT'.and.eval.`BODY'.in.it...(def
00e0	61 6c 69 61 73 20 27 74 65 73 74 2d 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 27 28 6d	alias.'test-with-temp-buffer.'(m
0100	61 63 72 6f 20 2e 20 23 5b 28 63 6f 6e 74 65 6e 74 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c	acro...#[(content.&rest.body)."\
0120	33 30 32 5c 33 30 33 08 44 5c 33 30 34 5c 33 30 35 5c 33 30 36 09 42 42 42 42 42 5c 32 30 37 22	302\303.D\304\305\306.BBBBB\207"
0140	20 5b 63 6f 6e 74 65 6e 74 20 62 6f 64 79 20 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20	.[content.body.with-temp-buffer.
0160	69 6e 73 65 72 74 20 28 74 79 70 65 73 63 72 69 70 74 2d 6d 6f 64 65 29 20 28 67 6f 74 6f 2d 63	insert.(typescript-mode).(goto-c
0180	68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66	har.(point-min)).(switch-to-buff
01a0	65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 5d 20 36 20 28 23 24 20 2e 20 31 35	er.(current-buffer))].6.(#$...15
01c0	37 29 5d 29 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	7)])).(byte-code."\300\301\302\3
01e0	30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30 37	03#\210\304\301\305\306#\300\207
0200	22 20 5b 70 75 74 20 74 65 73 74 2d 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 65 64 65	".[put.test-with-temp-buffer.ede
0220	62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 20 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 6c 69 73	bug-form-spec.t.function-put.lis
0240	70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40 36 33 20 46 69 6c	p-indent-function.1].4).#@63.Fil
0260	6c 20 61 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66 65 72 20 77 69 74 68 20 60 43 4f 4e 54 45	l.a.temporary.buffer.with.`CONTE
0280	4e 54 27 20 61 6e 64 20 65 76 61 6c 20 60 42 4f 44 59 27 20 69 6e 20 69 74 2e 1f 0a 28 64 65 66	NT'.and.eval.`BODY'.in.it...(def
02a0	61 6c 69 61 73 20 27 74 65 73 74 2d 77 69 74 68 2d 66 6f 6e 74 69 66 69 65 64 2d 62 75 66 66 65	alias.'test-with-fontified-buffe
02c0	72 20 27 28 6d 61 63 72 6f 20 2e 20 23 5b 28 63 6f 6e 74 65 6e 74 20 26 72 65 73 74 20 62 6f 64	r.'(macro...#[(content.&rest.bod
02e0	79 29 20 22 5c 33 30 32 08 5c 33 30 33 09 42 42 42 5c 32 30 37 22 20 5b 63 6f 6e 74 65 6e 74 20	y)."\302.\303.BBB\207".[content.
0300	62 6f 64 79 20 74 65 73 74 2d 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 28 66 6f 6e 74	body.test-with-temp-buffer.(font
0320	2d 6c 6f 63 6b 2d 66 6f 6e 74 69 66 79 2d 62 75 66 66 65 72 29 5d 20 34 20 28 23 24 20 2e 20 36	-lock-fontify-buffer)].4.(#$...6
0340	30 35 29 5d 29 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	05)])).(byte-code."\300\301\302\
0360	33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 31 5c 33 30 35 5c 33 30 36 23 5c 33 30 30 5c 32 30	303#\210\304\301\305\306#\300\20
0380	37 22 20 5b 70 75 74 20 74 65 73 74 2d 77 69 74 68 2d 66 6f 6e 74 69 66 69 65 64 2d 62 75 66 66	7".[put.test-with-fontified-buff
03a0	65 72 20 65 64 65 62 75 67 2d 66 6f 72 6d 2d 73 70 65 63 20 74 20 66 75 6e 63 74 69 6f 6e 2d 70	er.edebug-form-spec.t.function-p
03c0	75 74 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 5d 20 34 29 0a 23 40	ut.lisp-indent-function.1].4).#@
03e0	31 30 39 20 47 65 74 20 74 68 65 20 66 61 63 65 20 61 74 20 60 4c 4f 43 27 2e 0a 49 66 20 69 74	109.Get.the.face.at.`LOC'..If.it
0400	20 69 73 20 6e 6f 74 20 61 20 6e 75 6d 62 65 72 2c 20 74 68 65 6e 20 77 65 20 60 72 65 2d 73 65	.is.not.a.number,.then.we.`re-se
0420	61 72 63 68 2d 66 6f 72 77 61 72 64 27 20 77 69 74 68 20 60 4c 4f 43 27 0a 61 73 20 74 68 65 20	arch-forward'.with.`LOC'.as.the.
0440	73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 67 65 74 2d	search.pattern...(defalias.'get-
0460	66 61 63 65 2d 61 74 20 23 5b 28 6c 6f 63 29 20 22 08 5c 32 34 37 5c 32 30 34 0e 00 5c 32 31 32	face-at.#[(loc).".\247\204..\212
0480	5c 33 30 31 08 21 5c 32 31 30 5c 33 30 32 5c 32 32 34 10 29 5c 33 30 33 08 5c 33 30 34 5c 22 5c	\301.!\210\302\224.)\303.\304\"\
04a0	32 30 37 22 20 5b 6c 6f 63 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 30 20 67 65	207".[loc.re-search-forward.0.ge
04c0	74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 66 61 63 65 5d 20 33 20 28 23 24 20 2e 20 39 39	t-text-property.face].3.(#$...99
04e0	36 29 5d 29 0a 23 40 32 38 39 20 50 65 72 66 6f 72 6d 20 61 20 74 65 73 74 20 6f 6e 20 6f 75 72	6)]).#@289.Perform.a.test.on.our
0500	20 74 65 6d 70 6c 61 74 65 2e 0a 60 43 4f 4e 54 45 4e 54 53 27 20 69 73 20 74 68 65 20 73 74 72	.template..`CONTENTS'.is.the.str
0520	69 6e 67 20 74 6f 20 70 75 74 20 69 6e 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 20 62 75 66 66	ing.to.put.in.the.temporary.buff
0540	65 72 2e 0a 60 45 58 50 45 43 54 45 44 27 20 69 73 20 74 68 65 20 65 78 70 65 63 74 65 64 20 72	er..`EXPECTED'.is.the.expected.r
0560	65 73 75 6c 74 73 2e 0a 49 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 28	esults..It.should.be.a.list.of.(
0580	4c 4f 43 41 54 49 4f 4e 20 2e 20 46 41 43 45 29 20 70 61 69 72 73 2c 20 77 68 65 72 65 0a 4c 4f	LOCATION...FACE).pairs,.where.LO
05a0	43 41 54 49 4f 4e 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 61 20 73 69 6e 67 6c 65 20 6c 6f	CATION.can.be.either.a.single.lo
05c0	63 61 74 69 6f 6e 2c 20 6f 72 20 6c 69 73 74 20 6f 66 20 6c 6f 63 61 74 69 6f 6e 73 2c 0a 74 68	cation,.or.list.of.locations,.th
05e0	61 74 20 61 72 65 20 61 6c 6c 20 65 78 70 65 63 74 65 64 20 74 6f 20 68 61 76 65 20 74 68 65 20	at.are.all.expected.to.have.the.
0600	73 61 6d 65 20 66 61 63 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 66 6f 6e 74 2d 6c 6f 63 6b	same.face...(defalias.'font-lock
0620	2d 74 65 73 74 20 23 5b 28 63 6f 6e 74 65 6e 74 73 20 65 78 70 65 63 74 65 64 29 20 22 5c 33 30	-test.#[(contents.expected)."\30
0640	36 5c 33 30 37 5c 33 31 30 5c 22 18 72 08 71 5c 32 31 30 5c 33 31 31 5c 32 31 36 09 63 5c 32 31	6\307\310\".r.q\210\311\216.c\21
0660	30 5c 33 31 32 20 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 33 70 21 5c 32 31 30 5c 33 31 34 20 5c	0\312.\210eb\210\313p!\210\314.\
0680	32 31 30 5c 33 31 35 64 21 5c 32 31 30 5c 6e 5c 33 31 36 1b 5c 32 31 31 1c 5c 32 30 35 5c 33 32	210\315d!\210\n\316.\211.\205\32
06a0	36 00 5c 66 40 5c 32 31 31 13 40 3c 5c 32 30 33 5c 32 31 32 00 0b 40 5c 33 31 36 1d 5c 32 31 31	6.\f@\211.@<\203\212..@\316.\211
06c0	1c 5c 32 30 33 5c 32 30 36 00 5c 66 40 15 5c 33 31 37 1e 1b 5c 33 32 30 31 51 00 5c 33 32 31 1e	.\203\206.\f@.\317..\3201Q.\321.
06e0	1c 5c 33 32 32 0d 21 0b 41 29 44 30 5c 32 30 32 5e 00 1e 1d 5c 33 32 33 16 1b 0e 1d 40 0e 1d 41	.\322.!.A)D0\202^...\323....@..A
0700	29 44 1e 1e 5c 33 32 34 1e 1f 5c 33 31 36 1e 20 5c 33 32 35 5c 32 31 36 5c 33 32 36 0e 1b 0e 1e	)D..\324..\316..\325\216\326....
0720	5c 22 5c 32 31 31 16 1f 29 5c 32 30 34 7a 00 5c 33 32 37 0e 20 21 5c 32 31 30 29 0e 1f 5c 32 31	\"\211..)\204z.\327..!\210)..\21
0740	30 2b 5c 66 41 5c 32 31 31 14 5c 32 30 34 39 00 2a 5c 32 30 32 5c 33 31 36 00 5c 33 31 37 1e 21	0+\fA\211.\2049.*\202\316.\317.!
0760	5c 33 33 30 31 5c 32 34 30 00 5c 33 32 31 1e 1c 5c 33 32 32 0b 40 21 0b 41 29 44 30 5c 32 30 32	\3301\240.\321..\322.@!.A)D0\202
0780	5c 32 35 35 00 1e 1d 5c 33 32 33 16 21 0e 1d 40 0e 1d 41 29 44 1e 5c 22 5c 33 33 31 1e 23 5c 33	\255...\323.!..@..A)D.\"\331.#\3
07a0	31 36 1e 24 5c 33 33 32 5c 32 31 36 5c 33 32 36 0e 21 0e 5c 22 5c 22 5c 32 31 31 16 23 29 5c 32	16.$\332\216\326.!.\"\"\211.#)\2
07c0	30 34 5c 33 31 31 00 5c 33 32 37 0e 24 21 5c 32 31 30 29 0e 23 5c 32 31 30 2b 5c 66 41 5c 32 31	04\311.\327.$!\210).#\210+\fA\21
07e0	31 14 5c 32 30 34 27 00 5c 33 31 36 2d 5c 32 30 37 22 20 5b 23 31 3d 23 3a 74 65 6d 70 2d 62 75	1.\204'.\316-\207".[#1=#:temp-bu
0800	66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 65 78 70 65 63 74 65 64 20 73 70 65 63 20 2d 2d 64 6f	ffer.contents.expected.spec.--do
0820	6c 69 73 74 2d 74 61 69 6c 2d 2d 20 73 6f 75 72 63 65 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d	list-tail--.source.generate-new-
0840	62 75 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	buffer.".*temp*".t.#[nil."\301.!
0860	5c 32 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	\205..\302.!\207".[#1#.buffer-na
0880	6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 5d 20 74 79 70 65 73 63 72 69 70 74 2d 6d 6f	me.kill-buffer].2].typescript-mo
08a0	64 65 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 6f	de.switch-to-buffer.font-lock-fo
08c0	6e 74 69 66 79 2d 62 75 66 66 65 72 20 73 79 6e 74 61 78 2d 70 72 6f 70 65 72 74 69 7a 65 20 6e	ntify-buffer.syntax-propertize.n
08e0	69 6c 20 65 71 20 28 65 72 72 6f 72 29 20 65 72 74 2d 2d 73 68 6f 75 6c 64 2d 73 69 67 6e 61 6c	il.eq.(error).ert--should-signal
0900	2d 68 6f 6f 6b 20 67 65 74 2d 66 61 63 65 2d 61 74 20 73 69 67 6e 61 6c 20 23 32 3d 23 3a 65 72	-hook.get-face-at.signal.#2=#:er
0920	74 2d 66 6f 72 6d 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 61 62 6f 72 74 65 64 2d 33 20 23 5b 6e 69	t-form-evaluation-aborted-3.#[ni
0940	6c 20 22 5c 33 30 35 43 5c 33 30 36 08 09 42 44 5c 32 34 34 5c 6e 5c 33 30 37 3d 3f 5c 32 30 35	l."\305C\306..BD\244\n\307=?\205
0960	12 00 5c 33 31 30 5c 6e 44 5c 32 34 34 5c 6e 5c 33 30 37 3d 3f 5c 32 30 35 29 00 5c 33 31 31 5c	..\310\nD\244\n\307=?\205).\311\
0980	33 31 32 4e 5c 32 31 31 1b 5c 32 30 35 28 00 5c 33 31 33 5c 33 31 34 0b 09 5c 22 44 29 5c 32 34	312N\211.\205(.\313\314..\"D)\24
09a0	34 14 5c 33 31 35 5c 66 21 5c 32 30 37 22 20 5b 23 33 3d 23 3a 66 6e 2d 30 20 23 34 3d 23 3a 61	4.\315\f!\207".[#3=#:fn-0.#4=#:a
09c0	72 67 73 2d 31 20 23 35 3d 23 3a 76 61 6c 75 65 2d 32 20 2d 65 78 70 6c 61 69 6e 65 72 2d 20 23	rgs-1.#5=#:value-2.-explainer-.#
09e0	36 3d 23 3a 66 6f 72 6d 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 34 20 28 73 68 6f 75 6c 64 20 28	6=#:form-description-4.(should.(
0a00	65 71 20 28 67 65 74 2d 66 61 63 65 2d 61 74 20 73 6f 75 72 63 65 29 20 28 63 64 72 20 73 70 65	eq.(get-face-at.source).(cdr.spe
0a20	63 29 29 29 20 3a 66 6f 72 6d 20 23 32 23 20 3a 76 61 6c 75 65 20 65 71 20 65 72 74 2d 65 78 70	c))).:form.#2#.:value.eq.ert-exp
0a40	6c 61 69 6e 65 72 20 3a 65 78 70 6c 61 6e 61 74 69 6f 6e 20 61 70 70 6c 79 20 65 72 74 2d 2d 73	lainer.:explanation.apply.ert--s
0a60	69 67 6e 61 6c 2d 73 68 6f 75 6c 64 2d 65 78 65 63 75 74 69 6f 6e 5d 20 36 5d 20 61 70 70 6c 79	ignal-should-execution].6].apply
0a80	20 65 72 74 2d 66 61 69 6c 20 28 65 72 72 6f 72 29 20 23 37 3d 23 3a 65 72 74 2d 66 6f 72 6d 2d	.ert-fail.(error).#7=#:ert-form-
0aa0	65 76 61 6c 75 61 74 69 6f 6e 2d 61 62 6f 72 74 65 64 2d 38 20 23 5b 6e 69 6c 20 22 5c 33 30 35	evaluation-aborted-8.#[nil."\305
0ac0	43 5c 33 30 36 08 09 42 44 5c 32 34 34 5c 6e 5c 33 30 37 3d 3f 5c 32 30 35 12 00 5c 33 31 30 5c	C\306..BD\244\n\307=?\205..\310\
0ae0	6e 44 5c 32 34 34 5c 6e 5c 33 30 37 3d 3f 5c 32 30 35 29 00 5c 33 31 31 5c 33 31 32 4e 5c 32 31	nD\244\n\307=?\205).\311\312N\21
0b00	31 1b 5c 32 30 35 28 00 5c 33 31 33 5c 33 31 34 0b 09 5c 22 44 29 5c 32 34 34 14 5c 33 31 35 5c	1.\205(.\313\314..\"D)\244.\315\
0b20	66 21 5c 32 30 37 22 20 5b 23 38 3d 23 3a 66 6e 2d 35 20 23 39 3d 23 3a 61 72 67 73 2d 36 20 23	f!\207".[#8=#:fn-5.#9=#:args-6.#
0b40	31 30 3d 23 3a 76 61 6c 75 65 2d 37 20 2d 65 78 70 6c 61 69 6e 65 72 2d 20 23 31 31 3d 23 3a 66	10=#:value-7.-explainer-.#11=#:f
0b60	6f 72 6d 2d 64 65 73 63 72 69 70 74 69 6f 6e 2d 39 20 28 73 68 6f 75 6c 64 20 28 65 71 20 28 67	orm-description-9.(should.(eq.(g
0b80	65 74 2d 66 61 63 65 2d 61 74 20 28 63 61 72 20 73 70 65 63 29 29 20 28 63 64 72 20 73 70 65 63	et-face-at.(car.spec)).(cdr.spec
0ba0	29 29 29 20 3a 66 6f 72 6d 20 23 37 23 20 3a 76 61 6c 75 65 20 65 71 20 65 72 74 2d 65 78 70 6c	))).:form.#7#.:value.eq.ert-expl
0bc0	61 69 6e 65 72 20 3a 65 78 70 6c 61 6e 61 74 69 6f 6e 20 61 70 70 6c 79 20 65 72 74 2d 2d 73 69	ainer.:explanation.apply.ert--si
0be0	67 6e 61 6c 2d 73 68 6f 75 6c 64 2d 65 78 65 63 75 74 69 6f 6e 5d 20 36 5d 20 23 33 23 20 73 69	gnal-should-execution].6].#3#.si
0c00	67 6e 61 6c 2d 68 6f 6f 6b 2d 66 75 6e 63 74 69 6f 6e 20 65 72 72 20 23 34 23 20 23 35 23 20 23	gnal-hook-function.err.#4#.#5#.#
0c20	36 23 20 23 38 23 20 23 39 23 20 23 31 30 23 20 23 31 31 23 5d 20 34 20 28 23 24 20 2e 20 31 32	6#.#8#.#9#.#10#.#11#].4.(#$...12
0c40	35 39 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 74 79 70 65 73 63 72 69 70 74 2d 6d 6f 64 65 2d	59)]).(provide.'typescript-mode-
0c60	74 65 73 74 2d 75 74 69 6c 69 74 69 65 73 29 0a	test-utilities).