blob: d6366fb8d57319f895183bceecc4e564b4ee1d6d (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 6f 70 65 72 61 74 65 2d 6f 6e 2d 72 65 63 74 61 6e 67 6c 65 20 28 66 75	.(defun.operate-on-rectangle.(fu
0020	6e 63 74 69 6f 6e 20 73 74 61 72 74 20 65 6e 64 20 63 6f 65 72 63 65 2d 74 61 62 73 29 20 22 5c	nction.start.end.coerce-tabs)."\
0040	0a 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 66 6f 72 20 65 61 63 68 20 6c 69 6e 65 20 6f 66 20	.Call.FUNCTION.for.each.line.of.
0060	72 65 63 74 61 6e 67 6c 65 20 77 69 74 68 20 63 6f 72 6e 65 72 73 20 61 74 20 53 54 41 52 54 2c	rectangle.with.corners.at.START,
0080	20 45 4e 44 2e 0a 49 66 20 43 4f 45 52 43 45 2d 54 41 42 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c	.END..If.COERCE-TABS.is.non-nil,
00a0	20 63 6f 6e 76 65 72 74 20 6d 75 6c 74 69 2d 63 6f 6c 75 6d 6e 20 63 68 61 72 61 63 74 65 72 73	.convert.multi-column.characters
00c0	0a 74 68 61 74 20 73 70 61 6e 20 74 68 65 20 73 74 61 72 74 69 6e 67 20 6f 72 20 65 6e 64 69 6e	.that.span.the.starting.or.endin
00e0	67 20 63 6f 6c 75 6d 6e 73 20 6f 6e 20 61 6e 79 20 6c 69 6e 65 0a 74 6f 20 6d 75 6c 74 69 70 6c	g.columns.on.any.line.to.multipl
0100	65 20 73 70 61 63 65 73 20 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20 46 55 4e 43 54 49 4f 4e	e.spaces.before.calling.FUNCTION
0120	2e 0a 46 55 4e 43 54 49 4f 4e 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 72 65 65 20	..FUNCTION.is.called.with.three.
0140	61 72 67 75 6d 65 6e 74 73 3a 0a 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 73 74 61 72 74 20 6f 66	arguments:..position.of.start.of
0160	20 73 65 67 6d 65 6e 74 20 6f 66 20 74 68 69 73 20 6c 69 6e 65 20 77 69 74 68 69 6e 20 74 68 65	.segment.of.this.line.within.the
0180	20 72 65 63 74 61 6e 67 6c 65 2c 0a 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 74	.rectangle,..number.of.columns.t
01a0	68 61 74 20 62 65 6c 6f 6e 67 20 74 6f 20 72 65 63 74 61 6e 67 6c 65 20 62 75 74 20 61 72 65 20	hat.belong.to.rectangle.but.are.
01c0	62 65 66 6f 72 65 20 74 68 61 74 20 70 6f 73 69 74 69 6f 6e 2c 0a 20 6e 75 6d 62 65 72 20 6f 66	before.that.position,..number.of
01e0	20 63 6f 6c 75 6d 6e 73 20 74 68 61 74 20 62 65 6c 6f 6e 67 20 74 6f 20 72 65 63 74 61 6e 67 6c	.columns.that.belong.to.rectangl
0200	65 20 62 75 74 20 61 72 65 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 50 6f 69 6e 74 20 69 73 20	e.but.are.after.point..Point.is.
0220	61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 73 65 67 6d 65 6e 74 20 6f 66 20 74 68 69	at.the.end.of.the.segment.of.thi
0240	73 20 6c 69 6e 65 20 77 69 74 68 69 6e 20 74 68 65 20 72 65 63 74 61 6e 67 6c 65 2e 22 20 28 62	s.line.within.the.rectangle.".(b
0260	79 74 65 2d 63 6f 64 65 20 22 cc cc cc cc 1b 1a 19 18 8a 0c 62 88 69 89 10 88 cd 20 88 60 89 11	yte-code."..........b.i......`..
0280	29 88 8a 0d 62 88 69 89 12 88 ce cf 21 88 d0 20 89 13 29 88 0a 08 57 85 3a 00 08 1e 06 0a 10 0e	)...b.i.....!.....)...W.:.......
02a0	06 89 12 29 88 d1 0a 08 5c 22 85 bb 00 8a 09 62 88 60 0b 57 85 ba 00 cc cc cc 1e 09 1e 08 1e 07	...)....\".....b.`.W............
02c0	d2 08 21 88 0e 0a 85 67 00 69 08 56 85 67 00 d3 08 21 88 69 08 5a 89 16 08 88 60 89 16 07 88 d2	..!....g.i.V.g...!.i.Z....`.....
02e0	0a 21 88 69 0a 56 85 8c 00 0e 0a 83 89 00 d3 0a 21 82 8c 00 d4 d5 21 88 0a 69 5a 89 16 09 88 0e	.!.i.V..........!.....!..iZ.....
0300	08 d6 57 85 a6 00 0e 09 0e 08 5c 5c 16 09 d6 89 16 08 88 d7 0e 0b 0e 07 0e 08 0e 09 24 2b 88 ce	..W.......\\................$+..
0320	cf 21 88 82 46 00 29 88 0a 08 5a 2c 87 22 20 5b 73 74 61 72 74 63 6f 6c 20 73 74 61 72 74 6c 69	.!..F.)...Z,.".[startcol.startli
0340	6e 65 70 6f 73 20 65 6e 64 63 6f 6c 20 65 6e 64 6c 69 6e 65 70 6f 73 20 73 74 61 72 74 20 65 6e	nepos.endcol.endlinepos.start.en
0360	64 20 74 65 6d 20 73 74 61 72 74 70 6f 73 20 62 65 67 65 78 74 72 61 20 65 6e 64 65 78 74 72 61	d.tem.startpos.begextra.endextra
0380	20 63 6f 65 72 63 65 2d 74 61 62 73 20 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 62 65 67 69 6e 6e	.coerce-tabs.function.nil.beginn
03a0	69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 70 6f 69 6e 74	ing-of-line.forward-line.1.point
03c0	2d 6d 61 72 6b 65 72 20 2f 3d 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 72 65 63 74 61 6e	-marker./=.move-to-column.rectan
03e0	67 6c 65 2d 63 6f 65 72 63 65 2d 74 61 62 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 30	gle-coerce-tab.forward-char.-1.0
0400	20 66 75 6e 63 61 6c 6c 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 72 65	.funcall].15))..(defun.delete-re
0420	63 74 61 6e 67 6c 65 2d 6c 69 6e 65 20 28 73 74 61 72 74 64 65 6c 70 6f 73 20 69 67 6e 6f 72 65	ctangle-line.(startdelpos.ignore
0440	20 69 67 6e 6f 72 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 60 5c 22 87 22 20 5b 73 74	.ignore).(byte-code."..`\".".[st
0460	61 72 74 64 65 6c 70 6f 73 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 33 29 29 0a 0a 28 64	artdelpos.delete-region].3))..(d
0480	65 66 75 6e 20 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c 65 2d 6c 69	efun.delete-extract-rectangle-li
04a0	6e 65 20 28 73 74 61 72 74 64 65 6c 70 6f 73 20 62 65 67 65 78 74 72 61 20 65 6e 64 65 78 74 72	ne.(startdelpos.begextra.endextr
04c0	61 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c3 08 09 0a 23 29 88 c4 08 60 5c 22 87 22 20 5b	a).(byte-code.".....#)...`\".".[
04e0	73 74 61 72 74 64 65 6c 70 6f 73 20 62 65 67 65 78 74 72 61 20 65 6e 64 65 78 74 72 61 20 65 78	startdelpos.begextra.endextra.ex
0500	74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c 65 2d 6c 69 6e 65 20 64 65 6c 65 74 65 2d 72 65 67 69	tract-rectangle-line.delete-regi
0520	6f 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c	on].4))..(defun.extract-rectangl
0540	65 2d 6c 69 6e 65 20 28 73 74 61 72 74 64 65 6c 70 6f 73 20 62 65 67 65 78 74 72 61 20 65 6e 64	e-line.(startdelpos.begextra.end
0560	65 78 74 72 61 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 09 60 5c 22 60 1a 18 09 62 88 c9 ca	extra).(byte-code."..`\"`...b...
0580	0a c3 23 85 38 00 69 8a cb cc 21 88 69 29 5a 1c 08 cd ce 60 0a cf 23 4f d0 0c 21 08 08 47 60 0a	..#.8.i...!.i)Z....`..#O..!..G`.
05a0	5a 5c 5c d1 4f 51 89 10 29 88 82 0a 00 88 0d cd 56 86 43 00 0e 06 cd 56 85 51 00 d0 0d 21 08 d0	Z\\.OQ..).......V.C....V.Q...!..
05c0	0e 06 21 51 89 10 88 08 0e 07 42 89 16 07 2a 87 22 20 5b 6c 69 6e 65 20 73 74 61 72 74 64 65 6c	..!Q......B...*.".[line.startdel
05e0	70 6f 73 20 65 6e 64 20 74 20 77 69 64 74 68 20 62 65 67 65 78 74 72 61 20 65 6e 64 65 78 74 72	pos.end.t.width.begextra.endextr
0600	61 20 6c 69 6e 65 73 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 73 65 61 72 63 68 2d	a.lines.buffer-substring.search-
0620	66 6f 72 77 61 72 64 20 22 09 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 30 20 2d 20	forward.".".forward-char.-1.0.-.
0640	31 20 73 70 61 63 65 73 2d 73 74 72 69 6e 67 20 6e 69 6c 5d 20 31 32 29 29 0a 0a 28 64 65 66 63	1.spaces-string.nil].12))..(defc
0660	6f 6e 73 74 20 73 70 61 63 65 73 2d 73 74 72 69 6e 67 73 20 28 71 75 6f 74 65 20 5b 22 22 20 22	onst.spaces-strings.(quote.[""."
0680	20 22 20 22 20 20 22 20 22 20 20 20 22 20 22 20 20 20 20 22 20 22 20 20 20 20 20 22 20 22 20 20	.".".."."..."."...."."....."."..
06a0	20 20 20 20 22 20 22 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 22 5d 29 29 0a 0a 28	...."."......."."........"]))..(
06c0	64 65 66 75 6e 20 73 70 61 63 65 73 2d 73 74 72 69 6e 67 20 28 6e 29 20 28 62 79 74 65 2d 63 6f	defun.spaces-string.(n).(byte-co
06e0	64 65 20 22 08 c3 58 83 0c 00 09 08 48 82 28 00 c4 1a 08 c3 56 85 21 00 c5 0a 50 12 08 c3 5a 89	de."..X.....H.(.....V.!...P...Z.
0700	10 88 82 0e 00 88 0a 09 08 48 50 29 87 22 20 5b 6e 20 73 70 61 63 65 73 2d 73 74 72 69 6e 67 73	.........HP).".[n.spaces-strings
0720	20 76 61 6c 20 38 20 22 22 20 22 20 20 20 20 20 20 20 20 22 5d 20 33 29 29 0a 0a 28 64 65 66 75	.val.8.""."........"].3))..(defu
0740	6e 20 64 65 6c 65 74 65 2d 72 65 63 74 61 6e 67 6c 65 20 28 73 74 61 72 74 20 65 6e 64 29 20 22	n.delete-rectangle.(start.end)."
0760	5c 0a 44 65 6c 65 74 65 20 28 64 6f 6e 27 74 20 73 61 76 65 29 20 74 65 78 74 20 69 6e 20 72 65	\.Delete.(don't.save).text.in.re
0780	63 74 61 6e 67 6c 65 20 77 69 74 68 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61 72 6b 20 61 73 20 63	ctangle.with.point.and.mark.as.c
07a0	6f 72 6e 65 72 73 2e 0a 54 68 65 20 73 61 6d 65 20 72 61 6e 67 65 20 6f 66 20 63 6f 6c 75 6d 6e	orners..The.same.range.of.column
07c0	73 20 69 73 20 64 65 6c 65 74 65 64 20 69 6e 20 65 61 63 68 20 6c 69 6e 65 0a 73 74 61 72 74 69	s.is.deleted.in.each.line.starti
07e0	6e 67 20 77 69 74 68 20 74 68 65 20 6c 69 6e 65 20 77 68 65 72 65 20 74 68 65 20 72 65 67 69 6f	ng.with.the.line.where.the.regio
0800	6e 20 62 65 67 69 6e 73 0a 61 6e 64 20 65 6e 64 69 6e 67 20 77 69 74 68 20 74 68 65 20 6c 69 6e	n.begins.and.ending.with.the.lin
0820	65 20 77 68 65 72 65 20 74 68 65 20 72 65 67 69 6f 6e 20 65 6e 64 73 2e 22 20 28 69 6e 74 65 72	e.where.the.region.ends.".(inter
0840	61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 08 09 c2 24	active."r").(byte-code.".......$
0860	87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 74 20 6e 69 6c 20 6f 70 65 72 61 74 65 2d 6f 6e 2d 72	.".[start.end.t.nil.operate-on-r
0880	65 63 74 61 6e 67 6c 65 20 64 65 6c 65 74 65 2d 72 65 63 74 61 6e 67 6c 65 2d 6c 69 6e 65 5d 20	ectangle.delete-rectangle-line].
08a0	35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61	5))..(defun.delete-extract-recta
08c0	6e 67 6c 65 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 6e 64 20 64	ngle.(start.end)."\.Return.and.d
08e0	65 6c 65 74 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 72 65 63 74 61 6e 67 6c 65 20 77 69 74 68	elete.contents.of.rectangle.with
0900	20 63 6f 72 6e 65 72 73 20 61 74 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 2e 0a 56 61 6c 75 65	.corners.at.START.and.END..Value
0920	20 69 73 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2c 20 6f 6e 65 20 66 6f 72 20 65 61 63	.is.list.of.strings,.one.for.eac
0940	68 20 6c 69 6e 65 20 6f 66 20 74 68 65 20 72 65 63 74 61 6e 67 6c 65 2e 22 20 28 62 79 74 65 2d	h.line.of.the.rectangle.".(byte-
0960	63 6f 64 65 20 22 c4 18 c5 c6 09 0a c3 24 88 c7 08 21 29 87 22 20 5b 6c 69 6e 65 73 20 73 74 61	code.".......$...!).".[lines.sta
0980	72 74 20 65 6e 64 20 74 20 6e 69 6c 20 6f 70 65 72 61 74 65 2d 6f 6e 2d 72 65 63 74 61 6e 67 6c	rt.end.t.nil.operate-on-rectangl
09a0	65 20 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c 65 2d 6c 69 6e 65 20	e.delete-extract-rectangle-line.
09c0	6e 72 65 76 65 72 73 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 72 65	nreverse].5))..(defun.extract-re
09e0	63 74 61 6e 67 6c 65 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 52 65 74 75 72 6e 20 63 6f	ctangle.(start.end)."\.Return.co
0a00	6e 74 65 6e 74 73 20 6f 66 20 72 65 63 74 61 6e 67 6c 65 20 77 69 74 68 20 63 6f 72 6e 65 72 73	ntents.of.rectangle.with.corners
0a20	20 61 74 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 2e 0a 56 61 6c 75 65 20 69 73 20 6c 69 73 74	.at.START.and.END..Value.is.list
0a40	20 6f 66 20 73 74 72 69 6e 67 73 2c 20 6f 6e 65 20 66 6f 72 20 65 61 63 68 20 6c 69 6e 65 20 6f	.of.strings,.one.for.each.line.o
0a60	66 20 74 68 65 20 72 65 63 74 61 6e 67 6c 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 18	f.the.rectangle.".(byte-code."..
0a80	c4 c5 09 0a c3 24 88 c6 08 21 29 87 22 20 5b 6c 69 6e 65 73 20 73 74 61 72 74 20 65 6e 64 20 6e	.....$...!).".[lines.start.end.n
0aa0	69 6c 20 6f 70 65 72 61 74 65 2d 6f 6e 2d 72 65 63 74 61 6e 67 6c 65 20 65 78 74 72 61 63 74 2d	il.operate-on-rectangle.extract-
0ac0	72 65 63 74 61 6e 67 6c 65 2d 6c 69 6e 65 20 6e 72 65 76 65 72 73 65 5d 20 35 29 29 0a 0a 28 64	rectangle-line.nreverse].5))..(d
0ae0	65 66 76 61 72 20 6b 69 6c 6c 65 64 2d 72 65 63 74 61 6e 67 6c 65 20 6e 69 6c 20 22 5c 0a 52 65	efvar.killed-rectangle.nil."\.Re
0b00	63 74 61 6e 67 6c 65 20 66 6f 72 20 79 61 6e 6b 2d 72 65 63 74 61 6e 67 6c 65 20 74 6f 20 69 6e	ctangle.for.yank-rectangle.to.in
0b20	73 65 72 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 72 65 63 74 61 6e 67 6c 65 20 28	sert.")..(defun.kill-rectangle.(
0b40	73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 44 65 6c 65 74 65 20 72 65 63 74 61 6e 67 6c 65 20 77	start.end)."\.Delete.rectangle.w
0b60	69 74 68 20 63 6f 72 6e 65 72 73 20 61 74 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61 72 6b 3b 20 73	ith.corners.at.point.and.mark;.s
0b80	61 76 65 20 61 73 20 6c 61 73 74 20 6b 69 6c 6c 65 64 20 6f 6e 65 2e 0a 43 61 6c 6c 69 6e 67 20	ave.as.last.killed.one..Calling.
0ba0	66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 73 75 70 70 6c 79 20 74 77 6f 20 61 72 67 73 20 53 54	from.program,.supply.two.args.ST
0bc0	41 52 54 20 61 6e 64 20 45 4e 44 2c 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 73 2e 0a 42	ART.and.END,.buffer.positions..B
0be0	75 74 20 69 6e 20 70 72 6f 67 72 61 6d 73 20 79 6f 75 20 6d 69 67 68 74 20 70 72 65 66 65 72 20	ut.in.programs.you.might.prefer.
0c00	74 6f 20 75 73 65 20 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c 65 2e	to.use.delete-extract-rectangle.
0c20	22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	".(interactive."r").(byte-code."
0c40	c3 88 c4 09 0a 5c 22 89 10 87 22 20 5b 6b 69 6c 6c 65 64 2d 72 65 63 74 61 6e 67 6c 65 20 73 74	.....\"...".[killed-rectangle.st
0c60	61 72 74 20 65 6e 64 20 6e 69 6c 20 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61	art.end.nil.delete-extract-recta
0c80	6e 67 6c 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 79 61 6e 6b 2d 72 65 63 74 61 6e 67 6c 65	ngle].3))..(defun.yank-rectangle
0ca0	20 6e 69 6c 20 22 5c 0a 59 61 6e 6b 20 74 68 65 20 6c 61 73 74 20 6b 69 6c 6c 65 64 20 72 65 63	.nil."\.Yank.the.last.killed.rec
0cc0	74 61 6e 67 6c 65 20 77 69 74 68 20 75 70 70 65 72 20 6c 65 66 74 20 63 6f 72 6e 65 72 20 61 74	tangle.with.upper.left.corner.at
0ce0	20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64	.point.".(interactive).(byte-cod
0d00	65 20 22 c1 88 c2 08 21 87 22 20 5b 6b 69 6c 6c 65 64 2d 72 65 63 74 61 6e 67 6c 65 20 6e 69 6c	e."....!.".[killed-rectangle.nil
0d20	20 69 6e 73 65 72 74 2d 72 65 63 74 61 6e 67 6c 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 69	.insert-rectangle].2))..(defun.i
0d40	6e 73 65 72 74 2d 72 65 63 74 61 6e 67 6c 65 20 28 72 65 63 74 61 6e 67 6c 65 29 20 22 5c 0a 49	nsert-rectangle.(rectangle)."\.I
0d60	6e 73 65 72 74 20 74 65 78 74 20 6f 66 20 52 45 43 54 41 4e 47 4c 45 20 77 69 74 68 20 75 70 70	nsert.text.of.RECTANGLE.with.upp
0d80	65 72 20 6c 65 66 74 20 63 6f 72 6e 65 72 20 61 74 20 70 6f 69 6e 74 2e 0a 52 45 43 54 41 4e 47	er.left.corner.at.point..RECTANG
0da0	4c 45 27 73 20 66 69 72 73 74 20 6c 69 6e 65 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 74 20 70	LE's.first.line.is.inserted.at.p
0dc0	6f 69 6e 74 2c 0a 69 74 73 20 73 65 63 6f 6e 64 20 6c 69 6e 65 20 69 73 20 69 6e 73 65 72 74 65	oint,.its.second.line.is.inserte
0de0	64 20 61 74 20 61 20 70 6f 69 6e 74 20 76 65 72 74 69 63 61 6c 6c 79 20 75 6e 64 65 72 20 70 6f	d.at.a.point.vertically.under.po
0e00	69 6e 74 2c 20 65 74 63 2e 0a 52 45 43 54 41 4e 47 4c 45 20 73 68 6f 75 6c 64 20 62 65 20 61 20	int,.etc..RECTANGLE.should.be.a.
0e20	6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 69	list.of.strings.".(byte-code.".i
0e40	c4 1b 1a 18 08 85 40 00 0b 86 2f 00 c6 c7 21 88 6e 86 18 00 c8 63 88 c9 0a 21 88 69 0a 56 85 26	......@.../...!.n....c...!.i.V.&
0e60	00 ca 0a 21 88 69 0a 57 85 2f 00 0a 6a 88 c5 89 13 88 08 40 63 88 08 41 89 10 88 82 06 00 2b 87	...!.i.W./..j......@c..A......+.
0e80	22 20 5b 6c 69 6e 65 73 20 72 65 63 74 61 6e 67 6c 65 20 69 6e 73 65 72 74 63 6f 6c 75 6d 6e 20	".[lines.rectangle.insertcolumn.
0ea0	66 69 72 73 74 20 74 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 31 30 20 6d 6f	first.t.nil.forward-line.1.10.mo
0ec0	76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 72 65 63 74 61 6e 67 6c 65 2d 63 6f 65 72 63 65 2d 74 61	ve-to-column.rectangle-coerce-ta
0ee0	62 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6f 70 65 6e 2d 72 65 63 74 61 6e 67 6c 65 20 28 73	b].6))..(defun.open-rectangle.(s
0f00	74 61 72 74 20 65 6e 64 29 20 22 5c 0a 42 6c 61 6e 6b 20 6f 75 74 20 72 65 63 74 61 6e 67 6c 65	tart.end)."\.Blank.out.rectangle
0f20	20 77 69 74 68 20 63 6f 72 6e 65 72 73 20 61 74 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61 72 6b 2c	.with.corners.at.point.and.mark,
0f40	20 73 68 69 66 74 69 6e 67 20 74 65 78 74 20 72 69 67 68 74 2e 0a 54 68 65 20 74 65 78 74 20 70	.shifting.text.right..The.text.p
0f60	72 65 76 69 6f 75 73 6c 79 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 20 69 73 20 6e 6f 74 20 6f	reviously.in.the.region.is.not.o
0f80	76 65 72 77 72 69 74 74 65 6e 20 62 79 20 74 68 65 20 62 6c 61 6e 6b 73 2c 0a 62 75 74 20 69 6e	verwritten.by.the.blanks,.but.in
0fa0	73 74 65 64 20 77 69 6e 64 73 20 75 70 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 6f 66 20 74 68	sted.winds.up.to.the.right.of.th
0fc0	65 20 72 65 63 74 61 6e 67 6c 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20	e.rectangle.".(interactive."r").
0fe0	28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 08 09 c2 24 87 22 20 5b 73 74 61 72 74 20 65 6e	(byte-code.".......$.".[start.en
1000	64 20 6e 69 6c 20 6f 70 65 72 61 74 65 2d 6f 6e 2d 72 65 63 74 61 6e 67 6c 65 20 6f 70 65 6e 2d	d.nil.operate-on-rectangle.open-
1020	72 65 63 74 61 6e 67 6c 65 2d 6c 69 6e 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6f 70 65 6e	rectangle-line].5))..(defun.open
1040	2d 72 65 63 74 61 6e 67 6c 65 2d 6c 69 6e 65 20 28 73 74 61 72 74 70 6f 73 20 62 65 67 65 78 74	-rectangle-line.(startpos.begext
1060	72 61 20 65 6e 64 65 78 74 72 61 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 69 09 0a 23 18 0b	ra.endextra).(byte-code.".i..#..
1080	62 88 69 1c c6 c7 21 88 08 69 0c 5a 5c 5c 89 10 29 88 c8 60 c9 c7 21 88 60 5c 22 88 08 6a 29 87	b.i...!..i.Z\\..)..`..!.`\"..j).
10a0	22 20 5b 63 6f 6c 75 6d 6e 20 62 65 67 65 78 74 72 61 20 65 6e 64 65 78 74 72 61 20 73 74 61 72	".[column.begextra.endextra.star
10c0	74 70 6f 73 20 6f 63 6f 6c 20 2b 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22	tpos.ocol.+.skip-chars-forward."
10e0	20 09 22 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63	..".delete-region.skip-chars-bac
1100	6b 77 61 72 64 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 72 65 63 74 61 6e 67	kward].6))..(defun.clear-rectang
1120	6c 65 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 73 65 72 76 65	le.(start.end.&optional.preserve
1140	2d 70 6f 73 69 74 69 6f 6e 29 20 22 5c 0a 42 6c 61 6e 6b 20 6f 75 74 20 72 65 63 74 61 6e 67 6c	-position)."\.Blank.out.rectangl
1160	65 20 77 69 74 68 20 63 6f 72 6e 65 72 73 20 61 74 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61 72 6b	e.with.corners.at.point.and.mark
1180	2e 0a 54 68 65 20 74 65 78 74 20 70 72 65 76 69 6f 75 73 6c 79 20 69 6e 20 74 68 65 20 72 65 67	..The.text.previously.in.the.reg
11a0	69 6f 6e 20 69 73 20 6f 76 65 72 77 72 69 74 74 65 6e 20 62 79 20 74 68 65 20 62 6c 61 6e 6b 73	ion.is.overwritten.by.the.blanks
11c0	2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20	.".(interactive."r").(byte-code.
11e0	22 c3 88 c4 c5 08 09 c2 24 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 74 20 6e 69 6c 20 6f 70 65	".......$.".[start.end.t.nil.ope
1200	72 61 74 65 2d 6f 6e 2d 72 65 63 74 61 6e 67 6c 65 20 63 6c 65 61 72 2d 72 65 63 74 61 6e 67 6c	rate-on-rectangle.clear-rectangl
1220	65 2d 6c 69 6e 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 63 6c 65 61 72 2d 72 65 63 74 61 6e	e-line].5))..(defun.clear-rectan
1240	67 6c 65 2d 6c 69 6e 65 20 28 73 74 61 72 74 70 6f 73 20 62 65 67 65 78 74 72 61 20 65 6e 64 65	gle-line.(startpos.begextra.ende
1260	78 74 72 61 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 21 88 69 09 5c 5c 18 c6 60 0a 62 88	xtra).(byte-code."..!.i.\\..`.b.
1280	0b 86 14 00 c7 c5 21 88 60 5c 22 88 08 6a 29 87 22 20 5b 63 6f 6c 75 6d 6e 20 65 6e 64 65 78 74	......!.`\"..j).".[column.endext
12a0	72 61 20 73 74 61 72 74 70 6f 73 20 70 72 65 73 65 72 76 65 2d 70 6f 73 69 74 69 6f 6e 20 73 6b	ra.startpos.preserve-position.sk
12c0	69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 64 65 6c 65 74 65 2d 72 65 67	ip-chars-forward."..".delete-reg
12e0	69 6f 6e 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 5d 20 35 29 29 0a 0a 28 64	ion.skip-chars-backward].5))..(d
1300	65 66 75 6e 20 72 65 63 74 61 6e 67 6c 65 2d 63 6f 65 72 63 65 2d 74 61 62 20 28 63 6f 6c 75 6d	efun.rectangle-coerce-tab.(colum
1320	6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 69 c2 19 18 c4 c5 21 88 08 6a 88 c6 08 0b 5a 21 2a	n).(byte-code."i.....!..j....Z!*
1340	87 22 20 5b 61 66 74 65 72 63 6f 6c 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 69	.".[aftercol.indent-tabs-mode.ni
1360	6c 20 63 6f 6c 75 6d 6e 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 62 61 63 6b 77 61 72 64	l.column.delete-char.-1.backward
1380	2d 63 68 61 72 5d 20 34 29 29 0a	-char].4)).