blob: c61e36e59c8d4ae3287987fbe909f920f02efd4f (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 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37	301!\210\302\303\304\305\306\307
0080	5c 33 31 30 5c 33 31 31 26 07 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 6d 75 6c 74 69 70 6c	\310\311&.\207".[require.multipl
00a0	65 2d 63 75 72 73 6f 72 73 2d 63 6f 72 65 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61	e-cursors-core.custom-declare-va
00c0	72 69 61 62 6c 65 20 6d 63 2f 65 64 69 74 2d 6c 69 6e 65 73 2d 65 6d 70 74 79 2d 6c 69 6e 65 73	riable.mc/edit-lines-empty-lines
00e0	20 6e 69 6c 20 22 57 68 61 74 20 73 68 6f 75 6c 64 20 62 65 20 64 6f 6e 65 20 62 79 20 60 6d 63	.nil."What.should.be.done.by.`mc
0100	2f 65 64 69 74 2d 6c 69 6e 65 73 27 20 77 68 65 6e 20 61 20 6c 69 6e 65 20 69 73 20 6e 6f 74 20	/edit-lines'.when.a.line.is.not.
0120	6c 6f 6e 67 20 65 6e 6f 75 67 68 2e 22 20 3a 74 79 70 65 20 28 72 61 64 69 6f 20 28 63 6f 6e 73	long.enough.".:type.(radio.(cons
0140	74 20 3a 74 61 67 20 22 50 61 64 20 74 68 65 20 6c 69 6e 65 20 77 69 74 68 20 73 70 61 63 65 73	t.:tag."Pad.the.line.with.spaces
0160	2e 22 20 70 61 64 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 49 67 6e 6f 72 65 20 74 68 65 20	.".pad).(const.:tag."Ignore.the.
0180	6c 69 6e 65 2e 22 20 69 67 6e 6f 72 65 29 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 53 69 67 6e	line.".ignore).(const.:tag."Sign
01a0	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 20 3a 74 61 67	al.an.error.".error).(const.:tag
01c0	20 22 4e 6f 74 68 69 6e 67 2e 20 20 43 75 72 73 6f 72 20 69 73 20 61 74 20 65 6e 64 20 6f 66 20	."Nothing...Cursor.is.at.end.of.
01e0	6c 69 6e 65 2e 22 20 6e 69 6c 29 29 20 3a 67 72 6f 75 70 20 6d 75 6c 74 69 70 6c 65 2d 63 75 72	line.".nil)).:group.multiple-cur
0200	73 6f 72 73 5d 20 38 29 0a 23 40 35 30 35 20 41 64 64 20 6f 6e 65 20 63 75 72 73 6f 72 20 74 6f	sors].8).#@505.Add.one.cursor.to
0220	20 65 61 63 68 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69 6f 6e 2e	.each.line.of.the.active.region.
0240	0a 53 74 61 72 74 73 20 66 72 6f 6d 20 6d 61 72 6b 20 61 6e 64 20 6d 6f 76 65 73 20 69 6e 20 73	.Starts.from.mark.and.moves.in.s
0260	74 72 61 69 67 68 74 20 64 6f 77 6e 20 6f 72 20 75 70 20 74 6f 77 61 72 64 73 20 74 68 65 0a 6c	traight.down.or.up.towards.the.l
0280	69 6e 65 20 70 6f 69 6e 74 20 69 73 20 6f 6e 2e 0a 0a 57 68 61 74 20 69 73 20 64 6f 6e 65 20 77	ine.point.is.on...What.is.done.w
02a0	69 74 68 20 6c 69 6e 65 73 20 77 68 69 63 68 20 61 72 65 20 6e 6f 74 20 6c 6f 6e 67 20 65 6e 6f	ith.lines.which.are.not.long.eno
02c0	75 67 68 20 69 73 20 67 6f 76 65 72 6e 65 64 20 62 79 0a 60 6d 63 2f 65 64 69 74 2d 6c 69 6e 65	ugh.is.governed.by.`mc/edit-line
02e0	73 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 27 2e 20 20 54 68 65 20 70 72 65 66 69 78 20 61 72 67 75	s-empty-lines'...The.prefix.argu
0300	6d 65 6e 74 20 41 52 47 20 63 61 6e 20 62 65 20 75 73 65 64 0a 74 6f 20 6f 76 65 72 72 69 64 65	ment.ARG.can.be.used.to.override
0320	20 74 68 69 73 2e 20 20 49 66 20 41 52 47 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 28 77 68 65 6e	.this...If.ARG.is.a.symbol.(when
0340	20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 4c 69 73 70 29 2c 0a 74 68 61 74 20 73 79 6d 62 6f 6c 20	.called.from.Lisp),.that.symbol.
0360	69 73 20 75 73 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 60 6d 63 2f 65 64 69 74 2d 6c 69 6e 65	is.used.instead.of.`mc/edit-line
0380	73 2d 65 6d 70 74 79 2d 6c 69 6e 65 73 27 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 69 66 20 41 52	s-empty-lines'..Otherwise,.if.AR
03a0	47 20 6e 65 67 61 74 69 76 65 2c 20 73 68 6f 72 74 20 6c 69 6e 65 73 20 77 69 6c 6c 20 62 65 20	G.negative,.short.lines.will.be.
03c0	69 67 6e 6f 72 65 64 2e 20 20 41 6e 79 0a 6f 74 68 65 72 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75	ignored...Any.other.non-nil.valu
03e0	65 20 77 69 6c 6c 20 63 61 75 73 65 20 73 68 6f 72 74 20 6c 69 6e 65 73 20 74 6f 20 62 65 20 70	e.will.cause.short.lines.to.be.p
0400	61 64 64 65 64 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 65 64 69 74 2d 6c 69 6e 65 73	added...(defalias.'mc/edit-lines
0420	20 23 5b 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 08 5c 32 30 33 0b 00 60 5c 33 30 36	.#[(&optional.arg).".\203..`\306
0440	20 55 5c 32 30 33 0f 00 5c 33 30 37 5c 33 31 30 21 5c 32 31 30 5c 33 31 31 20 5c 32 31 30 69 19	.U\203..\307\310!\210\311.\210i.
0460	5c 33 31 32 20 1a 5c 33 31 33 20 5c 32 31 30 5c 33 31 32 20 1b 5c 6e 0b 57 5c 32 30 33 27 00 5c	\312..\313.\210\312..\n.W\203'.\
0480	33 31 34 5c 32 30 32 28 00 5c 33 31 35 1c 0d 5c 32 30 33 36 00 0d 39 5c 32 30 33 36 00 0d 5c 32	314\202(.\315..\2036..9\2036..\2
04a0	30 32 4c 00 5c 33 31 36 0d 21 5c 33 31 37 57 5c 32 30 33 42 00 5c 33 32 30 5c 32 30 32 4c 00 0d	02L.\316.!\317W\203B.\320\202L..
04c0	5c 32 30 33 4a 00 5c 33 32 31 5c 32 30 32 4c 00 0e 1c 1e 1d 5c 33 32 32 20 5c 32 31 30 5c 66 5c	\203J.\321\202L.....\322.\210\f\
04e0	33 31 34 3d 5c 32 30 33 64 00 6e 5c 32 30 33 64 00 5c 33 32 33 5c 33 32 34 5c 33 32 35 5c 22 5c	314=\203d.n\203d.\323\324\325\"\
0500	32 31 30 5c 33 32 36 09 21 5c 32 31 30 5c 33 31 32 20 5c 6e 3d 5c 32 30 34 5c 32 37 31 00 0e 1d	210\326.!\210\312.\n=\204\271...
0520	5c 33 32 31 3d 5c 32 30 33 7e 00 69 09 57 5c 32 30 33 7e 00 5c 33 32 37 63 5c 32 31 30 5c 32 30	\321=\203~.i.W\203~.\327c\210\20
0540	32 72 00 0e 1d 5c 33 30 37 3d 5c 32 30 33 5c 32 31 37 00 09 69 5c 32 33 32 5c 32 30 34 5c 32 31	2r...\307=\203\217..i\232\204\21
0560	37 00 5c 33 30 37 5c 33 33 30 21 5c 32 31 30 0e 1d 5c 33 32 30 3d 5c 32 30 33 5c 32 33 34 00 09	7.\307\330!\210..\320=\203\234..
0580	69 5c 32 33 32 5c 32 30 33 5c 32 33 37 00 5c 33 33 31 20 5c 32 31 30 5c 66 5c 33 31 34 3d 5c 32	i\232\203\237.\331.\210\f\314=\2
05a0	30 33 5c 32 35 35 00 5c 33 32 33 5c 33 32 34 5c 33 32 35 5c 22 5c 32 31 30 5c 32 30 32 5c 32 36	03\255.\323\324\325\"\210\202\26
05c0	32 00 5c 33 33 32 5c 33 32 34 5c 33 32 35 5c 22 5c 32 31 30 5c 33 32 36 09 21 5c 32 31 30 5c 32	2.\332\324\325\"\210\326.!\210\2
05e0	30 32 64 00 5c 33 33 33 20 2d 5c 32 30 37 22 20 5b 6d 61 72 6b 2d 61 63 74 69 76 65 20 63 6f 6c	02d.\333.-\207".[mark-active.col
0600	20 70 6f 69 6e 74 2d 6c 69 6e 65 20 6d 61 72 6b 2d 6c 69 6e 65 20 64 69 72 65 63 74 69 6f 6e 20	.point-line.mark-line.direction.
0620	61 72 67 20 6d 61 72 6b 20 65 72 72 6f 72 20 22 4d 61 72 6b 20 61 20 73 65 74 20 6f 66 20 6c 69	arg.mark.error."Mark.a.set.of.li
0640	6e 65 73 20 66 69 72 73 74 22 20 6d 63 2f 72 65 6d 6f 76 65 2d 66 61 6b 65 2d 63 75 72 73 6f 72	nes.first".mc/remove-fake-cursor
0660	73 20 6d 63 2f 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 20 65 78 63 68 61 6e 67 65	s.mc/line-number-at-pos.exchange
0680	2d 70 6f 69 6e 74 2d 61 6e 64 2d 6d 61 72 6b 20 3a 75 70 20 3a 64 6f 77 6e 20 70 72 65 66 69 78	-point-and-mark.:up.:down.prefix
06a0	2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 30 20 69 67 6e 6f 72 65 20 70 61 64 20 64 65 61 63	-numeric-value.0.ignore.pad.deac
06c0	74 69 76 61 74 65 2d 6d 61 72 6b 20 70 72 65 76 69 6f 75 73 2d 6c 6f 67 69 63 61 6c 2d 6c 69 6e	tivate-mark.previous-logical-lin
06e0	65 20 31 20 6e 69 6c 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 22 20 22 20 22 53 68 6f 72	e.1.nil.move-to-column."."."Shor
0700	74 20 6c 69 6e 65 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 69 6e 20 60 6d 63 2f 65 64 69 74 2d 6c	t.line.encountered.in.`mc/edit-l
0720	69 6e 65 73 27 22 20 6d 63 2f 63 72 65 61 74 65 2d 66 61 6b 65 2d 63 75 72 73 6f 72 2d 61 74 2d	ines'".mc/create-fake-cursor-at-
0740	70 6f 69 6e 74 20 6e 65 78 74 2d 6c 6f 67 69 63 61 6c 2d 6c 69 6e 65 20 6d 75 6c 74 69 70 6c 65	point.next-logical-line.multiple
0760	2d 63 75 72 73 6f 72 73 2d 6d 6f 64 65 20 6d 63 2f 65 64 69 74 2d 6c 69 6e 65 73 2d 65 6d 70 74	-cursors-mode.mc/edit-lines-empt
0780	79 2d 6c 69 6e 65 73 20 73 74 79 6c 65 5d 20 33 20 28 23 24 20 2e 20 35 32 37 29 20 22 50 22 5d	y-lines.style].3.(#$...527)."P"]
07a0	29 0a 23 40 36 32 20 41 64 64 20 6f 6e 65 20 63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 65 6e 64	).#@62.Add.one.cursor.to.the.end
07c0	20 6f 66 20 65 61 63 68 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69	.of.each.line.in.the.active.regi
07e0	6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 65 64 69 74 2d 65 6e 64 73 2d 6f 66 2d	on...(defalias.'mc/edit-ends-of-
0800	6c 69 6e 65 73 20 23 5b 6e 69 6c 20 22 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 5c 33 30 32 21 5c	lines.#[nil."\300.\210\301\302!\
0820	32 30 37 22 20 5b 6d 63 2f 65 64 69 74 2d 6c 69 6e 65 73 20 6d 63 2f 65 78 65 63 75 74 65 2d 63	207".[mc/edit-lines.mc/execute-c
0840	6f 6d 6d 61 6e 64 2d 66 6f 72 2d 61 6c 6c 2d 63 75 72 73 6f 72 73 20 65 6e 64 2d 6f 66 2d 6c 69	ommand-for-all-cursors.end-of-li
0860	6e 65 5d 20 32 20 28 23 24 20 2e 20 31 39 35 39 29 20 6e 69 6c 5d 29 0a 23 40 36 38 20 41 64 64	ne].2.(#$...1959).nil]).#@68.Add
0880	20 6f 6e 65 20 63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20	.one.cursor.to.the.beginning.of.
08a0	65 61 63 68 20 6c 69 6e 65 20 69 6e 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69 6f 6e 2e 1f	each.line.in.the.active.region..
08c0	0a 28 64 65 66 61 6c 69 61 73 20 27 6d 63 2f 65 64 69 74 2d 62 65 67 69 6e 6e 69 6e 67 73 2d 6f	.(defalias.'mc/edit-beginnings-o
08e0	66 2d 6c 69 6e 65 73 20 23 5b 6e 69 6c 20 22 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 5c 33 30 32	f-lines.#[nil."\300.\210\301\302
0900	21 5c 32 30 37 22 20 5b 6d 63 2f 65 64 69 74 2d 6c 69 6e 65 73 20 6d 63 2f 65 78 65 63 75 74 65	!\207".[mc/edit-lines.mc/execute
0920	2d 63 6f 6d 6d 61 6e 64 2d 66 6f 72 2d 61 6c 6c 2d 63 75 72 73 6f 72 73 20 62 65 67 69 6e 6e 69	-command-for-all-cursors.beginni
0940	6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 32 20 28 23 24 20 2e 20 32 31 37 33 29 20 6e 69 6c 5d 29 0a	ng-of-line].2.(#$...2173).nil]).
0960	28 70 72 6f 76 69 64 65 20 27 6d 63 2d 65 64 69 74 2d 6c 69 6e 65 73 29 0a	(provide.'mc-edit-lines).