blob: 5a540738b28dcf4110a5a791e68a4a68b9cef3b9 (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 72 65 71 75 69 72 65 20 27 6d 75 6c 74 69 70 6c	imizations.....(require.'multipl
0060	65 2d 63 75 72 73 6f 72 73 2d 63 6f 72 65 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 6e 65	e-cursors-core).(defalias.'mc/ne
0080	78 74 2d 66 61 6b 65 2d 63 75 72 73 6f 72 2d 61 66 74 65 72 2d 70 6f 69 6e 74 20 23 5b 6e 69 6c	xt-fake-cursor-after-point.#[nil
00a0	20 22 60 64 54 5c 33 30 33 18 19 1a 5c 33 30 34 5c 33 30 35 5c 33 30 36 20 5c 22 5c 32 31 30 08	."`dT\303...\304\305\306.\"\210.
00c0	2b 5c 32 30 37 22 20 5b 6e 65 78 74 20 6e 65 78 74 2d 70 6f 73 20 70 6f 73 20 6e 69 6c 20 6d 61	+\207".[next.next-pos.pos.nil.ma
00e0	70 63 20 23 5b 28 63 75 72 73 6f 72 29 20 22 5c 33 30 35 08 5c 33 30 36 5c 22 19 5c 6e 09 57 5c	pc.#[(cursor)."\305.\306\".\n.W\
0100	32 30 35 16 00 09 0b 57 5c 32 30 35 16 00 09 13 08 5c 32 31 31 14 29 5c 32 30 37 22 20 5b 63 75	205....W\205.....\211.)\207".[cu
0120	72 73 6f 72 20 63 75 72 73 6f 72 2d 70 6f 73 20 70 6f 73 20 6e 65 78 74 2d 70 6f 73 20 6e 65 78	rsor.cursor-pos.pos.next-pos.nex
0140	74 20 6f 76 65 72 6c 61 79 2d 67 65 74 20 70 6f 69 6e 74 5d 20 33 5d 20 6d 63 2f 61 6c 6c 2d 66	t.overlay-get.point].3].mc/all-f
0160	61 6b 65 2d 63 75 72 73 6f 72 73 5d 20 33 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 70	ake-cursors].3]).(defalias.'mc/p
0180	72 65 76 2d 66 61 6b 65 2d 63 75 72 73 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 20 23 5b 6e	rev-fake-cursor-before-point.#[n
01a0	69 6c 20 22 60 65 53 5c 33 30 33 18 19 1a 5c 33 30 34 5c 33 30 35 5c 33 30 36 20 5c 22 5c 32 31	il."`eS\303...\304\305\306.\"\21
01c0	30 08 2b 5c 32 30 37 22 20 5b 70 72 65 76 20 70 72 65 76 2d 70 6f 73 20 70 6f 73 20 6e 69 6c 20	0.+\207".[prev.prev-pos.pos.nil.
01e0	6d 61 70 63 20 23 5b 28 63 75 72 73 6f 72 29 20 22 5c 33 30 35 08 5c 33 30 36 5c 22 19 5c 6e 09	mapc.#[(cursor)."\305.\306\".\n.
0200	56 5c 32 30 35 16 00 09 0b 56 5c 32 30 35 16 00 09 13 08 5c 32 31 31 14 29 5c 32 30 37 22 20 5b	V\205....V\205.....\211.)\207".[
0220	63 75 72 73 6f 72 20 63 75 72 73 6f 72 2d 70 6f 73 20 70 6f 73 20 70 72 65 76 2d 70 6f 73 20 70	cursor.cursor-pos.pos.prev-pos.p
0240	72 65 76 20 6f 76 65 72 6c 61 79 2d 67 65 74 20 70 6f 69 6e 74 5d 20 33 5d 20 6d 63 2f 61 6c 6c	rev.overlay-get.point].3].mc/all
0260	2d 66 61 6b 65 2d 63 75 72 73 6f 72 73 5d 20 33 5d 29 0a 23 40 38 31 20 57 68 61 74 20 74 6f 20	-fake-cursors].3]).#@81.What.to.
0280	64 6f 20 69 66 20 61 73 6b 65 64 20 74 6f 20 63 79 63 6c 65 20 62 65 79 6f 6e 64 20 74 68 65 20	do.if.asked.to.cycle.beyond.the.
02a0	6c 61 73 74 20 63 75 72 73 6f 72 20 6f 72 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 72 73 74 20	last.cursor.or.before.the.first.
02c0	63 75 72 73 6f 72 2e 1f 0a 28 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c	cursor...(custom-declare-variabl
02e0	65 20 27 6d 63 2f 63 79 63 6c 65 2d 6c 6f 6f 70 69 6e 67 2d 62 65 68 61 76 69 6f 75 72 20 27 27	e.'mc/cycle-looping-behaviour.''
0300	63 6f 6e 74 69 6e 75 65 20 27 28 23 24 20 2e 20 36 33 32 29 20 3a 74 79 70 65 20 27 28 72 61 64	continue.'(#$...632).:type.'(rad
0320	69 6f 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4c 6f 6f 70 20 61 72 6f 75 6e 64 20 74 6f 20 62	io.(const.:tag."Loop.around.to.b
0340	65 67 69 6e 6e 69 6e 67 2f 65 6e 64 20 6f 66 20 64 6f 63 75 6d 65 6e 74 2e 22 20 63 6f 6e 74 69	eginning/end.of.document.".conti
0360	6e 75 65 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 57 61 72 6e 20 61 6e 64 20 74 68 65 6e 20	nue).(const.:tag."Warn.and.then.
0380	6c 6f 6f 70 20 61 72 6f 75 6e 64 2e 22 20 77 61 72 6e 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20	loop.around.".warn).(const.:tag.
03a0	22 53 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 2e 22 20 65 72 72 6f 72 29 20 28 63 6f 6e 73 74	"Signal.an.error.".error).(const
03c0	20 3a 74 61 67 20 22 44 6f 6e 27 74 20 6c 6f 6f 70 2e 22 20 73 74 6f 70 29 29 20 3a 67 72 6f 75	.:tag."Don't.loop.".stop)).:grou
03e0	70 20 27 6d 75 6c 74 69 70 6c 65 2d 63 75 72 73 6f 72 73 29 0a 28 64 65 66 61 6c 69 61 73 20 27	p.'multiple-cursors).(defalias.'
0400	6d 63 2f 68 61 6e 64 6c 65 2d 6c 6f 6f 70 2d 63 6f 6e 64 69 74 69 6f 6e 20 23 5b 28 65 72 72 6f	mc/handle-loop-condition.#[(erro
0420	72 2d 6d 65 73 73 61 67 65 29 20 22 08 5c 33 30 32 5c 32 36 37 5c 32 30 32 12 00 5c 33 30 33 09	r-message).".\302\267\202..\303.
0440	21 5c 32 30 37 5c 33 30 34 09 21 5c 32 30 37 5c 33 30 35 5c 32 30 37 5c 33 30 36 5c 32 30 37 5c	!\207\304.!\207\305\207\306\207\
0460	33 30 33 5c 33 30 37 08 5c 33 31 30 23 5c 32 30 35 1b 00 5c 33 31 31 5c 32 30 37 22 20 5b 6d 63	303\307.\310#\205..\311\207".[mc
0480	2f 63 79 63 6c 65 2d 6c 6f 6f 70 69 6e 67 2d 62 65 68 61 76 69 6f 75 72 20 65 72 72 6f 72 2d 6d	/cycle-looping-behaviour.error-m
04a0	65 73 73 61 67 65 20 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 34 20 74 65 73 74	essage.#s(hash-table.size.4.test
04c0	20 65 71 20 72 65 68 61 73 68 2d 73 69 7a 65 20 31 2e 35 20 72 65 68 61 73 68 2d 74 68 72 65 73	.eq.rehash-size.1.5.rehash-thres
04e0	68 6f 6c 64 20 30 2e 38 31 32 35 20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20 28 65 72 72	hold.0.8125.purecopy.t.data.(err
0500	6f 72 20 36 20 77 61 72 6e 20 31 30 20 63 6f 6e 74 69 6e 75 65 20 31 34 20 73 74 6f 70 20 31 36	or.6.warn.10.continue.14.stop.16
0520	29 29 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 63 6f 6e 74 69 6e 75 65 20 73 74 6f 70 20 22	)).error.message.continue.stop."
0540	63 6c 2d 65 63 61 73 65 20 66 61 69 6c 65 64 3a 20 25 73 2c 20 25 73 22 20 28 65 72 72 6f 72 20	cl-ecase.failed:.%s,.%s".(error.
0560	77 61 72 6e 20 63 6f 6e 74 69 6e 75 65 20 73 74 6f 70 29 20 6e 69 6c 5d 20 34 5d 29 0a 23 40 38	warn.continue.stop).nil].4]).#@8
0580	32 20 56 65 72 79 20 73 69 6d 69 6c 61 72 20 74 6f 20 6d 63 2f 66 75 72 74 68 65 73 74 2d 63 75	2.Very.similar.to.mc/furthest-cu
05a0	72 73 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 2c 20 62 75 74 20 69 67 6e 6f 72 65 73 20 28	rsor-before-point,.but.ignores.(
05c0	6d 61 72 6b 29 20 61 6e 64 20 28 70 6f 69 6e 74 29 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d	mark).and.(point)...(defalias.'m
05e0	63 2f 66 69 72 73 74 2d 66 61 6b 65 2d 63 75 72 73 6f 72 2d 61 66 74 65 72 20 23 5b 28 70 6f 69	c/first-fake-cursor-after.#[(poi
0600	6e 74 29 20 22 5c 33 30 33 20 18 5c 33 30 34 5c 33 30 35 08 5c 22 19 5c 33 30 36 09 5c 33 30 37	nt)."\303..\304\305.\".\306.\307
0620	5c 33 31 30 5c 33 31 31 24 5c 32 31 31 1a 40 2b 5c 32 30 37 22 20 5b 63 75 72 73 6f 72 73 20 63	\310\311$\211.@+\207".[cursors.c
0640	75 72 73 6f 72 73 2d 61 66 74 65 72 2d 70 6f 69 6e 74 20 63 75 72 73 6f 72 73 2d 69 6e 2d 6f 72	ursors-after-point.cursors-in-or
0660	64 65 72 20 6d 63 2f 61 6c 6c 2d 66 61 6b 65 2d 63 75 72 73 6f 72 73 20 63 6c 2d 72 65 6d 6f 76	der.mc/all-fake-cursors.cl-remov
0680	65 2d 69 66 20 23 5b 28 63 75 72 73 6f 72 29 20 22 5c 33 30 32 08 21 09 57 5c 32 30 37 22 20 5b	e-if.#[(cursor)."\302.!.W\207".[
06a0	63 75 72 73 6f 72 20 70 6f 69 6e 74 20 6d 63 2f 63 75 72 73 6f 72 2d 62 65 67 5d 20 32 5d 20 63	cursor.point.mc/cursor-beg].2].c
06c0	6c 2d 73 6f 72 74 20 3c 20 3a 6b 65 79 20 6d 63 2f 63 75 72 73 6f 72 2d 62 65 67 5d 20 36 20 28	l-sort.<.:key.mc/cursor-beg].6.(
06e0	23 24 20 2e 20 31 34 31 30 29 5d 29 0a 23 40 38 32 20 56 65 72 79 20 73 69 6d 69 6c 61 72 20 74	#$...1410)]).#@82.Very.similar.t
0700	6f 20 6d 63 2f 66 75 72 74 68 65 73 74 2d 63 75 72 73 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e	o.mc/furthest-cursor-before-poin
0720	74 2c 20 62 75 74 20 69 67 6e 6f 72 65 73 20 28 6d 61 72 6b 29 20 61 6e 64 20 28 70 6f 69 6e 74	t,.but.ignores.(mark).and.(point
0740	29 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 6c 61 73 74 2d 66 61 6b 65 2d 63 75 72 73	)...(defalias.'mc/last-fake-curs
0760	6f 72 2d 62 65 66 6f 72 65 20 23 5b 28 70 6f 69 6e 74 29 20 22 5c 33 30 33 20 18 5c 33 30 34 5c	or-before.#[(point)."\303..\304\
0780	33 30 35 08 5c 22 19 5c 33 30 36 09 5c 33 30 37 5c 33 31 30 5c 33 31 31 24 5c 32 31 31 1a 40 2b	305.\".\306.\307\310\311$\211.@+
07a0	5c 32 30 37 22 20 5b 63 75 72 73 6f 72 73 20 63 75 72 73 6f 72 73 2d 62 65 66 6f 72 65 2d 70 6f	\207".[cursors.cursors-before-po
07c0	69 6e 74 20 63 75 72 73 6f 72 73 2d 69 6e 2d 6f 72 64 65 72 20 6d 63 2f 61 6c 6c 2d 66 61 6b 65	int.cursors-in-order.mc/all-fake
07e0	2d 63 75 72 73 6f 72 73 20 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 23 5b 28 63 75 72 73 6f 72 29	-cursors.cl-remove-if.#[(cursor)
0800	20 22 5c 33 30 32 08 21 09 56 5c 32 30 37 22 20 5b 63 75 72 73 6f 72 20 70 6f 69 6e 74 20 6d 63	."\302.!.V\207".[cursor.point.mc
0820	2f 63 75 72 73 6f 72 2d 65 6e 64 5d 20 32 5d 20 63 6c 2d 73 6f 72 74 20 3e 20 3a 6b 65 79 20 6d	/cursor-end].2].cl-sort.>.:key.m
0840	63 2f 63 75 72 73 6f 72 2d 65 6e 64 5d 20 36 20 28 23 24 20 2e 20 31 37 37 38 29 5d 29 0a 28 64	c/cursor-end].6.(#$...1778)]).(d
0860	65 66 61 6c 69 61 73 20 27 6d 63 2f 63 79 63 6c 65 20 23 5b 28 6e 65 78 74 2d 63 75 72 73 6f 72	efalias.'mc/cycle.#[(next-cursor
0880	20 66 61 6c 6c 62 61 63 6b 2d 63 75 72 73 6f 72 20 6c 6f 6f 70 2d 6d 65 73 73 61 67 65 29 20 22	.fallback-cursor.loop-message)."
08a0	5c 33 30 33 32 35 00 08 5c 32 30 34 2b 00 5c 33 30 34 09 21 5c 33 30 35 3d 5c 32 30 33 29 00 5c	\30325..\204+.\304.!\305=\203).\
08c0	33 30 36 5c 33 30 37 21 5c 32 30 33 1e 00 5c 33 31 30 5c 33 30 33 5c 33 31 31 5c 22 5c 32 31 30	306\307!\203..\310\303\311\"\210
08e0	5c 32 30 32 29 00 5c 33 30 36 5c 33 31 32 21 5c 32 30 33 29 00 5c 33 31 30 5c 33 30 33 5c 33 31	\202).\306\312!\203).\310\303\31
0900	31 5c 22 5c 32 31 30 5c 6e 10 5c 33 31 33 20 5c 32 31 30 5c 33 31 34 08 21 5c 32 31 30 5c 33 31	1\"\210\n.\313.\210\314.!\210\31
0920	35 20 30 5c 32 30 37 22 20 5b 6e 65 78 74 2d 63 75 72 73 6f 72 20 6c 6f 6f 70 2d 6d 65 73 73 61	5.0\207".[next-cursor.loop-messa
0940	67 65 20 66 61 6c 6c 62 61 63 6b 2d 63 75 72 73 6f 72 20 2d 2d 63 6c 2d 62 6c 6f 63 6b 2d 6d 63	ge.fallback-cursor.--cl-block-mc
0960	2f 63 79 63 6c 65 2d 2d 20 6d 63 2f 68 61 6e 64 6c 65 2d 6c 6f 6f 70 2d 63 6f 6e 64 69 74 69 6f	/cycle--.mc/handle-loop-conditio
0980	6e 20 73 74 6f 70 20 66 62 6f 75 6e 64 70 20 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 74 68	n.stop.fboundp.cl-return-from.th
09a0	72 6f 77 20 6e 69 6c 20 72 65 74 75 72 6e 2d 66 72 6f 6d 20 6d 63 2f 63 72 65 61 74 65 2d 66 61	row.nil.return-from.mc/create-fa
09c0	6b 65 2d 63 75 72 73 6f 72 2d 61 74 2d 70 6f 69 6e 74 20 6d 63 2f 70 6f 70 2d 73 74 61 74 65 2d	ke-cursor-at-point.mc/pop-state-
09e0	66 72 6f 6d 2d 6f 76 65 72 6c 61 79 20 72 65 63 65 6e 74 65 72 5d 20 33 5d 29 0a 28 64 65 66 61	from-overlay.recenter].3]).(defa
0a00	6c 69 61 73 20 27 6d 63 2f 63 79 63 6c 65 2d 66 6f 72 77 61 72 64 20 23 5b 6e 69 6c 20 22 5c 33	lias.'mc/cycle-forward.#[nil."\3
0a20	30 30 5c 33 30 31 20 5c 33 30 32 65 21 5c 33 30 33 23 5c 32 30 37 22 20 5b 6d 63 2f 63 79 63 6c	00\301.\302e!\303#\207".[mc/cycl
0a40	65 20 6d 63 2f 6e 65 78 74 2d 66 61 6b 65 2d 63 75 72 73 6f 72 2d 61 66 74 65 72 2d 70 6f 69 6e	e.mc/next-fake-cursor-after-poin
0a60	74 20 6d 63 2f 66 69 72 73 74 2d 66 61 6b 65 2d 63 75 72 73 6f 72 2d 61 66 74 65 72 20 22 57 65	t.mc/first-fake-cursor-after."We
0a80	27 72 65 20 61 6c 72 65 61 64 79 20 61 74 20 74 68 65 20 6c 61 73 74 20 63 75 72 73 6f 72 2e 22	're.already.at.the.last.cursor."
0aa0	5d 20 34 20 6e 69 6c 20 6e 69 6c 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 63 79 63 6c	].4.nil.nil]).(defalias.'mc/cycl
0ac0	65 2d 62 61 63 6b 77 61 72 64 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 20 5c 33 30 32 64	e-backward.#[nil."\300\301.\302d
0ae0	21 5c 33 30 33 23 5c 32 30 37 22 20 5b 6d 63 2f 63 79 63 6c 65 20 6d 63 2f 70 72 65 76 2d 66 61	!\303#\207".[mc/cycle.mc/prev-fa
0b00	6b 65 2d 63 75 72 73 6f 72 2d 62 65 66 6f 72 65 2d 70 6f 69 6e 74 20 6d 63 2f 6c 61 73 74 2d 66	ke-cursor-before-point.mc/last-f
0b20	61 6b 65 2d 63 75 72 73 6f 72 2d 62 65 66 6f 72 65 20 22 57 65 27 72 65 20 61 6c 72 65 61 64 79	ake-cursor-before."We're.already
0b40	20 61 74 20 74 68 65 20 6c 61 73 74 20 63 75 72 73 6f 72 22 5d 20 34 20 6e 69 6c 20 6e 69 6c 5d	.at.the.last.cursor"].4.nil.nil]
0b60	29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 08 5c 33 30 32 5c 33 30 33 23 5c 32 31 30	).(byte-code."\301.\302\303#\210
0b80	5c 33 30 31 08 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 36 5c 33 30 37 21 5c 32 30 37 22	\301.\304\305#\210\306\307!\207"
0ba0	20 5b 6d 63 2f 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 16 22 20 6d 63 2f 63 79	.[mc/keymap.define-key.".".mc/cy
0bc0	63 6c 65 2d 66 6f 72 77 61 72 64 20 5b 31 33 34 32 31 37 38 34 36 5d 20 6d 63 2f 63 79 63 6c 65	cle-forward.[134217846].mc/cycle
0be0	2d 62 61 63 6b 77 61 72 64 20 70 72 6f 76 69 64 65 20 6d 63 2d 63 79 63 6c 65 2d 63 75 72 73 6f	-backward.provide.mc-cycle-curso
0c00	72 73 5d 20 34 29 0a	rs].4).