blob: 79c963ba125f0bea80feeba15f09ad7ea92fa190 (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 23 40 36 35 20 54 68 65 20 70 6f 73 69 74 69 6f	e-cursors-core).#@65.The.positio
0080	6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 74 68 61 74 20 61 6e 63 68 6f 72 73 20 74 68 65	n.in.the.buffer.that.anchors.the
00a0	20 72 65 63 74 61 6e 67 75 6c 61 72 20 72 65 67 69 6f 6e 2e 1f 0a 28 64 65 66 76 61 72 20 72 72	.rectangular.region...(defvar.rr
00c0	6d 2f 61 6e 63 68 6f 72 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 20 28 23 24 20 2e 20 31 31 37	m/anchor.(make-marker).(#$...117
00e0	29 29 0a 23 40 35 39 20 4b 65 79 6d 61 70 20 66 6f 72 20 72 65 63 74 61 6e 67 75 6c 61 72 20 72	)).#@59.Keymap.for.rectangular.r
0100	65 67 69 6f 6e 20 69 73 20 6d 61 69 6e 6c 79 20 66 6f 72 20 72 65 62 69 6e 64 69 6e 67 20 43 2d	egion.is.mainly.for.rebinding.C-
0120	67 1f 0a 28 64 65 66 76 61 72 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f	g..(defvar.rectangular-region-mo
0140	64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 20 28 23 24 20	de-map.(make-sparse-keymap).(#$.
0160	2e 20 32 33 32 29 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	..232)).(byte-code."\301.\302\30
0180	33 23 5c 32 31 30 5c 33 30 31 08 5c 33 30 34 5c 33 30 35 23 5c 32 30 37 22 20 5b 72 65 63 74 61	3#\210\301.\304\305#\207".[recta
01a0	6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65	ngular-region-mode-map.define-ke
01c0	79 20 22 07 22 20 72 72 6d 2f 6b 65 79 62 6f 61 72 64 2d 71 75 69 74 20 5b 72 65 74 75 72 6e 5d	y.".".rrm/keyboard-quit.[return]
01e0	20 72 72 6d 2f 73 77 69 74 63 68 2d 74 6f 2d 6d 75 6c 74 69 70 6c 65 2d 63 75 72 73 6f 72 73 5d	.rrm/switch-to-multiple-cursors]
0200	20 34 29 0a 28 64 65 66 76 61 72 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d	.4).(defvar.rectangular-region-m
0220	6f 64 65 20 6e 69 6c 29 0a 23 40 33 31 20 45 78 69 74 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72	ode.nil).#@31.Exit.rectangular-r
0240	65 67 69 6f 6e 2d 6d 6f 64 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 72 72 6d 2f 6b 65 79 62	egion-mode...(defalias.'rrm/keyb
0260	6f 61 72 64 2d 71 75 69 74 20 23 5b 6e 69 6c 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33	oard-quit.#[nil."\300\301!\210\3
0280	30 32 20 5c 32 31 30 5c 33 30 33 20 5c 32 30 37 22 20 5b 72 65 63 74 61 6e 67 75 6c 61 72 2d 72	02.\210\303.\207".[rectangular-r
02a0	65 67 69 6f 6e 2d 6d 6f 64 65 20 30 20 72 72 6d 2f 72 65 6d 6f 76 65 2d 72 65 63 74 61 6e 67 75	egion-mode.0.rrm/remove-rectangu
02c0	6c 61 72 2d 72 65 67 69 6f 6e 2d 6f 76 65 72 6c 61 79 73 20 64 65 61 63 74 69 76 61 74 65 2d 6d	lar-region-overlays.deactivate-m
02e0	61 72 6b 5d 20 32 20 28 23 24 20 2e 20 35 35 38 29 20 6e 69 6c 5d 29 0a 23 40 31 39 36 20 41 6e	ark].2.(#$...558).nil]).#@196.An
0300	63 68 6f 72 73 20 74 68 65 20 72 65 63 74 61 6e 67 75 6c 61 72 20 72 65 67 69 6f 6e 20 61 74 20	chors.the.rectangular.region.at.
0320	70 6f 69 6e 74 2e 0a 0a 54 68 69 6e 6b 20 6f 66 20 74 68 69 73 20 6f 6e 65 20 61 73 20 60 73 65	point...Think.of.this.one.as.`se
0340	74 2d 6d 61 72 6b 27 20 65 78 63 65 70 74 20 79 6f 75 27 72 65 20 6d 61 72 6b 69 6e 67 20 61 0a	t-mark'.except.you're.marking.a.
0360	72 65 63 74 61 6e 67 75 6c 61 72 20 72 65 67 69 6f 6e 2e 20 49 74 20 69 73 20 61 6e 20 65 78 63	rectangular.region..It.is.an.exc
0380	65 65 64 69 6e 67 6c 79 20 71 75 69 63 6b 20 77 61 79 20 6f 66 20 61 64 64 69 6e 67 0a 6d 75 6c	eedingly.quick.way.of.adding.mul
03a0	74 69 70 6c 65 20 63 75 72 73 6f 72 73 20 74 6f 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65 73 2e	tiple.cursors.to.multiple.lines.
03c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 65 74 2d 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67	..(defalias.'set-rectangular-reg
03e0	69 6f 6e 2d 61 6e 63 68 6f 72 20 23 5b 6e 69 6c 20 22 08 60 5c 33 30 31 5c 32 32 33 5c 32 31 30	ion-anchor.#[nil.".`\301\223\210
0400	5c 33 30 32 60 21 5c 32 31 30 5c 33 30 33 5c 33 30 34 21 5c 32 30 37 22 20 5b 72 72 6d 2f 61 6e	\302`!\210\303\304!\207".[rrm/an
0420	63 68 6f 72 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72	chor.nil.push-mark.rectangular-r
0440	65 67 69 6f 6e 2d 6d 6f 64 65 20 31 5d 20 33 20 28 23 24 20 2e 20 37 36 36 29 20 6e 69 6c 5d 29	egion-mode.1].3.(#$...766).nil])
0460	0a 23 40 34 31 20 52 65 6d 6f 76 65 20 61 6c 6c 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67	.#@41.Remove.all.rectangular-reg
0480	69 6f 6e 20 6f 76 65 72 6c 61 79 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 72 72 6d 2f 72 65	ion.overlays...(defalias.'rrm/re
04a0	6d 6f 76 65 2d 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6f 76 65 72 6c 61 79 73	move-rectangular-region-overlays
04c0	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 5c 33 30 33 65 64 5c	.#[nil."\300.\210\301\302\303ed\
04e0	22 5c 22 5c 32 30 37 22 20 5b 6d 63 2f 72 65 6d 6f 76 65 2d 66 61 6b 65 2d 63 75 72 73 6f 72 73	"\"\207".[mc/remove-fake-cursors
0500	20 6d 61 70 63 20 23 5b 28 6f 29 20 22 5c 33 30 31 08 5c 33 30 32 5c 22 5c 33 30 33 3d 5c 32 30	.mapc.#[(o)."\301.\302\"\303=\20
0520	35 5c 66 00 5c 33 30 34 08 21 5c 32 30 37 22 20 5b 6f 20 6f 76 65 72 6c 61 79 2d 67 65 74 20 74	5\f.\304.!\207".[o.overlay-get.t
0540	79 70 65 20 61 64 64 69 74 69 6f 6e 61 6c 2d 72 65 67 69 6f 6e 20 64 65 6c 65 74 65 2d 6f 76 65	ype.additional-region.delete-ove
0560	72 6c 61 79 5d 20 33 5d 20 6f 76 65 72 6c 61 79 73 2d 69 6e 5d 20 35 20 28 23 24 20 2e 20 31 31	rlay].3].overlays-in].5.(#$...11
0580	32 36 29 5d 29 0a 23 40 36 36 20 53 74 61 72 74 20 66 72 6f 6d 20 74 68 65 20 61 6e 63 68 6f 72	26)]).#@66.Start.from.the.anchor
05a0	20 61 6e 64 20 64 72 61 77 20 61 20 72 65 63 74 61 6e 67 6c 65 20 62 65 74 77 65 65 6e 20 69 74	.and.draw.a.rectangle.between.it
05c0	20 61 6e 64 20 70 6f 69 6e 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 72 72 6d 2f 72 65 70 61	.and.point...(defalias.'rrm/repa
05e0	69 6e 74 20 23 5b 6e 69 6c 20 22 08 5c 32 30 34 5c 6e 00 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c	int.#[nil.".\204\n.\306\307\310\
0600	33 31 31 23 5c 32 30 37 5c 33 31 32 20 5c 32 31 30 5c 33 31 33 19 69 1a 5c 33 31 34 20 1b 5c 32	311#\207\312.\210\313.i.\314..\2
0620	31 32 5c 66 62 5c 32 31 30 69 29 1d 5c 32 31 32 5c 66 62 5c 32 31 30 5c 33 31 34 20 29 1e 18 5c	12\fb\210i).\212\fb\210\314.)..\
0640	6e 0d 57 5c 32 30 33 2e 00 5c 6e 5c 32 30 32 2f 00 0d 1e 19 5c 6e 0d 56 5c 32 30 33 3b 00 5c 6e	n.W\203..\n\202/....\n.V\203;.\n
0660	5c 32 30 32 3c 00 0d 1e 1a 0b 0e 18 57 5c 32 30 33 49 00 5c 33 31 35 5c 32 30 32 4a 00 5c 33 31	\202<.......W\203I.\315\202J.\31
0680	36 1e 1b 5c 33 31 37 0d 21 5c 32 31 30 5c 33 32 30 60 21 5c 32 31 30 5c 33 31 37 5c 6e 21 5c 32	6..\317.!\210\320`!\210\317\n!\2
06a0	31 30 5c 33 32 31 5c 33 32 32 60 60 5c 33 31 33 5c 32 31 31 5c 33 31 31 25 21 1e 1c 5c 33 32 33	10\321\322``\313\211\311%!..\323
06c0	0e 1c 5c 33 32 34 5c 33 32 35 23 5c 32 31 30 5c 32 31 32 0e 18 5c 33 31 34 20 55 5c 32 30 34 5c	..\324\325#\210\212..\314.U\204\
06e0	32 32 35 00 0e 1b 79 5c 32 31 30 5c 33 31 37 0d 21 5c 32 31 30 0d 69 55 5c 32 30 33 6b 00 5c 33	225...y\210\317.!\210.iU\203k.\3
0700	32 30 60 21 5c 32 31 30 5c 33 31 37 5c 6e 21 5c 32 31 30 5c 6e 69 55 5c 32 30 33 6b 00 5c 33 32	20`!\210\317\n!\210\niU\203k.\32
0720	36 20 5c 32 31 30 5c 32 30 32 6b 00 29 5c 33 32 37 0e 1c 21 2e 09 5c 32 30 37 22 20 5b 72 65 63	6.\210\202k.)\327..!..\207".[rec
0740	74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 61 6e 6e 6f 79 69 6e 67 2d 61 72	tangular-region-mode.annoying-ar
0760	72 6f 77 73 2d 6d 6f 64 65 20 70 6f 69 6e 74 2d 63 6f 6c 75 6d 6e 20 70 6f 69 6e 74 2d 6c 69 6e	rows-mode.point-column.point-lin
0780	65 20 72 72 6d 2f 61 6e 63 68 6f 72 20 61 6e 63 68 6f 72 2d 63 6f 6c 75 6d 6e 20 72 65 6d 6f 76	e.rrm/anchor.anchor-column.remov
07a0	65 2d 68 6f 6f 6b 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 72 72 6d 2f 72 65 70	e-hook.post-command-hook.rrm/rep
07c0	61 69 6e 74 20 74 20 72 72 6d 2f 72 65 6d 6f 76 65 2d 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65	aint.t.rrm/remove-rectangular-re
07e0	67 69 6f 6e 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 20 6d 63 2f 6c 69 6e 65 2d 6e 75 6d 62 65 72	gion-overlays.nil.mc/line-number
0800	2d 61 74 2d 70 6f 73 20 31 20 2d 31 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 73 65 74 2d	-at-pos.1.-1.move-to-column.set-
0820	6d 61 72 6b 20 6d 63 2f 73 74 6f 72 65 2d 63 75 72 72 65 6e 74 2d 73 74 61 74 65 2d 69 6e 2d 6f	mark.mc/store-current-state-in-o
0840	76 65 72 6c 61 79 20 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 6f 76 65 72 6c 61 79 2d 70 75 74 20	verlay.make-overlay.overlay-put.
0860	74 79 70 65 20 6f 72 69 67 69 6e 61 6c 2d 63 75 72 73 6f 72 20 6d 63 2f 63 72 65 61 74 65 2d 66	type.original-cursor.mc/create-f
0880	61 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	ake-cursor-at-point.mc/pop-state
08a0	2d 66 72 6f 6d 2d 6f 76 65 72 6c 61 79 20 61 6e 63 68 6f 72 2d 6c 69 6e 65 20 6c 65 66 74 2d 63	-from-overlay.anchor-line.left-c
08c0	6f 6c 75 6d 6e 20 72 69 67 68 74 2d 63 6f 6c 75 6d 6e 20 6e 61 76 69 67 61 74 69 6f 6e 2d 73 74	olumn.right-column.navigation-st
08e0	65 70 20 23 31 3d 23 3a 63 75 72 72 65 6e 74 2d 73 74 61 74 65 5d 20 37 20 28 23 24 20 2e 20 31	ep.#1=#:current-state].7.(#$...1
0900	34 31 39 29 5d 29 0a 23 40 36 33 20 53 77 69 74 63 68 20 66 72 6f 6d 20 72 65 63 74 61 6e 67 75	419)]).#@63.Switch.from.rectangu
0920	6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 74 6f 20 6d 75 6c 74 69 70 6c 65 2d 63 75 72 73	lar-region-mode.to.multiple-curs
0940	6f 72 73 2d 6d 6f 64 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 72 72 6d 2f 73 77 69 74 63 68	ors-mode...(defalias.'rrm/switch
0960	2d 74 6f 2d 6d 75 6c 74 69 70 6c 65 2d 63 75 72 73 6f 72 73 20 23 5b 28 26 72 65 73 74 20 66 6f	-to-multiple-cursors.#[(&rest.fo
0980	72 6d 73 29 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 21 5c 32 30 37	rms)."\300\301!\210\302\303!\207
09a0	22 20 5b 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 30 20 6d 75 6c	".[rectangular-region-mode.0.mul
09c0	74 69 70 6c 65 2d 63 75 72 73 6f 72 73 2d 6d 6f 64 65 20 31 5d 20 32 20 28 23 24 20 2e 20 32 33	tiple-cursors-mode.1].2.(#$...23
09e0	31 36 29 20 6e 69 6c 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	16).nil]).(byte-code."\300\301\3
0a00	30 32 5c 33 30 33 5c 33 30 34 24 5c 32 31 30 5c 33 30 35 5c 33 30 31 5c 33 30 34 5c 22 5c 32 31	02\303\304$\210\305\301\304\"\21
0a20	30 5c 33 30 30 5c 33 30 36 5c 33 30 37 5c 33 30 33 5c 33 30 34 24 5c 32 31 30 5c 33 30 35 5c 33	0\300\306\307\303\304$\210\305\3
0a40	30 36 5c 33 30 34 5c 22 5c 32 30 37 22 20 5b 61 64 2d 61 64 64 2d 61 64 76 69 63 65 20 65 72 2f	06\304\"\207".[ad-add-advice.er/
0a60	65 78 70 61 6e 64 2d 72 65 67 69 6f 6e 20 28 73 77 69 74 63 68 2d 66 72 6f 6d 2d 72 72 6d 2d 74	expand-region.(switch-from-rrm-t
0a80	6f 2d 6d 63 20 6e 69 6c 20 74 20 28 61 64 76 69 63 65 20 6c 61 6d 62 64 61 20 6e 69 6c 20 28 77	o-mc.nil.t.(advice.lambda.nil.(w
0aa0	68 65 6e 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 28 72 72 6d	hen.rectangular-region-mode.(rrm
0ac0	2f 73 77 69 74 63 68 2d 74 6f 2d 6d 75 6c 74 69 70 6c 65 2d 63 75 72 73 6f 72 73 29 29 29 29 20	/switch-to-multiple-cursors)))).
0ae0	62 65 66 6f 72 65 20 6e 69 6c 20 61 64 2d 61 63 74 69 76 61 74 65 20 6b 69 6c 6c 2d 72 69 6e 67	before.nil.ad-activate.kill-ring
0b00	2d 73 61 76 65 20 28 73 77 69 74 63 68 2d 66 72 6f 6d 2d 72 72 6d 2d 74 6f 2d 6d 63 20 6e 69 6c	-save.(switch-from-rrm-to-mc.nil
0b20	20 74 20 28 61 64 76 69 63 65 20 6c 61 6d 62 64 61 20 6e 69 6c 20 28 77 68 65 6e 20 72 65 63 74	.t.(advice.lambda.nil.(when.rect
0b40	61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 28 72 72 6d 2f 73 77 69 74 63 68 2d	angular-region-mode.(rrm/switch-
0b60	74 6f 2d 6d 75 6c 74 69 70 6c 65 2d 63 75 72 73 6f 72 73 29 29 29 29 5d 20 35 29 0a 23 40 31 31	to-multiple-cursors))))].5).#@11
0b80	35 20 4e 6f 6e 2d 6e 69 6c 20 69 66 20 52 65 63 74 61 6e 67 75 6c 61 72 2d 52 65 67 69 6f 6e 20	5.Non-nil.if.Rectangular-Region.
0ba0	6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a 55 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64	mode.is.enabled..Use.the.command
0bc0	20 60 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 27 20 74 6f 20 63 68	.`rectangular-region-mode'.to.ch
0be0	61 6e 67 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 1f 0a 28 64 65 66 76 61 72 20 72 65 63	ange.this.variable...(defvar.rec
0c00	74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 6e 69 6c 20 28 23 24 20 2e 20 32	tangular-region-mode.nil.(#$...2
0c20	39 34 36 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61	946)).(make-variable-buffer-loca
0c40	6c 20 27 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 29 0a 23 40 36 30	l.'rectangular-region-mode).#@60
0c60	30 20 41 20 6d 6f 64 65 20 66 6f 72 20 63 72 65 61 74 69 6e 67 20 61 20 72 65 63 74 61 6e 67 75	0.A.mode.for.creating.a.rectangu
0c80	6c 61 72 20 72 65 67 69 6f 6e 20 74 6f 20 65 64 69 74 0a 0a 54 68 69 73 20 69 73 20 61 20 6d 69	lar.region.to.edit..This.is.a.mi
0ca0	6e 6f 72 20 6d 6f 64 65 2e 20 20 49 66 20 63 61 6c 6c 65 64 20 69 6e 74 65 72 61 63 74 69 76 65	nor.mode...If.called.interactive
0cc0	6c 79 2c 20 74 6f 67 67 6c 65 20 74 68 65 0a 60 52 65 63 74 61 6e 67 75 6c 61 72 2d 52 65 67 69	ly,.toggle.the.`Rectangular-Regi
0ce0	6f 6e 20 6d 6f 64 65 27 20 6d 6f 64 65 2e 20 20 49 66 20 74 68 65 20 70 72 65 66 69 78 20 61 72	on.mode'.mode...If.the.prefix.ar
0d00	67 75 6d 65 6e 74 20 69 73 0a 70 6f 73 69 74 69 76 65 2c 20 65 6e 61 62 6c 65 20 74 68 65 20 6d	gument.is.positive,.enable.the.m
0d20	6f 64 65 2c 20 61 6e 64 20 69 66 20 69 74 20 69 73 20 7a 65 72 6f 20 6f 72 20 6e 65 67 61 74 69	ode,.and.if.it.is.zero.or.negati
0d40	76 65 2c 20 64 69 73 61 62 6c 65 0a 74 68 65 20 6d 6f 64 65 2e 0a 0a 49 66 20 63 61 6c 6c 65 64	ve,.disable.the.mode...If.called
0d60	20 66 72 6f 6d 20 4c 69 73 70 2c 20 74 6f 67 67 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 20 41	.from.Lisp,.toggle.the.mode.if.A
0d80	52 47 20 69 73 20 60 74 6f 67 67 6c 65 27 2e 20 20 45 6e 61 62 6c 65 0a 74 68 65 20 6d 6f 64 65	RG.is.`toggle'...Enable.the.mode
0da0	20 69 66 20 41 52 47 20 69 73 20 6e 69 6c 2c 20 6f 6d 69 74 74 65 64 2c 20 6f 72 20 69 73 20 61	.if.ARG.is.nil,.omitted,.or.is.a
0dc0	20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72 2e 0a 44 69 73 61 62 6c 65 20 74 68 65 20 6d 6f	.positive.number..Disable.the.mo
0de0	64 65 20 69 66 20 41 52 47 20 69 73 20 61 20 6e 65 67 61 74 69 76 65 20 6e 75 6d 62 65 72 2e 0a	de.if.ARG.is.a.negative.number..
0e00	0a 54 6f 20 63 68 65 63 6b 20 77 68 65 74 68 65 72 20 74 68 65 20 6d 69 6e 6f 72 20 6d 6f 64 65	.To.check.whether.the.minor.mode
0e20	20 69 73 20 65 6e 61 62 6c 65 64 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65	.is.enabled.in.the.current.buffe
0e40	72 2c 0a 65 76 61 6c 75 61 74 65 20 60 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d	r,.evaluate.`rectangular-region-
0e60	6d 6f 64 65 27 2e 0a 0a 54 68 65 20 6d 6f 64 65 27 73 20 68 6f 6f 6b 20 69 73 20 63 61 6c 6c 65	mode'...The.mode's.hook.is.calle
0e80	64 20 62 6f 74 68 20 77 68 65 6e 20 74 68 65 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 20	d.both.when.the.mode.is.enabled.
0ea0	61 6e 64 20 77 68 65 6e 0a 69 74 20 69 73 20 64 69 73 61 62 6c 65 64 2e 1f 0a 28 64 65 66 61 6c	and.when.it.is.disabled...(defal
0ec0	69 61 73 20 27 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 23 5b 28	ias.'rectangular-region-mode.#[(
0ee0	26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 33 30 36 20 18 09 5c 33 30 37 3d 5c 32 30 33	&optional.arg)."\306...\307=\203
0f00	0e 00 5c 6e 3f 5c 32 30 32 1e 00 09 5c 32 34 37 5c 32 30 33 1d 00 09 5c 33 31 30 57 5c 32 30 33	..\n?\202...\247\203...\310W\203
0f20	1d 00 5c 33 31 31 5c 32 30 32 1e 00 5c 33 31 32 12 5c 33 31 33 5c 33 30 33 21 5c 32 30 33 32 00	..\311\202..\312.\313\303!\2032.
0f40	5c 33 31 34 5c 33 30 32 0b 5c 22 13 5c 6e 5c 32 30 33 32 00 5c 33 30 32 0b 42 13 5c 6e 5c 32 30	\314\302.\".\n\2032.\302.B.\n\20
0f60	33 47 00 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 31 32 5c 32 31 31 24 5c 32 31 30 5c 33 31 35	3G.\315\316\317\312\211$\210\315
0f80	5c 33 32 30 5c 33 32 31 5c 33 31 32 5c 32 31 31 24 5c 32 31 30 5c 32 30 32 58 00 5c 33 32 32 5c	\320\321\312\211$\210\202X.\322\
0fa0	33 31 36 5c 33 31 37 5c 33 31 32 23 5c 32 31 30 5c 33 32 32 5c 33 32 30 5c 33 32 31 5c 33 31 32	316\317\312#\210\322\320\321\312
0fc0	23 5c 32 31 30 5c 66 5c 33 31 31 5c 32 31 31 5c 32 32 33 5c 32 31 30 5c 33 32 33 5c 33 32 34 5c	#\210\f\311\211\223\210\323\324\
0fe0	6e 5c 32 30 33 62 00 5c 33 32 35 5c 32 30 32 63 00 5c 33 32 36 5c 22 5c 32 31 30 5c 33 32 37 5c	n\203b.\325\202c.\326\"\210\327\
1000	33 33 30 21 5c 32 30 33 5c 32 31 30 00 5c 33 30 36 20 5c 32 30 33 77 00 08 5c 33 30 36 20 5c 32	330!\203\210.\306.\203w..\306.\2
1020	33 32 5c 32 30 33 5c 32 31 30 00 5c 33 33 31 1d 5c 33 33 32 5c 33 33 33 5c 6e 5c 32 30 33 5c 32	32\203\210.\331.\332\333\n\203\2
1040	30 33 00 5c 33 33 34 5c 32 30 32 5c 32 30 34 00 5c 33 33 35 0d 23 5c 32 31 30 29 29 5c 33 33 36	03.\334\202\204.\335.#\210))\336
1060	20 5c 32 31 30 5c 6e 5c 32 30 37 22 20 5b 23 31 3d 23 3a 6c 61 73 74 2d 6d 65 73 73 61 67 65 20	.\210\n\207".[#1=#:last-message.
1080	61 72 67 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 20 6c 6f 63 61	arg.rectangular-region-mode.loca
10a0	6c 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 73 20 72 72 6d 2f 61 6e 63 68 6f 72 20 6c 6f 63 61 6c 20 63	l-minor-modes.rrm/anchor.local.c
10c0	75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 74 6f 67 67 6c 65 20 31 20 6e 69 6c 20 74 20 62 6f	urrent-message.toggle.1.nil.t.bo
10e0	75 6e 64 70 20 64 65 6c 71 20 61 64 64 2d 68 6f 6f 6b 20 61 66 74 65 72 2d 63 68 61 6e 67 65 2d	undp.delq.add-hook.after-change-
1100	66 75 6e 63 74 69 6f 6e 73 20 72 72 6d 2f 73 77 69 74 63 68 2d 74 6f 2d 6d 75 6c 74 69 70 6c 65	functions.rrm/switch-to-multiple
1120	2d 63 75 72 73 6f 72 73 20 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 72 72 6d 2f 72	-cursors.post-command-hook.rrm/r
1140	65 70 61 69 6e 74 20 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 72 75 6e 2d 68 6f 6f 6b 73 20 72 65 63	epaint.remove-hook.run-hooks.rec
1160	74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 72 65 63 74 61 6e	tangular-region-mode-hook.rectan
1180	67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 72 65 63 74 61 6e	gular-region-mode-on-hook.rectan
11a0	67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65	gular-region-mode-off-hook.calle
11c0	64 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 61 6e 79 20 22 20 69 6e 20 63 75 72 72 65	d-interactively-p.any.".in.curre
11e0	6e 74 20 62 75 66 66 65 72 22 20 6d 65 73 73 61 67 65 20 22 52 65 63 74 61 6e 67 75 6c 61 72 2d	nt.buffer".message."Rectangular-
1200	52 65 67 69 6f 6e 20 6d 6f 64 65 20 25 73 61 62 6c 65 64 25 73 22 20 22 65 6e 22 20 22 64 69 73	Region.mode.%sabled%s"."en"."dis
1220	22 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 35 20 28 23 24 20	".force-mode-line-update].5.(#$.
1240	2e 20 33 31 37 30 29 20 28 6c 69 73 74 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78	..3170).(list.(if.current-prefix
1260	2d 61 72 67 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 63 75 72 72 65	-arg.(prefix-numeric-value.curre
1280	6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 20 27 74 6f 67 67 6c 65 29 29 5d 29 0a 28 64 65 66 76	nt-prefix-arg).'toggle))]).(defv
12a0	61 72 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 20	ar.rectangular-region-mode-hook.
12c0	6e 69 6c 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 4e 5c 32 30 34 5c 66	nil).(byte-code."\301\302N\204\f
12e0	00 5c 33 30 33 5c 33 30 31 5c 33 30 32 5c 33 30 34 23 5c 32 31 30 5c 33 30 33 5c 33 30 31 5c 33	.\303\301\302\304#\210\303\301\3
1300	30 35 5c 33 30 36 23 5c 32 31 30 5c 33 30 33 5c 33 30 31 5c 33 30 37 5c 33 31 30 43 23 5c 32 31	05\306#\210\303\301\307\310C#\21
1320	30 5c 33 31 31 5c 33 31 32 5c 33 31 33 08 5c 33 31 30 5c 32 31 31 25 5c 32 31 30 5c 33 31 34 5c	0\311\312\313.\310\211%\210\314\
1340	33 31 32 21 5c 32 30 37 22 20 5b 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f	312!\207".[rectangular-region-mo
1360	64 65 2d 6d 61 70 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 2d 68	de-map.rectangular-region-mode-h
1380	6f 6f 6b 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 75 74 20 22	ook.variable-documentation.put."
13a0	48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 6f 72 20 6c 65 61 76 69	Hook.run.after.entering.or.leavi
13c0	6e 67 20 60 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67 69 6f 6e 2d 6d 6f 64 65 27 2e 5c 6e 4e	ng.`rectangular-region-mode'.\nN
13e0	6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74 68 69 73 20 76 61 72 69 61 62	o.problems.result.if.this.variab
1400	6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 5c 6e 60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74	le.is.not.bound.\n`add-hook'.aut
1420	6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69 74 2e 20 20 28 54 68 69 73 20 69 73 20 74	omatically.binds.it...(This.is.t
1440	72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76 61 72 69 61 62 6c 65 73 2e 29 22 20 63 75	rue.for.all.hook.variables.)".cu
1460	73 74 6f 6d 2d 74 79 70 65 20 68 6f 6f 6b 20 73 74 61 6e 64 61 72 64 2d 76 61 6c 75 65 20 6e 69	stom-type.hook.standard-value.ni
1480	6c 20 61 64 64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 72 65 63 74 61 6e 67 75 6c 61 72 2d 72 65 67	l.add-minor-mode.rectangular-reg
14a0	69 6f 6e 2d 6d 6f 64 65 20 22 20 72 72 22 20 70 72 6f 76 69 64 65 5d 20 36 29 0a	ion-mode.".rr".provide].6).