blob: f8bfa4b8e2a67249708dd459065eac7ecedd82ce (plain)

ofs	hex dump	ascii
0000	0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 29 29 0a 0a 28 64 65 66	.(provide.(quote.picture))..(def
0020	75 6e 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 20 28 63 6f 6c 75 6d 6e 29	un.move-to-column-force.(column)
0040	20 22 5c 0a 4d 6f 76 65 20 74 6f 20 63 6f 6c 75 6d 6e 20 43 4f 4c 55 4d 4e 20 69 6e 20 63 75 72	."\.Move.to.column.COLUMN.in.cur
0060	72 65 6e 74 20 6c 69 6e 65 2e 0a 44 69 66 66 65 72 73 20 66 72 6f 6d 20 6d 6f 76 65 2d 74 6f 2d	rent.line..Differs.from.move-to-
0080	63 6f 6c 75 6d 6e 20 69 6e 20 74 68 61 74 20 69 74 20 63 72 65 61 74 65 73 20 6f 72 20 6d 6f 64	column.in.that.it.creates.or.mod
00a0	69 66 69 65 73 20 77 68 69 74 65 73 70 61 63 65 0a 69 66 20 6e 65 63 65 73 73 61 72 79 20 74 6f	ifies.whitespace.if.necessary.to
00c0	20 61 74 74 61 69 6e 20 65 78 61 63 74 6c 79 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 63 6f	.attain.exactly.the.specified.co
00e0	6c 75 6d 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 69 19 09 08 57 83 11 00 08	lumn.".(byte-code."..!.i...W....
0100	6a 82 2b 00 c4 09 08 5c 22 85 1b 00 68 c5 55 85 2b 00 c6 1a c7 c8 21 88 09 6a 88 c3 08 21 29 29	j.+....\"...h.U.+.....!..j...!))
0120	87 22 20 5b 63 6f 6c 75 6d 6e 20 63 6f 6c 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20	.".[column.col.indent-tabs-mode.
0140	6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 2f 3d 20 39 20 6e 69 6c 20 64 65 6c 65 74 65 2d 63	move-to-column./=.9.nil.delete-c
0160	68 61 72 20 2d 31 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 65 6e 64 2d	har.-1].5))..(defun.picture-end-
0180	6f 66 2d 6c 69 6e 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 50 6f 73 69 74	of-line.(&optional.arg)."\.Posit
01a0	69 6f 6e 20 70 6f 69 6e 74 20 61 66 74 65 72 20 6c 61 73 74 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 63	ion.point.after.last.non-blank.c
01c0	68 61 72 61 63 74 65 72 20 6f 6e 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 57 69 74 68 20 41	haracter.on.current.line..With.A
01e0	52 47 20 6e 6f 74 20 6e 69 6c 2c 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 41 52 47 20 2d 20 31	RG.not.nil,.move.forward.ARG.-.1
0200	20 6c 69 6e 65 73 20 66 69 72 73 74 2e 0a 49 66 20 73 63 61 6e 20 72 65 61 63 68 65 73 20 65 6e	.lines.first..If.scan.reaches.en
0220	64 20 6f 66 20 62 75 66 66 65 72 2c 20 73 74 6f 70 20 74 68 65 72 65 20 77 69 74 68 6f 75 74 20	d.of.buffer,.stop.there.without.
0240	65 72 72 6f 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d	error.".(interactive."P").(byte-
0260	63 6f 64 65 20 22 c1 88 08 85 0c 00 c2 c3 08 21 53 21 88 c4 20 88 c5 c6 60 c7 20 88 5c 22 87 22	code.".........!S!......`...\"."
0280	20 5b 61 72 67 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 70 72 65 66 69 78 2d 6e 75	.[arg.nil.forward-line.prefix-nu
02a0	6d 65 72 69 63 2d 76 61 6c 75 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b	meric-value.beginning-of-line.sk
02c0	69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 65 6e 64 2d 6f 66 2d 6c 69	ip-chars-backward."..".end-of-li
02e0	6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d	ne].8))..(defun.picture-forward-
0300	63 6f 6c 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 63 75 72 73 6f 72 20 72 69 67 68	column.(arg)."\.Move.cursor.righ
0320	74 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 69 66 20 6e 65 63 65 73 73 61 72	t,.making.whitespace.if.necessar
0340	79 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 20 74 68 61 74 20 6d 61 6e 79	y..With.argument,.move.that.many
0360	20 63 6f 6c 75 6d 6e 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79	.columns.".(interactive."p").(by
0380	74 65 2d 63 6f 64 65 20 22 c1 88 c2 69 08 5c 5c 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 6d 6f 76	te-code."...i.\\!.".[arg.nil.mov
03a0	65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70	e-to-column-force].3))..(defun.p
03c0	69 63 74 75 72 65 2d 62 61 63 6b 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a	icture-backward-column.(arg)."\.
03e0	4d 6f 76 65 20 63 75 72 73 6f 72 20 6c 65 66 74 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70	Move.cursor.left,.making.whitesp
0400	61 63 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c	ace.if.necessary..With.argument,
0420	20 6d 6f 76 65 20 74 68 61 74 20 6d 61 6e 79 20 63 6f 6c 75 6d 6e 73 2e 22 20 28 69 6e 74 65 72	.move.that.many.columns.".(inter
0440	61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 69 08 5a 21 87	active."p").(byte-code."...i.Z!.
0460	22 20 5b 61 72 67 20 6e 69 6c 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d	".[arg.nil.move-to-column-force]
0480	20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 20 28	.3))..(defun.picture-move-down.(
04a0	61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 76 65 72 74 69 63 61 6c 6c 79 20 64 6f 77 6e 2c 20 6d 61	arg)."\.Move.vertically.down,.ma
04c0	6b 69 6e 67 20 77 68 69 74 65 73 70 61 63 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 57 69	king.whitespace.if.necessary..Wi
04e0	74 68 20 61 72 67 75 6d 65 6e 74 2c 20 6d 6f 76 65 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65	th.argument,.move.that.many.line
0500	73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65	s.".(interactive."p").(byte-code
0520	20 22 c2 88 69 18 c3 09 21 88 c4 08 21 29 87 22 20 5b 63 6f 6c 20 61 72 67 20 6e 69 6c 20 70 69	."..i...!...!).".[col.arg.nil.pi
0540	63 74 75 72 65 2d 6e 65 77 6c 69 6e 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72	cture-newline.move-to-column-for
0560	63 65 5d 20 33 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 70 69 63 74 75 72 65 2d 76 65 72 74 69	ce].3))..(defconst.picture-verti
0580	63 61 6c 2d 73 74 65 70 20 30 20 22 5c 0a 41 6d 6f 75 6e 74 20 74 6f 20 6d 6f 76 65 20 76 65 72	cal-step.0."\.Amount.to.move.ver
05a0	74 69 63 61 6c 6c 79 20 61 66 74 65 72 20 74 65 78 74 20 63 68 61 72 61 63 74 65 72 20 69 6e 20	tically.after.text.character.in.
05c0	50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 70 69 63 74 75	Picture.mode.")..(defconst.pictu
05e0	72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 31 20 22 5c 0a 41 6d 6f 75 6e 74 20 74	re-horizontal-step.1."\.Amount.t
0600	6f 20 6d 6f 76 65 20 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 20 61 66 74 65 72 20 74 65 78 74 20 63	o.move.horizontally.after.text.c
0620	68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65	haracter.in.Picture.mode.")..(de
0640	66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 75 70 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76	fun.picture-move-up.(arg)."\.Mov
0660	65 20 76 65 72 74 69 63 61 6c 6c 79 20 75 70 2c 20 6d 61 6b 69 6e 67 20 77 68 69 74 65 73 70 61	e.vertically.up,.making.whitespa
0680	63 65 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20	ce.if.necessary..With.argument,.
06a0	6d 6f 76 65 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74	move.that.many.lines.".(interact
06c0	69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61	ive."p").(byte-code."....[!.".[a
06e0	72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 5d 20 32 29 29 0a 0a 28	rg.nil.picture-move-down].2))..(
0700	64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 72 69 67 68 74 20 6e 69 6c	defun.picture-movement-right.nil
0720	20 22 5c 0a 4d 6f 76 65 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74	."\.Move.right.after.self-insert
0740	69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20	ing.character.in.Picture.mode.".
0760	28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c	(interactive).(byte-code.".....\
0780	22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 30 20 31 5d	".".[nil.picture-set-motion.0.1]
07a0	20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6c 65	.3))..(defun.picture-movement-le
07c0	66 74 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 6c 65 66 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69	ft.nil."\.Move.left.after.self-i
07e0	6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f	nserting.character.in.Picture.mo
0800	64 65 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 65 20 22 c0	de.".(interactive).(byte-code.".
0820	88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e	....\".".[nil.picture-set-motion
0840	20 30 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d	.0.-1].3))..(defun.picture-movem
0860	65 6e 74 2d 75 70 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 75 70 20 61 66 74 65 72 20 73 65 6c 66	ent-up.nil."\.Move.up.after.self
0880	2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20	-inserting.character.in.Picture.
08a0	6d 6f 64 65 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 65 20	mode.".(interactive).(byte-code.
08c0	22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69	".....\".".[nil.picture-set-moti
08e0	6f 6e 20 2d 31 20 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76	on.-1.0].3))..(defun.picture-mov
0900	65 6d 65 6e 74 2d 64 6f 77 6e 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e 20 61 66 74 65	ement-down.nil."\.Move.down.afte
0920	72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69	r.self-inserting.character.in.Pi
0940	63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65	cture.mode.".(interactive).(byte
0960	2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65	-code.".....\".".[nil.picture-se
0980	74 2d 6d 6f 74 69 6f 6e 20 31 20 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72	t-motion.1.0].3))..(defun.pictur
09a0	65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 75 70 20 61 6e 64	e-movement-nw.nil."\.Move.up.and
09c0	20 6c 65 66 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61	.left.after.self-inserting.chara
09e0	63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74	cter.in.Picture.mode.".(interact
0a00	69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c2 5c 22 87 22 20 5b 6e 69 6c 20	ive).(byte-code.".....\".".[nil.
0a20	70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66	picture-set-motion.-1].3))..(def
0a40	75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 65 20 6e 69 6c 20 22 5c 0a 4d 6f	un.picture-movement-ne.nil."\.Mo
0a60	76 65 20 75 70 20 61 6e 64 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72	ve.up.and.right.after.self-inser
0a80	74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22	ting.character.in.Picture.mode."
0aa0	20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3	.(interactive).(byte-code.".....
0ac0	5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 2d 31 20	\".".[nil.picture-set-motion.-1.
0ae0	31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d	1].3))..(defun.picture-movement-
0b00	73 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e 20 61 6e 64 20 6c 65 66 74 20 61 66 74	sw.nil."\.Move.down.and.left.aft
0b20	65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 50	er.self-inserting.character.in.P
0b40	69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74	icture.mode.".(interactive).(byt
0b60	65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73	e-code.".....\".".[nil.picture-s
0b80	65 74 2d 6d 6f 74 69 6f 6e 20 31 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74	et-motion.1.-1].3))..(defun.pict
0ba0	75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 73 65 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 64 6f 77 6e	ure-movement-se.nil."\.Move.down
0bc0	20 61 6e 64 20 72 69 67 68 74 20 61 66 74 65 72 20 73 65 6c 66 2d 69 6e 73 65 72 74 69 6e 67 20	.and.right.after.self-inserting.
0be0	63 68 61 72 61 63 74 65 72 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 22 20 28 69 6e 74	character.in.Picture.mode.".(int
0c00	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c2 5c 22 87 22 20	eractive).(byte-code.".....\".".
0c20	5b 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 31 5d 20 33 29 29 0a 0a	[nil.picture-set-motion.1].3))..
0c40	28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f 74 69 6f 6e 20 28 76 65 72 74 20	(defun.picture-set-motion.(vert.
0c60	68 6f 72 69 7a 29 20 22 5c 0a 53 65 74 20 56 45 52 54 49 43 41 4c 20 61 6e 64 20 48 4f 52 49 5a	horiz)."\.Set.VERTICAL.and.HORIZ
0c80	4f 4e 54 41 4c 20 69 6e 63 72 65 6d 65 6e 74 73 20 66 6f 72 20 6d 6f 76 65 6d 65 6e 74 20 69 6e	ONTAL.increments.for.movement.in
0ca0	20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 54 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 69 73 20	.Picture.mode..The.mode.line.is.
0cc0	75 70 64 61 74 65 64 20 74 6f 20 72 65 66 6c 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 64	updated.to.reflect.the.current.d
0ce0	69 72 65 63 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 10 0b 89 12 88 c5 c6 c7	irection.".(byte-code.".........
0d00	c8 c9 ca 0b cb 5c 22 cc cd ca 09 cb 5c 22 54 5c 22 23 ce 5c 22 40 5c 22 89 14 88 cf d0 20 21 88	.....\".....\"T\"#.\"@\"......!.
0d20	d1 d2 21 87 22 20 5b 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 76 65 72	..!.".[picture-vertical-step.ver
0d40	74 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 68 6f 72 69 7a 20	t.picture-horizontal-step.horiz.
0d60	6d 6f 64 65 2d 6e 61 6d 65 20 66 6f 72 6d 61 74 20 22 50 69 63 74 75 72 65 3a 25 73 22 20 6e 74	mode-name.format."Picture:%s".nt
0d80	68 63 64 72 20 2b 20 31 20 25 20 32 20 2a 20 33 20 28 6e 77 20 75 70 20 6e 65 20 6c 65 66 74 20	hcdr.+.1.%.2.*.3.(nw.up.ne.left.
0da0	6e 6f 6e 65 20 72 69 67 68 74 20 73 77 20 64 6f 77 6e 20 73 65 29 20 73 65 74 2d 62 75 66 66 65	none.right.sw.down.se).set-buffe
0dc0	72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 6d	r-modified-p.buffer-modified-p.m
0de0	65 73 73 61 67 65 20 22 22 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d	essage.""].12))..(defun.picture-
0e00	6d 6f 76 65 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 69 6e 20 64 69 72 65 63 74 69 6f 6e 20 6f 66	move.nil."\.Move.in.direction.of
0e20	20 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 20 61 6e 64 20 20 70 69	..picture-vertical-step..and..pi
0e40	63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 2e 22 20 28 62 79 74 65 2d 63 6f	cture-horizontal-step.".(byte-co
0e60	64 65 20 22 c2 08 21 88 c3 09 21 87 22 20 5b 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d	de."..!...!.".[picture-vertical-
0e80	73 74 65 70 20 70 69 63 74 75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 70 69 63	step.picture-horizontal-step.pic
0ea0	74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77 6e 20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d 63	ture-move-down.picture-forward-c
0ec0	6f 6c 75 6d 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f	olumn].3))..(defun.picture-motio
0ee0	6e 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 69 6e 20 64 69 72 65 63 74 69	n.(arg)."\.Move.point.in.directi
0f00	6f 6e 20 6f 66 20 63 75 72 72 65 6e 74 20 70 69 63 74 75 72 65 20 6d 6f 74 69 6f 6e 20 69 6e 20	on.of.current.picture.motion.in.
0f20	50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 57 69 74 68 20 41 52 47 20 64 6f 20 69 74 20 74 68 61	Picture.mode..With.ARG.do.it.tha
0f40	74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 20 20 55 73 65 66 75 6c 20 66 6f 72 20 64 65 6c 69 6e 65	t.many.times...Useful.for.deline
0f60	61 74 69 6e 67 20 72 65 63 74 61 6e 67 6c 65 73 20 69 6e 0a 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20	ating.rectangles.in.conjunction.
0f80	77 69 74 68 20 64 69 61 67 6f 6e 61 6c 20 70 69 63 74 75 72 65 20 6d 6f 74 69 6f 6e 2e 0a 44 6f	with.diagonal.picture.motion..Do
0fa0	20 5c 5c 5b 63 6f 6d 6d 61 6e 64 2d 61 70 72 6f 70 6f 73 5d 20 20 70 69 63 74 75 72 65 2d 6d 6f	.\\[command-apropos]..picture-mo
0fc0	76 65 6d 65 6e 74 20 20 74 6f 20 73 65 65 20 63 6f 6d 6d 61 6e 64 73 20 77 68 69 63 68 20 63 6f	vement..to.see.commands.which.co
0fe0	6e 74 72 6f 6c 20 6d 6f 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29	ntrol.motion.".(interactive."p")
1000	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 08 09 5c 22 21 88 c6 c5 08 0a 5c 22 21 87 22	.(byte-code."......\"!.....\"!."
1020	20 5b 61 72 67 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 70 69 63 74	.[arg.picture-vertical-step.pict
1040	75 72 65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 6e 69 6c 20 70 69 63 74 75 72 65 2d	ure-horizontal-step.nil.picture-
1060	6d 6f 76 65 2d 64 6f 77 6e 20 2a 20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75	move-down.*.picture-forward-colu
1080	6d 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f 6e 2d 72	mn].6))..(defun.picture-motion-r
10a0	65 76 65 72 73 65 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 69 6e 20 64 69	everse.(arg)."\.Move.point.in.di
10c0	72 65 63 74 69 6f 6e 20 6f 70 70 6f 73 69 74 65 20 6f 66 20 63 75 72 72 65 6e 74 20 70 69 63 74	rection.opposite.of.current.pict
10e0	75 72 65 20 6d 6f 74 69 6f 6e 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 57 69 74 68	ure.motion.in.Picture.mode..With
1100	20 41 52 47 20 64 6f 20 69 74 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 20 20 55 73 65	.ARG.do.it.that.many.times...Use
1120	66 75 6c 20 66 6f 72 20 64 65 6c 69 6e 65 61 74 69 6e 67 20 72 65 63 74 61 6e 67 6c 65 73 20 69	ful.for.delineating.rectangles.i
1140	6e 0a 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 69 61 67 6f 6e 61 6c 20 70 69 63 74	n.conjunction.with.diagonal.pict
1160	75 72 65 20 6d 6f 74 69 6f 6e 2e 0a 44 6f 20 5c 5c 5b 63 6f 6d 6d 61 6e 64 2d 61 70 72 6f 70 6f	ure.motion..Do.\\[command-apropo
1180	73 5d 20 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 20 20 74 6f 20 73 65 65 20 63 6f 6d	s]..picture-movement..to.see.com
11a0	6d 61 6e 64 73 20 77 68 69 63 68 20 63 6f 6e 74 72 6f 6c 20 6d 6f 74 69 6f 6e 2e 22 20 28 69 6e	mands.which.control.motion.".(in
11c0	74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 5b	teractive."p").(byte-code."....[
11e0	21 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 6d 6f 74 69 6f 6e 5d 20 32 29 29	!.".[arg.nil.picture-motion].2))
1200	0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 73 65 6c 66 2d 69 6e 73 65 72 74 20 28 61 72	..(defun.picture-self-insert.(ar
1220	67 29 20 22 5c 0a 49 6e 73 65 72 74 20 74 68 69 73 20 63 68 61 72 61 63 74 65 72 20 69 6e 20 70	g)."\.Insert.this.character.in.p
1240	6c 61 63 65 20 6f 66 20 63 68 61 72 61 63 74 65 72 20 70 72 65 76 69 6f 75 73 6c 79 20 61 74 20	lace.of.character.previously.at.
1260	74 68 65 20 63 75 72 73 6f 72 2e 0a 54 68 65 20 63 75 72 73 6f 72 20 74 68 65 6e 20 6d 6f 76 65	the.cursor..The.cursor.then.move
1280	73 20 69 6e 20 74 68 65 20 64 69 72 65 63 74 69 6f 6e 20 79 6f 75 20 70 72 65 76 69 6f 75 73 6c	s.in.the.direction.you.previousl
12a0	79 20 73 70 65 63 69 66 69 65 64 0a 77 69 74 68 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 70 69	y.specified.with.the.commands.pi
12c0	63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 72 69 67 68 74 2c 20 70 69 63 74 75 72 65 2d 6d 6f	cture-movement-right,.picture-mo
12e0	76 65 6d 65 6e 74 2d 75 70 2c 20 65 74 63 2e 0a 44 6f 20 5c 5c 5b 63 6f 6d 6d 61 6e 64 2d 61 70	vement-up,.etc..Do.\\[command-ap
1300	72 6f 70 6f 73 5d 20 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 20 20 74 6f 20 73 65 65	ropos]..picture-movement..to.see
1320	20 74 68 6f 73 65 20 63 6f 6d 6d 61 6e 64 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22	.those.commands.".(interactive."
1340	70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 c3 56 85 23 00 08 53 89 10 88 c4 69 54	p").(byte-code."....V.#..S....iT
1360	21 88 c5 c6 21 88 09 63 88 c7 c6 21 88 c8 20 88 82 02 00 87 22 20 5b 61 72 67 20 6c 61 73 74 2d	!...!..c...!........".[arg.last-
1380	69 6e 70 75 74 2d 63 68 61 72 20 6e 69 6c 20 30 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d	input-char.nil.0.move-to-column-
13a0	66 6f 72 63 65 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 31 20 66 6f 72 77 61 72 64 2d 63 68 61	force.delete-char.-1.forward-cha
13c0	72 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74	r.picture-move].6))..(defun.pict
13e0	75 72 65 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 20 28 61 72 67 29 20 22 5c 0a 43 6c 65 61 72 20	ure-clear-column.(arg)."\.Clear.
1400	6f 75 74 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 61 66 74 65 72 20 70 6f 69 6e 74 20 77 69 74 68	out.ARG.columns.after.point.with
1420	6f 75 74 20 6d 6f 76 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28	out.moving.".(interactive."p").(
1440	62 79 74 65 2d 63 6f 64 65 20 22 c4 88 60 18 69 19 09 0b 5c 5c 1a c5 0a 21 88 c6 08 60 5c 22 88	byte-code."..`.i...\\...!...`\".
1460	8a 0a 09 5d 6a 29 2b 87 22 20 5b 6f 70 6f 69 6e 74 20 6f 72 69 67 69 6e 61 6c 2d 63 6f 6c 20 74	...]j)+.".[opoint.original-col.t
1480	61 72 67 65 74 2d 63 6f 6c 20 61 72 67 20 6e 69 6c 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e	arget-col.arg.nil.move-to-column
14a0	2d 66 6f 72 63 65 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75	-force.delete-region].4))..(defu
14c0	6e 20 70 69 63 74 75 72 65 2d 62 61 63 6b 77 61 72 64 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 20	n.picture-backward-clear-column.
14e0	28 61 72 67 29 20 22 5c 0a 43 6c 65 61 72 20 6f 75 74 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 62	(arg)."\.Clear.out.ARG.columns.b
1500	65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 6d 6f 76 69 6e 67 20 62 61 63 6b 20 6f 76 65 72 20 74 68	efore.point,.moving.back.over.th
1520	65 6d 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64	em.".(interactive."p").(byte-cod
1540	65 20 22 c1 88 c2 08 5b 21 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 69 63 74 75 72 65 2d 63 6c 65	e."....[!.".[arg.nil.picture-cle
1560	61 72 2d 63 6f 6c 75 6d 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 63	ar-column].2))..(defun.picture-c
1580	6c 65 61 72 2d 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a 43 6c 65 61 72 20 6f 75 74 20 72 65 73	lear-line.(arg)."\.Clear.out.res
15a0	74 20 6f 66 20 6c 69 6e 65 3b 20 69 66 20 61 74 20 65 6e 64 20 6f 66 20 6c 69 6e 65 2c 20 61 64	t.of.line;.if.at.end.of.line,.ad
15c0	76 61 6e 63 65 20 74 6f 20 6e 65 78 74 20 6c 69 6e 65 2e 0a 43 6c 65 61 72 65 64 2d 6f 75 74 20	vance.to.next.line..Cleared-out.
15e0	6c 69 6e 65 20 74 65 78 74 20 67 6f 65 73 20 69 6e 74 6f 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e	line.text.goes.into.the.kill.rin
1600	67 2c 20 61 73 20 64 6f 0a 6e 65 77 6c 69 6e 65 73 20 74 68 61 74 20 61 72 65 20 61 64 76 61 6e	g,.as.do.newlines.that.are.advan
1620	63 65 64 20 6f 76 65 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 63 6c 65 61 72 20 6f	ced.over..With.argument,.clear.o
1640	75 74 20 28 61 6e 64 20 73 61 76 65 20 69 6e 20 6b 69 6c 6c 20 72 69 6e 67 29 20 74 68 61 74 20	ut.(and.save.in.kill.ring).that.
1660	6d 61 6e 79 20 6c 69 6e 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28	many.lines.".(interactive."P").(
1680	62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 83 21 00 c2 08 21 89 10 88 c3 08 21 88 c4 08 c5 56 83	byte-code."....!...!.....!....V.
16a0	1b 00 08 82 1d 00 08 5b 21 82 39 00 c6 c7 21 83 32 00 c8 60 c9 ca 21 88 60 5c 22 82 39 00 cb 60	.......[!.9...!.2..`..!.`\".9..`
16c0	cc 20 88 60 5c 22 87 22 20 5b 61 72 67 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63	...`\".".[arg.nil.prefix-numeric
16e0	2d 76 61 6c 75 65 20 6b 69 6c 6c 2d 6c 69 6e 65 20 6e 65 77 6c 69 6e 65 20 30 20 6c 6f 6f 6b 69	-value.kill-line.newline.0.looki
1700	6e 67 2d 61 74 20 22 5b 20 09 5d 2a 24 22 20 6b 69 6c 6c 2d 72 69 6e 67 2d 73 61 76 65 20 66 6f	ng-at."[..]*$".kill-ring-save.fo
1720	72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 65 6e 64 2d 6f 66 2d	rward-line.1.kill-region.end-of-
1740	6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 6e 65 77 6c 69	line].10))..(defun.picture-newli
1760	6e 65 20 28 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e	ne.(arg)."\.Move.to.the.beginnin
1780	67 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65 2e 0a 57 69 74 68 20 61 72	g.of.the.following.line..With.ar
17a0	67 75 6d 65 6e 74 2c 20 6d 6f 76 65 73 20 74 68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 20 28 75	gument,.moves.that.many.lines.(u
17c0	70 2c 20 69 66 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 29 3b 0a 61 6c 77 61 79 73	p,.if.negative.argument);.always
17e0	20 6d 6f 76 65 73 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 20 6c 69 6e	.moves.to.the.beginning.of.a.lin
1800	65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65	e.".(interactive."p").(byte-code
1820	20 22 c1 88 08 c2 57 83 0e 00 c3 08 21 82 2c 00 08 c2 56 85 2c 00 c4 20 88 6d 83 20 00 c5 20 82	."....W.....!.,...V.,....m......
1840	23 00 c6 c7 21 88 08 53 89 10 88 82 0e 00 87 22 20 5b 61 72 67 20 6e 69 6c 20 30 20 66 6f 72 77	#...!..S.......".[arg.nil.0.forw
1860	61 72 64 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6e 65 77 6c 69 6e 65 20 66 6f 72	ard-line.end-of-line.newline.for
1880	77 61 72 64 2d 63 68 61 72 20 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65	ward-char.1].7))..(defun.picture
18a0	2d 6f 70 65 6e 2d 6c 69 6e 65 20 28 61 72 67 29 20 22 5c 0a 49 6e 73 65 72 74 20 61 6e 20 65 6d	-open-line.(arg)."\.Insert.an.em
18c0	70 74 79 20 6c 69 6e 65 20 61 66 74 65 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e	pty.line.after.the.current.line.
18e0	0a 57 69 74 68 20 70 6f 73 69 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 69 6e 73 65 72 74 20 74	.With.positive.argument.insert.t
1900	68 61 74 20 6d 61 6e 79 20 6c 69 6e 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70	hat.many.lines.".(interactive."p
1920	22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 8a c2 20 88 c3 08 21 29 87 22 20 5b 61 72 67	").(byte-code."........!).".[arg
1940	20 6e 69 6c 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6f 70 65 6e 2d 6c 69 6e 65 5d 20 33 29 29 0a	.nil.end-of-line.open-line].3)).
1960	0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 64 75 70 6c 69 63 61 74 65 2d 6c 69 6e 65 20 6e	.(defun.picture-duplicate-line.n
1980	69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 20 64 75 70 6c 69 63 61 74 65 20 6f 66 20 74 68 65 20	il."\.Insert.a.duplicate.of.the.
19a0	63 75 72 72 65 6e 74 20 6c 69 6e 65 2c 20 62 65 6c 6f 77 20 69 74 2e 22 20 28 69 6e 74 65 72 61	current.line,.below.it.".(intera
19c0	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 8a c2 c3 20 88 60 c4 c5 21 88 60	ctive).(byte-code.".......`..!.`
19e0	5c 22 18 c6 c7 21 88 08 63 29 29 87 22 20 5b 63 6f 6e 74 65 6e 74 73 20 6e 69 6c 20 62 75 66 66	\"...!..c)).".[contents.nil.buff
1a00	65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 70	er-substring.beginning-of-line.p
1a20	69 63 74 75 72 65 2d 6e 65 77 6c 69 6e 65 20 31 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31	icture-newline.1.forward-line.-1
1a40	5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 70 69 63 74 75 72 65 2d 74 61 62 2d 63 68 61 72 73	].5))..(defvar.picture-tab-chars
1a60	20 22 21 2d 7e 22 20 22 5c 0a 2a 41 20 63 68 61 72 61 63 74 65 72 20 73 65 74 20 77 68 69 63 68	."!-~"."\.*A.character.set.which
1a80	20 63 6f 6e 74 72 6f 6c 73 20 62 65 68 61 76 69 6f 72 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 0a 5c	.controls.behavior.of.commands.\
1aa0	5c 5b 70 69 63 74 75 72 65 2d 73 65 74 2d 74 61 62 2d 73 74 6f 70 73 5d 20 61 6e 64 20 5c 5c 5b	\[picture-set-tab-stops].and.\\[
1ac0	70 69 63 74 75 72 65 2d 74 61 62 2d 73 65 61 72 63 68 5d 2e 20 20 49 74 20 69 73 20 4e 4f 54 20	picture-tab-search]...It.is.NOT.
1ae0	61 0a 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 2c 20 61 6e 79 20 72 65 67 65 78 70	a.regular.expression,.any.regexp
1b00	20 73 70 65 63 69 61 6c 20 63 68 61 72 61 63 74 65 72 73 20 77 69 6c 6c 20 62 65 20 71 75 6f 74	.special.characters.will.be.quot
1b20	65 64 2e 0a 49 74 20 64 65 66 69 6e 65 73 20 61 20 73 65 74 20 6f 66 20 5c 22 69 6e 74 65 72 65	ed..It.defines.a.set.of.\"intere
1b40	73 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 73 5c 22 20 74 6f 20 6c 6f 6f 6b 20 66 6f 72 20 77	sting.characters\".to.look.for.w
1b60	68 65 6e 20 73 65 74 74 69 6e 67 0a 28 6f 72 20 73 65 61 72 63 68 69 6e 67 20 66 6f 72 29 20 74	hen.setting.(or.searching.for).t
1b80	61 62 20 73 74 6f 70 73 2c 20 69 6e 69 74 69 61 6c 6c 79 20 5c 22 21 2d 7e 5c 22 20 28 61 6c 6c	ab.stops,.initially.\"!-~\".(all
1ba0	20 70 72 69 6e 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 73 29 2e 0a 46 6f 72 20 65 78 61 6d 70	.printing.characters)..For.examp
1bc0	6c 65 2c 20 73 75 70 70 6f 73 65 20 74 68 61 74 20 79 6f 75 20 61 72 65 20 65 64 69 74 69 6e 67	le,.suppose.that.you.are.editing
1be0	20 61 20 74 61 62 6c 65 20 77 68 69 63 68 20 69 73 20 66 6f 72 6d 61 74 74 65 64 20 74 68 75 73	.a.table.which.is.formatted.thus
1c00	3a 0a 7c 20 66 6f 6f 09 09 7c 20 62 61 72 20 2b 20 62 61 7a 20 7c 20 32 33 20 20 2a 0a 7c 20 62	:.|.foo..|.bar.+.baz.|.23..*.|.b
1c20	75 62 62 6c 65 73 09 7c 20 61 6e 64 20 2b 20 65 74 63 20 7c 20 39 37 20 20 2a 0a 61 6e 64 20 74	ubbles.|.and.+.etc.|.97..*.and.t
1c40	68 61 74 20 70 69 63 74 75 72 65 2d 74 61 62 2d 63 68 61 72 73 20 69 73 20 5c 22 7c 2b 2a 5c 22	hat.picture-tab-chars.is.\"|+*\"
1c60	2e 20 20 54 68 65 6e 20 69 6e 76 6f 6b 69 6e 67 0a 5c 5c 5b 70 69 63 74 75 72 65 2d 73 65 74 2d	...Then.invoking.\\[picture-set-
1c80	74 61 62 2d 73 74 6f 70 73 5d 20 6f 6e 20 65 69 74 68 65 72 20 6f 66 20 74 68 65 20 70 72 65 76	tab-stops].on.either.of.the.prev
1ca0	69 6f 75 73 20 6c 69 6e 65 73 20 77 6f 75 6c 64 20 72 65 73 75 6c 74 0a 69 6e 20 74 68 65 20 66	ious.lines.would.result.in.the.f
1cc0	6f 6c 6c 6f 77 69 6e 67 20 74 61 62 20 73 74 6f 70 73 0a 09 09 3a 20 20 20 20 20 3a 20 20 20 20	ollowing.tab.stops...:.....:....
1ce0	20 3a 20 20 20 20 20 3a 0a 41 6e 6f 74 68 65 72 20 65 78 61 6d 70 6c 65 20 2d 20 5c 22 41 2d 5a	.:.....:.Another.example.-.\"A-Z
1d00	61 2d 7a 30 2d 39 5c 22 20 77 6f 75 6c 64 20 70 72 6f 64 75 63 65 20 74 68 65 20 74 61 62 20 73	a-z0-9\".would.produce.the.tab.s
1d20	74 6f 70 73 0a 20 20 3a 09 09 20 20 3a 09 3a 20 20 20 20 20 3a 0a 0a 4e 6f 74 65 20 74 68 61 74	tops...:....:.:.....:..Note.that
1d40	20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 60 2d 27 20 74	.if.you.want.the.character.`-'.t
1d60	6f 20 62 65 20 69 6e 20 74 68 65 20 73 65 74 2c 20 69 74 20 6d 75 73 74 20 62 65 0a 69 6e 63 6c	o.be.in.the.set,.it.must.be.incl
1d80	75 64 65 64 20 69 6e 20 61 20 72 61 6e 67 65 20 6f 72 20 65 6c 73 65 20 61 70 70 65 61 72 20 69	uded.in.a.range.or.else.appear.i
1da0	6e 20 61 20 63 6f 6e 74 65 78 74 20 77 68 65 72 65 20 69 74 20 63 61 6e 6e 6f 74 20 62 65 0a 74	n.a.context.where.it.cannot.be.t
1dc0	61 6b 65 6e 20 66 6f 72 20 69 6e 64 69 63 61 74 69 6e 67 20 61 20 72 61 6e 67 65 20 28 65 2e 67	aken.for.indicating.a.range.(e.g
1de0	2e 20 5c 22 2d 41 2d 5a 5c 22 20 64 65 63 6c 61 72 65 73 20 74 68 65 20 73 65 74 20 74 6f 20 62	..\"-A-Z\".declares.the.set.to.b
1e00	65 20 74 68 65 0a 6c 65 74 74 65 72 73 20 60 41 27 20 74 68 72 6f 75 67 68 20 60 5a 27 20 61 6e	e.the.letters.`A'.through.`Z'.an
1e20	64 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 60 2d 27 29 2e 20 20 49 66 20 79 6f 75 20 77 61	d.the.character.`-')...If.you.wa
1e40	6e 74 20 74 68 65 0a 63 68 61 72 61 63 74 65 72 20 60 5c 5c 27 20 69 6e 20 74 68 65 20 73 65 74	nt.the.character.`\\'.in.the.set
1e60	20 69 74 20 6d 75 73 74 20 62 65 20 70 72 65 63 65 64 65 64 20 62 79 20 69 74 73 65 6c 66 3a 20	.it.must.be.preceded.by.itself:.
1e80	5c 22 5c 5c 5c 5c 5c 22 2e 0a 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 5c 5c 5b 70 69 63 74 75 72	\"\\\\\"...The.command.\\[pictur
1ea0	65 2d 74 61 62 2d 73 65 61 72 63 68 5d 20 69 73 20 64 65 66 69 6e 65 64 20 74 6f 20 6d 6f 76 65	e-tab-search].is.defined.to.move
1ec0	20 62 65 6e 65 61 74 68 20 28 6f 72 20 74 6f 29 20 61 0a 63 68 61 72 61 63 74 65 72 20 62 65 6c	.beneath.(or.to).a.character.bel
1ee0	6f 6e 67 69 6e 67 20 74 6f 20 74 68 69 73 20 73 65 74 20 69 6e 64 65 70 65 6e 64 65 6e 74 20 6f	onging.to.this.set.independent.o
1f00	66 20 74 68 65 20 74 61 62 20 73 74 6f 70 73 20 6c 69 73 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20	f.the.tab.stops.list.")..(defun.
1f20	70 69 63 74 75 72 65 2d 73 65 74 2d 74 61 62 2d 73 74 6f 70 73 20 28 26 6f 70 74 69 6f 6e 61 6c	picture-set-tab-stops.(&optional
1f40	20 61 72 67 29 20 22 5c 0a 53 65 74 20 76 61 6c 75 65 20 6f 66 20 20 74 61 62 2d 73 74 6f 70 2d	.arg)."\.Set.value.of..tab-stop-
1f60	6c 69 73 74 20 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68	list..according.to.context.of.th
1f80	69 73 20 6c 69 6e 65 2e 0a 54 68 69 73 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 62 65 68 61 76	is.line..This.controls.the.behav
1fa0	69 6f 72 20 6f 66 20 5c 5c 5b 70 69 63 74 75 72 65 2d 74 61 62 5d 2e 20 20 41 20 74 61 62 20 73	ior.of.\\[picture-tab]...A.tab.s
1fc0	74 6f 70 0a 69 73 20 73 65 74 20 61 74 20 65 76 65 72 79 20 63 6f 6c 75 6d 6e 20 6f 63 63 75 70	top.is.set.at.every.column.occup
1fe0	69 65 64 20 62 79 20 61 6e 20 5c 22 69 6e 74 65 72 65 73 74 69 6e 67 20 63 68 61 72 61 63 74 65	ied.by.an.\"interesting.characte
2000	72 5c 22 20 74 68 61 74 20 69 73 0a 70 72 65 63 65 64 65 64 20 62 79 20 77 68 69 74 65 73 70 61	r\".that.is.preceded.by.whitespa
2020	63 65 2e 20 20 49 6e 74 65 72 65 73 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20	ce...Interesting.characters.are.
2040	64 65 66 69 6e 65 64 20 62 79 20 74 68 65 0a 76 61 72 69 61 62 6c 65 20 20 70 69 63 74 75 72 65	defined.by.the.variable..picture
2060	2d 74 61 62 2d 63 68 61 72 73 2c 20 20 73 65 65 20 69 74 73 20 64 6f 63 75 6d 65 6e 74 61 74 69	-tab-chars,..see.its.documentati
2080	6f 6e 20 66 6f 72 20 61 6e 20 65 78 61 6d 70 6c 65 0a 6f 66 20 75 73 61 67 65 2e 20 20 57 69 74	on.for.an.example.of.usage...Wit
20a0	68 20 41 52 47 2c 20 6a 75 73 74 20 28 72 65 29 73 65 74 20 20 74 61 62 2d 73 74 6f 70 2d 6c 69	h.ARG,.just.(re)set..tab-stop-li
20c0	73 74 20 20 74 6f 20 69 74 73 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2e 0a 54 68 65 20 74 61	st..to.its.default.value..The.ta
20e0	62 20 73 74 6f 70 73 20 63 6f 6d 70 75 74 65 64 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 69	b.stops.computed.are.displayed.i
2100	6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 77 69 74 68 20 60 3a 27 20 61 74 0a 65 61 63	n.the.minibuffer.with.`:'.at.eac
2120	68 20 73 74 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65	h.stop.".(interactive."P").(byte
2140	2d 63 6f 64 65 20 22 c8 88 8a c8 18 09 83 11 00 c9 c6 21 89 10 82 43 00 ca cb 0b 21 cc 51 1a cd	-code."...........!...C....!.Q..
2160	20 88 60 1c ce 20 88 cf 0a 0c c5 23 85 35 00 d0 d1 21 88 69 08 42 89 10 88 82 20 00 88 08 3f 85	..`........#.5...!.i.B........?.
2180	41 00 d2 d3 cb 0b 21 5c 22 29 29 88 08 89 16 06 88 d4 08 47 53 08 38 54 d5 5c 22 1e 07 08 85 67	A.....!\"))........GS.8T.\"....g
21a0	00 0e 07 08 40 d6 49 88 08 41 89 10 88 82 54 00 88 d7 0e 07 21 29 29 29 87 22 20 5b 74 61 62 73	....@.I..A....T.....!))).".[tabs
21c0	20 61 72 67 20 72 65 67 65 78 70 20 70 69 63 74 75 72 65 2d 74 61 62 2d 63 68 61 72 73 20 62 6f	.arg.regexp.picture-tab-chars.bo
21e0	6c 20 74 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73 74 20 62 6c 75 72 62 20 6e 69 6c 20 64 65 66 61	l.t.tab-stop-list.blurb.nil.defa
2200	75 6c 74 2d 76 61 6c 75 65 20 22 5b 20 09 5d 2b 5b 22 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20	ult-value."[..]+[".regexp-quote.
2220	22 5d 22 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e	"]".beginning-of-line.end-of-lin
2240	65 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 73 6b 69 70 2d 63 68 61 72 73 2d	e.re-search-backward.skip-chars-
2260	66 6f 72 77 61 72 64 20 22 20 09 22 20 65 72 72 6f 72 20 22 4e 6f 20 63 68 61 72 61 63 74 65 72	forward."..".error."No.character
2280	73 20 69 6e 20 73 65 74 20 25 73 20 6f 6e 20 74 68 69 73 20 6c 69 6e 65 2e 22 20 6d 61 6b 65 2d	s.in.set.%s.on.this.line.".make-
22a0	73 74 72 69 6e 67 20 33 32 20 35 38 20 6d 65 73 73 61 67 65 5d 20 31 33 29 29 0a 0a 28 64 65 66	string.32.58.message].13))..(def
22c0	75 6e 20 70 69 63 74 75 72 65 2d 74 61 62 2d 73 65 61 72 63 68 20 28 26 6f 70 74 69 6f 6e 61 6c	un.picture-tab-search.(&optional
22e0	20 61 72 67 29 20 22 5c 0a 4d 6f 76 65 20 74 6f 20 63 6f 6c 75 6d 6e 20 62 65 6e 65 61 74 68 20	.arg)."\.Move.to.column.beneath.
2300	6e 65 78 74 20 69 6e 74 65 72 65 73 74 69 6e 67 20 63 68 61 72 20 69 6e 20 70 72 65 76 69 6f 75	next.interesting.char.in.previou
2320	73 20 6c 69 6e 65 2e 0a 57 69 74 68 20 41 52 47 20 6d 6f 76 65 20 74 6f 20 63 6f 6c 75 6d 6e 20	s.line..With.ARG.move.to.column.
2340	6f 63 63 75 70 69 65 64 20 62 79 20 6e 65 78 74 20 69 6e 74 65 72 65 73 74 69 6e 67 20 63 68 61	occupied.by.next.interesting.cha
2360	72 61 63 74 65 72 20 69 6e 20 74 68 69 73 0a 6c 69 6e 65 2e 20 20 54 68 65 20 63 68 61 72 61 63	racter.in.this.line...The.charac
2380	74 65 72 20 6d 75 73 74 20 62 65 20 70 72 65 63 65 64 65 64 20 62 79 20 77 68 69 74 65 73 70 61	ter.must.be.preceded.by.whitespa
23a0	63 65 2e 0a 5c 22 69 6e 74 65 72 65 73 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 73 5c 22 20 61	ce..\"interesting.characters\".a
23c0	72 65 20 64 65 66 69 6e 65 64 20 62 79 20 76 61 72 69 61 62 6c 65 20 20 70 69 63 74 75 72 65 2d	re.defined.by.variable..picture-
23e0	74 61 62 2d 63 68 61 72 73 2e 0a 49 66 20 6e 6f 20 73 75 63 68 20 63 68 61 72 61 63 74 65 72 20	tab-chars..If.no.such.character.
2400	69 73 20 66 6f 75 6e 64 2c 20 6d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 6c	is.found,.move.to.beginning.of.l
2420	69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f	ine.".(interactive."P").(byte-co
2440	64 65 20 22 c3 88 69 18 8a 09 3f 85 18 00 c4 20 88 c5 c6 c7 0a 21 50 65 5c 22 88 6f 3f 85 1e 00	de."..i...?..........!Pe\".o?...
2460	c8 08 21 88 c9 ca c7 0a 21 cb 51 8a cc 20 88 60 29 cd 23 83 38 00 69 53 89 10 82 3b 00 c3 89 10	..!.....!.Q....`).#.8.iS...;....
2480	29 88 08 83 47 00 ce 08 21 82 49 00 c4 20 29 87 22 20 5b 74 61 72 67 65 74 20 61 72 67 20 70 69	)...G...!.I...).".[target.arg.pi
24a0	63 74 75 72 65 2d 74 61 62 2d 63 68 61 72 73 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66	cture-tab-chars.nil.beginning-of
24c0	2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 5e 22 20 72 65	-line.skip-chars-backward."^".re
24e0	67 65 78 70 2d 71 75 6f 74 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 72 65 2d 73 65 61	gexp-quote.move-to-column.re-sea
2500	72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 20 09 5d 2b 5b 22 20 22 5d 22 20 65 6e 64 2d 6f 66 2d	rch-forward."[..]+["."]".end-of-
2520	6c 69 6e 65 20 6d 6f 76 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d 20	line.move.move-to-column-force].
2540	31 30 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 74 61 62 20 28 26 6f 70 74 69 6f	10))..(defun.picture-tab.(&optio
2560	6e 61 6c 20 61 72 67 29 20 22 5c 0a 54 61 62 20 74 72 61 6e 73 70 61 72 65 6e 74 6c 79 20 28 6d	nal.arg)."\.Tab.transparently.(m
2580	6f 76 65 29 20 74 6f 20 6e 65 78 74 20 74 61 62 20 73 74 6f 70 2e 0a 57 69 74 68 20 41 52 47 20	ove).to.next.tab.stop..With.ARG.
25a0	6f 76 65 72 77 72 69 74 65 20 74 68 65 20 74 72 61 76 65 72 73 65 64 20 74 65 78 74 20 77 69 74	overwrite.the.traversed.text.wit
25c0	68 20 73 70 61 63 65 73 2e 20 20 54 68 65 20 74 61 62 20 73 74 6f 70 0a 6c 69 73 74 20 63 61 6e	h.spaces...The.tab.stop.list.can
25e0	20 62 65 20 63 68 61 6e 67 65 64 20 62 79 20 5c 5c 5b 70 69 63 74 75 72 65 2d 73 65 74 2d 74 61	.be.changed.by.\\[picture-set-ta
2600	62 2d 73 74 6f 70 73 5d 20 61 6e 64 20 5c 5c 5b 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 5d 2e	b-stops].and.\\[edit-tab-stops].
2620	0a 53 65 65 20 61 6c 73 6f 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 76 61 72 69	.See.also.documentation.for.vari
2640	61 62 6c 65 20 20 70 69 63 74 75 72 65 2d 74 61 62 2d 63 68 61 72 73 2e 22 20 28 69 6e 74 65 72	able..picture-tab-chars.".(inter
2660	61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 60 18 c5 20 88 69	active."P").(byte-code."..`....i
2680	c6 08 60 5c 22 88 19 c7 09 21 88 0a 85 20 00 c4 1b c6 08 60 5c 22 88 09 6a 29 2a 87 22 20 5b 6f	..`\"....!.........`\"..j)*.".[o
26a0	70 6f 69 6e 74 20 74 61 72 67 65 74 20 61 72 67 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64	point.target.arg.indent-tabs-mod
26c0	65 20 6e 69 6c 20 74 61 62 2d 74 6f 2d 74 61 62 2d 73 74 6f 70 20 64 65 6c 65 74 65 2d 72 65 67	e.nil.tab-to-tab-stop.delete-reg
26e0	69 6f 6e 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 5d 20 36 29 29 0a 0a 28	ion.move-to-column-force].6))..(
2700	64 65 66 63 6f 6e 73 74 20 70 69 63 74 75 72 65 2d 6b 69 6c 6c 65 64 2d 72 65 63 74 61 6e 67 6c	defconst.picture-killed-rectangl
2720	65 20 6e 69 6c 20 22 5c 0a 52 65 63 74 61 6e 67 6c 65 20 6b 69 6c 6c 65 64 20 6f 72 20 63 6f 70	e.nil."\.Rectangle.killed.or.cop
2740	69 65 64 20 62 79 20 5c 5c 5b 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 72 65 63 74 61 6e 67 6c	ied.by.\\[picture-clear-rectangl
2760	65 5d 20 69 6e 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 54 68 65 20 63 6f 6e 74 65 6e 74 73	e].in.Picture.mode..The.contents
2780	20 63 61 6e 20 62 65 20 72 65 74 72 69 65 76 65 64 20 62 79 20 5c 5c 5b 70 69 63 74 75 72 65 2d	.can.be.retrieved.by.\\[picture-
27a0	79 61 6e 6b 2d 72 65 63 74 61 6e 67 6c 65 5d 22 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72	yank-rectangle]")..(defun.pictur
27c0	65 2d 63 6c 65 61 72 2d 72 65 63 74 61 6e 67 6c 65 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f 70	e-clear-rectangle.(start.end.&op
27e0	74 69 6f 6e 61 6c 20 6b 69 6c 6c 70 29 20 22 5c 0a 43 6c 65 61 72 20 61 6e 64 20 73 61 76 65 20	tional.killp)."\.Clear.and.save.
2800	72 65 63 74 61 6e 67 6c 65 20 64 65 6c 69 6e 65 61 74 65 64 20 62 79 20 70 6f 69 6e 74 20 61 6e	rectangle.delineated.by.point.an
2820	64 20 6d 61 72 6b 2e 0a 54 68 65 20 72 65 63 74 61 6e 67 6c 65 20 69 73 20 73 61 76 65 64 20 66	d.mark..The.rectangle.is.saved.f
2840	6f 72 20 79 61 6e 6b 69 6e 67 20 62 79 20 5c 5c 5b 70 69 63 74 75 72 65 2d 79 61 6e 6b 2d 72 65	or.yanking.by.\\[picture-yank-re
2860	63 74 61 6e 67 6c 65 5d 20 61 6e 64 20 72 65 70 6c 61 63 65 64 0a 77 69 74 68 20 77 68 69 74 65	ctangle].and.replaced.with.white
2880	73 70 61 63 65 2e 20 20 54 68 65 20 70 72 65 76 69 6f 75 73 6c 79 20 73 61 76 65 64 20 72 65 63	space...The.previously.saved.rec
28a0	74 61 6e 67 6c 65 2c 20 69 66 20 61 6e 79 2c 20 69 73 20 6c 6f 73 74 2e 0a 57 69 74 68 20 70 72	tangle,.if.any,.is.lost..With.pr
28c0	65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 72 65 63 74 61 6e 67 6c 65 20 69 73 20	efix.argument,.the.rectangle.is.
28e0	61 63 74 75 61 6c 6c 79 20 6b 69 6c 6c 65 64 2c 20 73 68 69 66 74 69 6e 67 20 72 65 6d 61 69 6e	actually.killed,.shifting.remain
2900	69 6e 67 0a 74 65 78 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 50 22 29 20 28	ing.text.".(interactive."r.P").(
2920	62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 09 0a 0b 23 89 10 87 22 20 5b 70 69 63 74 75 72 65 2d	byte-code."......#...".[picture-
2940	6b 69 6c 6c 65 64 2d 72 65 63 74 61 6e 67 6c 65 20 73 74 61 72 74 20 65 6e 64 20 6b 69 6c 6c 70	killed-rectangle.start.end.killp
2960	20 6e 69 6c 20 70 69 63 74 75 72 65 2d 73 6e 61 72 66 2d 72 65 63 74 61 6e 67 6c 65 5d 20 34 29	.nil.picture-snarf-rectangle].4)
2980	29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 72 65 63 74 61 6e 67 6c	)..(defun.picture-clear-rectangl
29a0	65 2d 74 6f 2d 72 65 67 69 73 74 65 72 20 28 73 74 61 72 74 20 65 6e 64 20 72 65 67 69 73 74 65	e-to-register.(start.end.registe
29c0	72 20 26 6f 70 74 69 6f 6e 61 6c 20 6b 69 6c 6c 70 29 20 22 5c 0a 43 6c 65 61 72 20 72 65 63 74	r.&optional.killp)."\.Clear.rect
29e0	61 6e 67 6c 65 20 64 65 6c 69 6e 65 61 74 65 64 20 62 79 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61	angle.delineated.by.point.and.ma
2a00	72 6b 20 69 6e 74 6f 20 52 45 47 49 53 54 45 52 2e 0a 54 68 65 20 72 65 63 74 61 6e 67 6c 65 20	rk.into.REGISTER..The.rectangle.
2a20	69 73 20 73 61 76 65 64 20 69 6e 20 52 45 47 49 53 54 45 52 20 61 6e 64 20 72 65 70 6c 61 63 65	is.saved.in.REGISTER.and.replace
2a40	64 20 77 69 74 68 20 77 68 69 74 65 73 70 61 63 65 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61	d.with.whitespace..With.prefix.a
2a60	72 67 75 6d 65 6e 74 2c 20 74 68 65 20 72 65 63 74 61 6e 67 6c 65 20 69 73 20 61 63 74 75 61 6c	rgument,.the.rectangle.is.actual
2a80	6c 79 20 6b 69 6c 6c 65 64 2c 20 73 68 69 66 74 69 6e 67 20 72 65 6d 61 69 6e 69 6e 67 0a 74 65	ly.killed,.shifting.remaining.te
2aa0	78 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 63 52 65 63 74 61 6e 67 6c 65 20	xt.".(interactive."r.cRectangle.
2ac0	74 6f 20 72 65 67 69 73 74 65 72 3a 20 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88	to.register:..P").(byte-code."..
2ae0	c5 08 c6 09 0a 0b 23 5c 22 87 22 20 5b 72 65 67 69 73 74 65 72 20 73 74 61 72 74 20 65 6e 64 20	......#\".".[register.start.end.
2b00	6b 69 6c 6c 70 20 6e 69 6c 20 73 65 74 2d 72 65 67 69 73 74 65 72 20 70 69 63 74 75 72 65 2d 73	killp.nil.set-register.picture-s
2b20	6e 61 72 66 2d 72 65 63 74 61 6e 67 6c 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74	narf-rectangle].6))..(defun.pict
2b40	75 72 65 2d 73 6e 61 72 66 2d 72 65 63 74 61 6e 67 6c 65 20 28 73 74 61 72 74 20 65 6e 64 20 26	ure-snarf-rectangle.(start.end.&
2b60	6f 70 74 69 6f 6e 61 6c 20 6b 69 6c 6c 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 69 c2 c2 c2	optional.killp).(byte-code."i...
2b80	1c 1b 19 18 8a 8a c9 20 89 14 62 88 69 89 13 29 88 0d 83 5c 22 00 ca 0e 06 0e 07 5c 22 82 30 00	..........b.i..)...\"......\".0.
2ba0	cb 0e 06 0e 07 5c 22 cc 0e 06 0e 07 c8 23 88 29 cd 08 21 88 ce cf 20 8a 0c 62 88 cd 0b 21 88 60	.....\"......#.)..!......b...!.`
2bc0	29 5c 22 88 2c 87 22 20 5b 63 6f 6c 75 6d 6e 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65	)\".,.".[column.indent-tabs-mode
2be0	20 6e 69 6c 20 6d 61 72 6b 70 6f 73 20 6f 6c 64 6d 61 72 6b 20 6b 69 6c 6c 70 20 73 74 61 72 74	.nil.markpos.oldmark.killp.start
2c00	20 65 6e 64 20 74 20 6d 61 72 6b 20 64 65 6c 65 74 65 2d 65 78 74 72 61 63 74 2d 72 65 63 74 61	.end.t.mark.delete-extract-recta
2c20	6e 67 6c 65 20 65 78 74 72 61 63 74 2d 72 65 63 74 61 6e 67 6c 65 20 63 6c 65 61 72 2d 72 65 63	ngle.extract-rectangle.clear-rec
2c40	74 61 6e 67 6c 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 2d 66 6f 72 63 65 20 73 65 74 2d	tangle.move-to-column-force.set-
2c60	6d 61 72 6b 65 72 20 6d 61 72 6b 2d 6d 61 72 6b 65 72 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e	marker.mark-marker].11))..(defun
2c80	20 70 69 63 74 75 72 65 2d 79 61 6e 6b 2d 72 65 63 74 61 6e 67 6c 65 20 28 26 6f 70 74 69 6f 6e	.picture-yank-rectangle.(&option
2ca0	61 6c 20 69 6e 73 65 72 74 70 29 20 22 5c 0a 4f 76 65 72 6c 61 79 20 72 65 63 74 61 6e 67 6c 65	al.insertp)."\.Overlay.rectangle
2cc0	20 73 61 76 65 64 20 62 79 20 5c 5c 5b 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 72 65 63 74 61	.saved.by.\\[picture-clear-recta
2ce0	6e 67 6c 65 5d 0a 54 68 65 20 72 65 63 74 61 6e 67 6c 65 20 69 73 20 70 6f 73 69 74 69 6f 6e 65	ngle].The.rectangle.is.positione
2d00	64 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 20 70 6f 69 6e	d.with.upper.left.corner.at.poin
2d20	74 2c 20 6f 76 65 72 77 72 69 74 69 6e 67 0a 65 78 69 73 74 69 6e 67 20 74 65 78 74 2e 20 20 57	t,.overwriting.existing.text...W
2d40	69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 72 65 63 74 61 6e 67	ith.prefix.argument,.the.rectang
2d60	6c 65 20 69 73 20 69 6e 73 65 72 74 65 64 20 69 6e 73 74 65 61 64 2c 0a 73 68 69 66 74 69 6e 67	le.is.inserted.instead,.shifting
2d80	20 65 78 69 73 74 69 6e 67 20 74 65 78 74 2e 20 20 4c 65 61 76 65 73 20 6d 61 72 6b 20 61 74 20	.existing.text...Leaves.mark.at.
2da0	6f 6e 65 20 63 6f 72 6e 65 72 20 6f 66 20 72 65 63 74 61 6e 67 6c 65 20 61 6e 64 0a 70 6f 69 6e	one.corner.of.rectangle.and.poin
2dc0	74 20 61 74 20 74 68 65 20 6f 74 68 65 72 20 28 64 69 61 67 6f 6e 61 6c 6c 79 20 6f 70 70 6f 73	t.at.the.other.(diagonally.oppos
2de0	65 64 29 20 63 6f 72 6e 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28	ed).corner.".(interactive."P").(
2e00	62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 3a 3f 83 0e 00 c3 c4 21 82 12 00 c5 08 09 5c 22 87 22	byte-code."...:?.....!......\"."
2e20	20 5b 70 69 63 74 75 72 65 2d 6b 69 6c 6c 65 64 2d 72 65 63 74 61 6e 67 6c 65 20 69 6e 73 65 72	.[picture-killed-rectangle.inser
2e40	74 70 20 6e 69 6c 20 65 72 72 6f 72 20 22 4e 6f 20 72 65 63 74 61 6e 67 6c 65 20 73 61 76 65 64	tp.nil.error."No.rectangle.saved
2e60	2e 22 20 70 69 63 74 75 72 65 2d 69 6e 73 65 72 74 2d 72 65 63 74 61 6e 67 6c 65 5d 20 34 29 29	.".picture-insert-rectangle].4))
2e80	0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 79 61 6e 6b 2d 72 65 63 74 61 6e 67 6c 65 2d	..(defun.picture-yank-rectangle-
2ea0	66 72 6f 6d 2d 72 65 67 69 73 74 65 72 20 28 72 65 67 69 73 74 65 72 20 26 6f 70 74 69 6f 6e 61	from-register.(register.&optiona
2ec0	6c 20 69 6e 73 65 72 74 70 29 20 22 5c 0a 4f 76 65 72 6c 61 79 20 72 65 63 74 61 6e 67 6c 65 20	l.insertp)."\.Overlay.rectangle.
2ee0	73 61 76 65 64 20 69 6e 20 52 45 47 49 53 54 45 52 2e 0a 54 68 65 20 72 65 63 74 61 6e 67 6c 65	saved.in.REGISTER..The.rectangle
2f00	20 69 73 20 70 6f 73 69 74 69 6f 6e 65 64 20 77 69 74 68 20 75 70 70 65 72 20 6c 65 66 74 20 63	.is.positioned.with.upper.left.c
2f20	6f 72 6e 65 72 20 61 74 20 70 6f 69 6e 74 2c 20 6f 76 65 72 77 72 69 74 69 6e 67 0a 65 78 69 73	orner.at.point,.overwriting.exis
2f40	74 69 6e 67 20 74 65 78 74 2e 20 20 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74	ting.text...With.prefix.argument
2f60	2c 20 74 68 65 20 72 65 63 74 61 6e 67 6c 65 20 69 73 0a 69 6e 73 65 72 74 65 64 20 69 6e 73 74	,.the.rectangle.is.inserted.inst
2f80	65 61 64 2c 20 73 68 69 66 74 69 6e 67 20 65 78 69 73 74 69 6e 67 20 74 65 78 74 2e 20 20 4c 65	ead,.shifting.existing.text...Le
2fa0	61 76 65 73 20 6d 61 72 6b 20 61 74 20 6f 6e 65 20 63 6f 72 6e 65 72 0a 6f 66 20 72 65 63 74 61	aves.mark.at.one.corner.of.recta
2fc0	6e 67 6c 65 20 61 6e 64 20 70 6f 69 6e 74 20 61 74 20 74 68 65 20 6f 74 68 65 72 20 28 64 69 61	ngle.and.point.at.the.other.(dia
2fe0	67 6f 6e 61 6c 6c 79 20 6f 70 70 6f 73 65 64 29 20 63 6f 72 6e 65 72 2e 22 20 28 69 6e 74 65 72	gonally.opposed).corner.".(inter
3000	61 63 74 69 76 65 20 22 63 52 65 63 74 61 6e 67 6c 65 20 66 72 6f 6d 20 72 65 67 69 73 74 65 72	active."cRectangle.from.register
3020	3a 20 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 09 21 18 08 3a 3f 83 13 00 c5	:..P").(byte-code."....!..:?....
3040	c6 09 5c 22 82 17 00 c7 08 0a 5c 22 29 87 22 20 5b 72 65 63 74 61 6e 67 6c 65 20 72 65 67 69 73	..\"......\").".[rectangle.regis
3060	74 65 72 20 69 6e 73 65 72 74 70 20 6e 69 6c 20 67 65 74 2d 72 65 67 69 73 74 65 72 20 65 72 72	ter.insertp.nil.get-register.err
3080	6f 72 20 22 52 65 67 69 73 74 65 72 20 25 63 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e	or."Register.%c.does.not.contain
30a0	20 61 20 72 65 63 74 61 6e 67 6c 65 2e 22 20 70 69 63 74 75 72 65 2d 69 6e 73 65 72 74 2d 72 65	.a.rectangle.".picture-insert-re
30c0	63 74 61 6e 67 6c 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 69 6e 73	ctangle].5))..(defun.picture-ins
30e0	65 72 74 2d 72 65 63 74 61 6e 67 6c 65 20 28 72 65 63 74 61 6e 67 6c 65 20 26 6f 70 74 69 6f 6e	ert-rectangle.(rectangle.&option
3100	61 6c 20 69 6e 73 65 72 74 70 29 20 22 5c 0a 4f 76 65 72 6c 61 79 20 52 45 43 54 41 4e 47 4c 45	al.insertp)."\.Overlay.RECTANGLE
3120	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 20 70 6f 69 6e 74	.with.upper.left.corner.at.point
3140	2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 49 4e 53 45 52 54 50 2c 20 69 66 20	..Optional.argument.INSERTP,.if.
3160	6e 6f 6e 2d 6e 69 6c 20 63 61 75 73 65 73 20 52 45 43 54 41 4e 47 4c 45 20 74 6f 20 62 65 20 69	non-nil.causes.RECTANGLE.to.be.i
3180	6e 73 65 72 74 65 64 2e 0a 4c 65 61 76 65 73 20 74 68 65 20 72 65 67 69 6f 6e 20 73 75 72 72 6f	nserted..Leaves.the.region.surro
31a0	75 6e 64 69 6e 67 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	unding.the.rectangle.".(byte-cod
31c0	65 20 22 c1 18 0a 3f 85 19 00 8a c4 60 c5 0b 40 47 21 88 c6 0b 47 53 21 88 60 5c 22 29 88 c7 20	e."...?.....`..@G!...GS!.`\")...
31e0	88 c8 0b 21 29 87 22 20 5b 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 6e 69 6c 20 69 6e	...!).".[indent-tabs-mode.nil.in
3200	73 65 72 74 70 20 72 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	sertp.rectangle.delete-rectangle
3220	20 70 69 63 74 75 72 65 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 20 70 69 63 74 75 72 65 2d	.picture-forward-column.picture-
3240	6d 6f 76 65 2d 64 6f 77 6e 20 70 75 73 68 2d 6d 61 72 6b 20 69 6e 73 65 72 74 2d 72 65 63 74 61	move-down.push-mark.insert-recta
3260	6e 67 6c 65 5d 20 36 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 70 69 63 74 75 72 65 2d 6d 6f 64	ngle].6))..(defconst.picture-mod
3280	65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 28 6e 6f 74 20 70 69 63 74 75 72 65 2d 6d 6f 64	e-map.nil)..(if.(not.picture-mod
32a0	65 2d 6d 61 70 29 20 28 6c 65 74 20 28 28 69 20 33 32 29 29 20 28 73 65 74 71 20 70 69 63 74 75	e-map).(let.((i.32)).(setq.pictu
32c0	72 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 20 28 77 68 69 6c	re-mode-map.(make-keymap)).(whil
32e0	65 20 28 3c 20 69 20 31 32 37 29 20 28 61 73 65 74 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d	e.(<.i.127).(aset.picture-mode-m
3300	61 70 20 69 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 73 65 6c 66 2d 69 6e 73 65 72 74 29	ap.i.(quote.picture-self-insert)
3320	29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70	).(setq.i.(1+.i))).(define-key.p
3340	69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 06 22 20 28 71 75 6f 74 65 20 70 69 63 74 75	icture-mode-map.".".(quote.pictu
3360	72 65 2d 66 6f 72 77 61 72 64 2d 63 6f 6c 75 6d 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	re-forward-column)).(define-key.
3380	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 02 22 20 28 71 75 6f 74 65 20 70 69 63 74	picture-mode-map.".".(quote.pict
33a0	75 72 65 2d 62 61 63 6b 77 61 72 64 2d 63 6f 6c 75 6d 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65	ure-backward-column)).(define-ke
33c0	79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 04 22 20 28 71 75 6f 74 65 20 70 69	y.picture-mode-map.".".(quote.pi
33e0	63 74 75 72 65 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	cture-clear-column)).(define-key
3400	20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 04 22 20 28 71 75 6f 74 65 20 64 65	.picture-mode-map."..".(quote.de
3420	6c 65 74 65 2d 63 68 61 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d	lete-char)).(define-key.picture-
3440	6d 6f 64 65 2d 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 62 61 63 6b	mode-map.".".(quote.picture-back
3460	77 61 72 64 2d 63 6c 65 61 72 2d 63 6f 6c 75 6d 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	ward-clear-column)).(define-key.
3480	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 0b 22 20 28 71 75 6f 74 65 20 70 69 63 74	picture-mode-map.".".(quote.pict
34a0	75 72 65 2d 63 6c 65 61 72 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63	ure-clear-line)).(define-key.pic
34c0	74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 0f 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65	ture-mode-map.".".(quote.picture
34e0	2d 6f 70 65 6e 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65	-open-line)).(define-key.picture
3500	2d 6d 6f 64 65 2d 6d 61 70 20 22 0d 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 6e 65 77	-mode-map.".".(quote.picture-new
3520	6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d	line)).(define-key.picture-mode-
3540	6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 64 75 70 6c 69 63 61 74 65	map.".".(quote.picture-duplicate
3560	2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65	-line)).(define-key.picture-mode
3580	2d 6d 61 70 20 22 0e 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 64 6f 77	-map.".".(quote.picture-move-dow
35a0	6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70	n)).(define-key.picture-mode-map
35c0	20 22 10 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 6d 6f 76 65 2d 75 70 29 29 20 28 64	.".".(quote.picture-move-up)).(d
35e0	65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 05 22 20 28	efine-key.picture-mode-map.".".(
3600	71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 29 29 20 28 64 65 66	quote.picture-end-of-line)).(def
3620	69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 09 22 20 28 71	ine-key.picture-mode-map."..".(q
3640	75 6f 74 65 20 70 69 63 74 75 72 65 2d 74 6f 67 67 6c 65 2d 74 61 62 2d 73 74 61 74 65 29 29 20	uote.picture-toggle-tab-state)).
3660	28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22	(define-key.picture-mode-map."."
3680	20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 74 61 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65	.(quote.picture-tab)).(define-ke
36a0	79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 09 22 20 28 71 75 6f 74 65 20 70	y.picture-mode-map."..".(quote.p
36c0	69 63 74 75 72 65 2d 74 61 62 2d 73 65 61 72 63 68 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	icture-tab-search)).(define-key.
36e0	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 09 22 20 28 71 75 6f 74 65 20 70 69 63	picture-mode-map."..".(quote.pic
3700	74 75 72 65 2d 73 65 74 2d 74 61 62 2d 73 74 6f 70 73 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	ture-set-tab-stops)).(define-key
3720	20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 0b 22 20 28 71 75 6f 74 65 20 70 69	.picture-mode-map."..".(quote.pi
3740	63 74 75 72 65 2d 63 6c 65 61 72 2d 72 65 63 74 61 6e 67 6c 65 29 29 20 28 64 65 66 69 6e 65 2d	cture-clear-rectangle)).(define-
3760	6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 17 22 20 28 71 75 6f 74 65	key.picture-mode-map."..".(quote
3780	20 70 69 63 74 75 72 65 2d 63 6c 65 61 72 2d 72 65 63 74 61 6e 67 6c 65 2d 74 6f 2d 72 65 67 69	.picture-clear-rectangle-to-regi
37a0	73 74 65 72 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d	ster)).(define-key.picture-mode-
37c0	6d 61 70 20 22 03 19 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 79 61 6e 6b 2d 72 65 63	map."..".(quote.picture-yank-rec
37e0	74 61 6e 67 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64	tangle)).(define-key.picture-mod
3800	65 2d 6d 61 70 20 22 03 18 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 79 61 6e 6b 2d 72	e-map."..".(quote.picture-yank-r
3820	65 63 74 61 6e 67 6c 65 2d 66 72 6f 6d 2d 72 65 67 69 73 74 65 72 29 29 20 28 64 65 66 69 6e 65	ectangle-from-register)).(define
3840	2d 6b 65 79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 03 22 20 28 71 75 6f 74	-key.picture-mode-map."..".(quot
3860	65 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 65 78 69 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65	e.picture-mode-exit)).(define-ke
3880	79 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 06 22 20 28 71 75 6f 74 65 20 70	y.picture-mode-map."..".(quote.p
38a0	69 63 74 75 72 65 2d 6d 6f 74 69 6f 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69 63 74	icture-motion)).(define-key.pict
38c0	75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 02 22 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65	ure-mode-map."..".(quote.picture
38e0	2d 6d 6f 74 69 6f 6e 2d 72 65 76 65 72 73 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69	-motion-reverse)).(define-key.pi
3900	63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 3c 22 20 28 71 75 6f 74 65 20 70 69 63 74 75	cture-mode-map.".<".(quote.pictu
3920	72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6c 65 66 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70	re-movement-left)).(define-key.p
3940	69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 3e 22 20 28 71 75 6f 74 65 20 70 69 63 74	icture-mode-map.".>".(quote.pict
3960	75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 72 69 67 68 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	ure-movement-right)).(define-key
3980	20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 5e 22 20 28 71 75 6f 74 65 20 70 69	.picture-mode-map.".^".(quote.pi
39a0	63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 75 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	cture-movement-up)).(define-key.
39c0	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 2e 22 20 28 71 75 6f 74 65 20 70 69 63	picture-mode-map."..".(quote.pic
39e0	74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 64 6f 77 6e 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79	ture-movement-down)).(define-key
3a00	20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 60 22 20 28 71 75 6f 74 65 20 70 69	.picture-mode-map.".`".(quote.pi
3a20	63 74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 77 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20	cture-movement-nw)).(define-key.
3a40	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 27 22 20 28 71 75 6f 74 65 20 70 69 63	picture-mode-map.".'".(quote.pic
3a60	74 75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70	ture-movement-ne)).(define-key.p
3a80	69 63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 2f 22 20 28 71 75 6f 74 65 20 70 69 63 74	icture-mode-map."./".(quote.pict
3aa0	75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 73 77 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 70 69	ure-movement-sw)).(define-key.pi
3ac0	63 74 75 72 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 5c 5c 22 20 28 71 75 6f 74 65 20 70 69 63 74	cture-mode-map.".\\".(quote.pict
3ae0	75 72 65 2d 6d 6f 76 65 6d 65 6e 74 2d 73 65 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 65 64 69	ure-movement-se))))..(defvar.edi
3b00	74 2d 70 69 63 74 75 72 65 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c	t-picture-hook.nil."\.If.non-nil
3b20	2c 20 69 74 27 73 20 76 61 6c 75 65 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 20 65 6e 74 72 79 20	,.it's.value.is.called.on.entry.
3b40	74 6f 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2e 0a 50 69 63 74 75 72 65 20 6d 6f 64 65 20 69 73	to.Picture.mode..Picture.mode.is
3b60	20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 5c 5c 5b 65 64 69 74 2d	.invoked.by.the.command.\\[edit-
3b80	70 69 63 74 75 72 65 5d 2e 22 29 0a 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 70 69 63 74 75 72 65	picture].")..(defun.edit-picture
3ba0	20 6e 69 6c 20 22 5c 0a 53 77 69 74 63 68 20 74 6f 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2c 20	.nil."\.Switch.to.Picture.mode,.
3bc0	69 6e 20 77 68 69 63 68 20 61 20 71 75 61 72 74 65 72 2d 70 6c 61 6e 65 20 73 63 72 65 65 6e 20	in.which.a.quarter-plane.screen.
3be0	6d 6f 64 65 6c 20 69 73 20 75 73 65 64 2e 0a 50 72 69 6e 74 69 6e 67 20 63 68 61 72 61 63 74 65	model.is.used..Printing.characte
3c00	72 73 20 72 65 70 6c 61 63 65 20 69 6e 73 74 65 61 64 20 6f 66 20 69 6e 73 65 72 74 69 6e 67 20	rs.replace.instead.of.inserting.
3c20	74 68 65 6d 73 65 6c 76 65 73 20 77 69 74 68 20 6d 6f 74 69 6f 6e 0a 61 66 74 65 72 77 61 72 64	themselves.with.motion.afterward
3c40	73 20 73 65 74 74 61 62 6c 65 20 62 79 20 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 73 3a 0a 20 20	s.settable.by.these.commands:...
3c60	43 2d 63 20 3c 09 20 20 4d 6f 76 65 20 6c 65 66 74 20 61 66 74 65 72 20 69 6e 73 65 72 74 69 6f	C-c.<...Move.left.after.insertio
3c80	6e 2e 0a 20 20 43 2d 63 20 3e 09 20 20 4d 6f 76 65 20 72 69 67 68 74 20 61 66 74 65 72 20 69 6e	n....C-c.>...Move.right.after.in
3ca0	73 65 72 74 69 6f 6e 2e 0a 20 20 43 2d 63 20 5e 09 20 20 4d 6f 76 65 20 75 70 20 61 66 74 65 72	sertion....C-c.^...Move.up.after
3cc0	20 69 6e 73 65 72 74 69 6f 6e 2e 0a 20 20 43 2d 63 20 2e 09 20 20 4d 6f 76 65 20 64 6f 77 6e 20	.insertion....C-c.....Move.down.
3ce0	61 66 74 65 72 20 69 6e 73 65 72 74 69 6f 6e 2e 0a 20 20 43 2d 63 20 60 09 20 20 4d 6f 76 65 20	after.insertion....C-c.`...Move.
3d00	6e 6f 72 74 68 77 65 73 74 20 28 6e 77 29 20 61 66 74 65 72 20 69 6e 73 65 72 74 69 6f 6e 2e 0a	northwest.(nw).after.insertion..
3d20	20 20 43 2d 63 20 27 09 20 20 4d 6f 76 65 20 6e 6f 72 74 68 65 61 73 74 20 28 6e 65 29 20 61 66	..C-c.'...Move.northeast.(ne).af
3d40	74 65 72 20 69 6e 73 65 72 74 69 6f 6e 2e 0a 20 20 43 2d 63 20 2f 09 20 20 4d 6f 76 65 20 73 6f	ter.insertion....C-c./...Move.so
3d60	75 74 68 77 65 73 74 20 28 73 77 29 20 61 66 74 65 72 20 69 6e 73 65 72 74 69 6f 6e 2e 0a 20 20	uthwest.(sw).after.insertion....
3d80	43 2d 63 20 5c 5c 20 20 20 4d 6f 76 65 20 73 6f 75 74 68 65 61 73 74 20 28 73 65 29 20 61 66 74	C-c.\\...Move.southeast.(se).aft
3da0	65 72 20 69 6e 73 65 72 74 69 6f 6e 2e 0a 54 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74	er.insertion..The.current.direct
3dc0	69 6f 6e 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e	ion.is.displayed.in.the.mode.lin
3de0	65 2e 20 20 54 68 65 20 69 6e 69 74 69 61 6c 0a 64 69 72 65 63 74 69 6f 6e 20 69 73 20 72 69 67	e...The.initial.direction.is.rig
3e00	68 74 2e 20 20 57 68 69 74 65 73 70 61 63 65 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 6e 64 20	ht...Whitespace.is.inserted.and.
3e20	74 61 62 73 20 61 72 65 20 63 68 61 6e 67 65 64 20 74 6f 0a 73 70 61 63 65 73 20 77 68 65 6e 20	tabs.are.changed.to.spaces.when.
3e40	72 65 71 75 69 72 65 64 20 62 79 20 6d 6f 76 65 6d 65 6e 74 2e 20 20 59 6f 75 20 63 61 6e 20 6d	required.by.movement...You.can.m
3e60	6f 76 65 20 61 72 6f 75 6e 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 77 69 74 68 20 74 68	ove.around.in.the.buffer.with.th
3e80	65 73 65 20 63 6f 6d 6d 61 6e 64 73 3a 0a 20 20 43 2d 70 09 20 20 4d 6f 76 65 20 76 65 72 74 69	ese.commands:...C-p...Move.verti
3ea0	63 61 6c 6c 79 20 74 6f 20 53 41 4d 45 20 63 6f 6c 75 6d 6e 20 69 6e 20 70 72 65 76 69 6f 75 73	cally.to.SAME.column.in.previous
3ec0	20 6c 69 6e 65 2e 0a 20 20 43 2d 6e 09 20 20 4d 6f 76 65 20 76 65 72 74 69 63 61 6c 6c 79 20 74	.line....C-n...Move.vertically.t
3ee0	6f 20 53 41 4d 45 20 63 6f 6c 75 6d 6e 20 69 6e 20 6e 65 78 74 20 6c 69 6e 65 2e 0a 20 20 43 2d	o.SAME.column.in.next.line....C-
3f00	65 09 20 20 4d 6f 76 65 20 74 6f 20 63 6f 6c 75 6d 6e 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 61 73	e...Move.to.column.following.las
3f20	74 20 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 2e 0a 20 20 43 2d	t.non-whitespace.character....C-
3f40	66 09 20 20 4d 6f 76 65 20 72 69 67 68 74 20 69 6e 73 65 72 74 69 6e 67 20 73 70 61 63 65 73 20	f...Move.right.inserting.spaces.
3f60	69 66 20 72 65 71 75 69 72 65 64 2e 0a 20 20 43 2d 62 09 20 20 4d 6f 76 65 20 6c 65 66 74 20 63	if.required....C-b...Move.left.c
3f80	68 61 6e 67 69 6e 67 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 69 66 20 72 65 71 75 69 72	hanging.tabs.to.spaces.if.requir
3fa0	65 64 2e 0a 20 20 43 2d 63 20 43 2d 66 20 4d 6f 76 65 20 69 6e 20 64 69 72 65 63 74 69 6f 6e 20	ed....C-c.C-f.Move.in.direction.
3fc0	6f 66 20 63 75 72 72 65 6e 74 20 70 69 63 74 75 72 65 20 6d 6f 74 69 6f 6e 2e 0a 20 20 43 2d 63	of.current.picture.motion....C-c
3fe0	20 43 2d 62 20 4d 6f 76 65 20 69 6e 20 6f 70 70 6f 73 69 74 65 20 64 69 72 65 63 74 69 6f 6e 20	.C-b.Move.in.opposite.direction.
4000	6f 66 20 63 75 72 72 65 6e 74 20 70 69 63 74 75 72 65 20 6d 6f 74 69 6f 6e 2e 0a 20 20 52 65 74	of.current.picture.motion....Ret
4020	75 72 6e 20 20 4d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 6e 65 78 74 20 6c	urn..Move.to.beginning.of.next.l
4040	69 6e 65 2e 0a 59 6f 75 20 63 61 6e 20 65 64 69 74 20 74 61 62 75 6c 61 72 20 74 65 78 74 20 77	ine..You.can.edit.tabular.text.w
4060	69 74 68 20 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 73 3a 0a 20 20 4d 2d 54 61 62 09 20 20 4d 6f	ith.these.commands:...M-Tab...Mo
4080	76 65 20 74 6f 20 63 6f 6c 75 6d 6e 20 62 65 6e 65 61 74 68 20 28 6f 72 20 61 74 29 20 6e 65 78	ve.to.column.beneath.(or.at).nex
40a0	74 20 69 6e 74 65 72 65 73 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 2e 0a 09 20 20 20 20 60 49	t.interesting.character.......`I
40c0	6e 64 65 6e 74 73 27 20 72 65 6c 61 74 69 76 65 20 74 6f 20 61 20 70 72 65 76 69 6f 75 73 20 6c	ndents'.relative.to.a.previous.l
40e0	69 6e 65 2e 0a 20 20 54 61 62 09 20 20 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 73 74 6f 70 20 69	ine....Tab...Move.to.next.stop.i
4100	6e 20 74 61 62 20 73 74 6f 70 20 6c 69 73 74 2e 0a 20 20 43 2d 63 20 54 61 62 20 53 65 74 20 74	n.tab.stop.list....C-c.Tab.Set.t
4120	61 62 20 73 74 6f 70 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 63 6f 6e 74 65 78 74 20 6f 66	ab.stops.according.to.context.of
4140	20 74 68 69 73 20 6c 69 6e 65 2e 0a 09 20 20 20 20 57 69 74 68 20 41 52 47 20 72 65 73 65 74 73	.this.line.......With.ARG.resets
4160	20 74 61 62 20 73 74 6f 70 73 20 74 6f 20 64 65 66 61 75 6c 74 20 28 67 6c 6f 62 61 6c 29 20 76	.tab.stops.to.default.(global).v
4180	61 6c 75 65 2e 0a 09 20 20 20 20 53 65 65 20 61 6c 73 6f 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f	alue.......See.also.documentatio
41a0	6e 20 6f 66 20 76 61 72 69 61 62 6c 65 09 70 69 63 74 75 72 65 2d 74 61 62 2d 63 68 61 72 73 0a	n.of.variable.picture-tab-chars.
41c0	09 20 20 20 20 77 68 69 63 68 20 64 65 66 69 6e 65 73 20 5c 22 69 6e 74 65 72 65 73 74 69 6e 67	.....which.defines.\"interesting
41e0	20 63 68 61 72 61 63 74 65 72 5c 22 2e 20 20 59 6f 75 20 63 61 6e 20 6d 61 6e 75 61 6c 6c 79 0a	.character\"...You.can.manually.
4200	09 20 20 20 20 63 68 61 6e 67 65 20 74 68 65 20 74 61 62 20 73 74 6f 70 20 6c 69 73 74 20 77 69	.....change.the.tab.stop.list.wi
4220	74 68 20 63 6f 6d 6d 61 6e 64 20 5c 5c 5b 65 64 69 74 2d 74 61 62 2d 73 74 6f 70 73 5d 2e 0a 59	th.command.\\[edit-tab-stops]..Y
4240	6f 75 20 63 61 6e 20 6d 61 6e 69 70 75 6c 61 74 65 20 74 65 78 74 20 77 69 74 68 20 74 68 65 73	ou.can.manipulate.text.with.thes
4260	65 20 63 6f 6d 6d 61 6e 64 73 3a 0a 20 20 43 2d 64 09 20 20 43 6c 65 61 72 20 28 72 65 70 6c 61	e.commands:...C-d...Clear.(repla
4280	63 65 29 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 61 66 74 65 72 20 70 6f 69 6e 74 20 77 69 74 68	ce).ARG.columns.after.point.with
42a0	6f 75 74 20 6d 6f 76 69 6e 67 2e 0a 20 20 43 2d 63 20 43 2d 64 20 44 65 6c 65 74 65 20 63 68 61	out.moving....C-c.C-d.Delete.cha
42c0	72 20 61 74 20 70 6f 69 6e 74 20 2d 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6e 6f 72 6d 61 6c 6c	r.at.point.-.the.command.normall
42e0	79 20 61 73 73 69 67 6e 65 64 20 74 6f 20 43 2d 64 2e 0a 20 20 44 65 6c 65 74 65 20 20 43 6c 65	y.assigned.to.C-d....Delete..Cle
4300	61 72 20 28 72 65 70 6c 61 63 65 29 20 41 52 47 20 63 6f 6c 75 6d 6e 73 20 62 65 66 6f 72 65 20	ar.(replace).ARG.columns.before.
4320	70 6f 69 6e 74 2c 20 6d 6f 76 69 6e 67 20 62 61 63 6b 20 6f 76 65 72 20 74 68 65 6d 2e 0a 20 20	point,.moving.back.over.them....
4340	43 2d 6b 09 20 20 43 6c 65 61 72 20 41 52 47 20 6c 69 6e 65 73 2c 20 61 64 76 61 6e 63 69 6e 67	C-k...Clear.ARG.lines,.advancing
4360	20 6f 76 65 72 20 74 68 65 6d 2e 09 20 54 68 65 20 63 6c 65 61 72 65 64 0a 09 20 20 20 20 74 65	.over.them...The.cleared......te
4380	78 74 20 69 73 20 73 61 76 65 64 20 69 6e 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2e 0a 20 20	xt.is.saved.in.the.kill.ring....
43a0	43 2d 6f 09 20 20 4f 70 65 6e 20 62 6c 61 6e 6b 20 6c 69 6e 65 28 73 29 20 62 65 6e 65 61 74 68	C-o...Open.blank.line(s).beneath
43c0	20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 59 6f 75 20 63 61 6e 20 6d 61 6e 69 70 75 6c 61 74	.current.line..You.can.manipulat
43e0	65 20 72 65 63 74 61 6e 67 6c 65 73 20 77 69 74 68 20 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 73	e.rectangles.with.these.commands
4400	3a 0a 20 20 43 2d 63 20 43 2d 6b 20 43 6c 65 61 72 20 28 6f 72 20 6b 69 6c 6c 29 20 61 20 72 65	:...C-c.C-k.Clear.(or.kill).a.re
4420	63 74 61 6e 67 6c 65 20 61 6e 64 20 73 61 76 65 20 69 74 2e 0a 20 20 43 2d 63 20 43 2d 77 20 4c	ctangle.and.save.it....C-c.C-w.L
4440	69 6b 65 20 43 2d 63 20 43 2d 6b 20 65 78 63 65 70 74 20 72 65 63 74 61 6e 67 6c 65 20 69 73 20	ike.C-c.C-k.except.rectangle.is.
4460	73 61 76 65 64 20 69 6e 20 6e 61 6d 65 64 20 72 65 67 69 73 74 65 72 2e 0a 20 20 43 2d 63 20 43	saved.in.named.register....C-c.C
4480	2d 79 20 4f 76 65 72 6c 61 79 20 28 6f 72 20 69 6e 73 65 72 74 29 20 63 75 72 72 65 6e 74 6c 79	-y.Overlay.(or.insert).currently
44a0	20 73 61 76 65 64 20 72 65 63 74 61 6e 67 6c 65 20 61 74 20 70 6f 69 6e 74 2e 0a 20 20 43 2d 63	.saved.rectangle.at.point....C-c
44c0	20 43 2d 78 20 4c 69 6b 65 20 43 2d 63 20 43 2d 79 20 65 78 63 65 70 74 20 72 65 63 74 61 6e 67	.C-x.Like.C-c.C-y.except.rectang
44e0	6c 65 20 69 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 6e 61 6d 65 64 20 72 65 67 69 73 74 65 72 2e	le.is.taken.from.named.register.
4500	0a 20 20 5c 5c 5b 63 6f 70 79 2d 72 65 63 74 61 6e 67 6c 65 2d 74 6f 2d 72 65 67 69 73 74 65 72	...\\[copy-rectangle-to-register
4520	5d 20 20 20 43 6f 70 69 65 73 20 61 20 72 65 63 74 61 6e 67 6c 65 20 74 6f 20 61 20 72 65 67 69	]...Copies.a.rectangle.to.a.regi
4540	73 74 65 72 2e 0a 20 20 5c 5c 5b 61 64 76 65 72 74 69 73 65 64 2d 75 6e 64 6f 5d 20 20 20 43 61	ster....\\[advertised-undo]...Ca
4560	6e 20 75 6e 64 6f 20 65 66 66 65 63 74 73 20 6f 66 20 72 65 63 74 61 6e 67 6c 65 20 6f 76 65 72	n.undo.effects.of.rectangle.over
4580	6c 61 79 20 63 6f 6d 6d 61 6e 64 73 0a 09 20 20 20 20 63 6f 6d 6d 61 6e 64 73 20 69 66 20 69 6e	lay.commands......commands.if.in
45a0	76 6f 6b 65 64 20 73 6f 6f 6e 20 65 6e 6f 75 67 68 2e 0a 59 6f 75 20 63 61 6e 20 72 65 74 75 72	voked.soon.enough..You.can.retur
45c0	6e 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 6d 6f 64 65 20 77 69 74 68 3a 0a 20 20 43	n.to.the.previous.mode.with:...C
45e0	2d 63 20 43 2d 63 20 57 68 69 63 68 20 61 6c 73 6f 20 73 74 72 69 70 73 20 74 72 61 69 6c 69 6e	-c.C-c.Which.also.strips.trailin
4600	67 20 77 68 69 74 65 73 70 61 63 65 20 66 72 6f 6d 20 65 76 65 72 79 20 6c 69 6e 65 2e 0a 09 20	g.whitespace.from.every.line....
4620	20 20 20 53 74 72 69 70 70 69 6e 67 20 69 73 20 73 75 70 70 72 65 73 73 65 64 20 62 79 20 73 75	...Stripping.is.suppressed.by.su
4640	70 70 6c 79 69 6e 67 20 61 6e 20 61 72 67 75 6d 65 6e 74 2e 0a 0a 45 6e 74 72 79 20 74 6f 20 74	pplying.an.argument...Entry.to.t
4660	68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 20 65 64 69	his.mode.calls.the.value.of..edi
4680	74 2d 70 69 63 74 75 72 65 2d 68 6f 6f 6b 20 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 4e 6f 74	t-picture-hook..if.non-nil...Not
46a0	65 20 74 68 61 74 20 50 69 63 74 75 72 65 20 6d 6f 64 65 20 63 6f 6d 6d 61 6e 64 73 20 77 69 6c	e.that.Picture.mode.commands.wil
46c0	6c 20 77 6f 72 6b 20 6f 75 74 73 69 64 65 20 6f 66 20 50 69 63 74 75 72 65 20 6d 6f 64 65 2c 20	l.work.outside.of.Picture.mode,.
46e0	62 75 74 0a 74 68 65 79 20 61 72 65 20 6e 6f 74 20 64 65 66 61 75 6c 74 6c 79 20 61 73 73 69 67	but.they.are.not.defaultly.assig
4700	6e 65 64 20 74 6f 20 6b 65 79 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74	ned.to.keys.".(interactive).(byt
4720	65 2d 63 6f 64 65 20 22 c7 88 08 ca 3d 83 0e 00 cb cc 21 82 66 00 cd c1 21 88 ce 20 89 11 88 cf	e-code."....=.....!.f...!.......
4740	0a 21 88 cd c3 21 88 0c 89 13 88 cd c5 21 88 08 89 15 88 ca 89 10 88 cd c6 21 88 c7 89 16 06 88	.!...!.......!...........!......
4760	cd c8 21 88 d0 c8 21 89 16 08 88 cd c9 21 88 d0 c9 21 89 16 09 88 cd d1 21 88 cd d2 21 88 d3 d4	..!...!......!...!......!...!...
4780	d5 5c 22 88 d6 d7 d8 5c 22 88 d9 da db 21 0b 5c 22 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20	.\"....\"....!.\".".[major-mode.
47a0	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6f 6c 64 2d 6c 6f 63 61 6c 2d 6d 61 70 20 70 69 63 74 75	picture-mode-old-local-map.pictu
47c0	72 65 2d 6d 6f 64 65 2d 6d 61 70 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6f 6c 64 2d 6d 6f 64	re-mode-map.picture-mode-old-mod
47e0	65 2d 6e 61 6d 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6f 6c	e-name.mode-name.picture-mode-ol
4800	64 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 70 69 63 74 75 72 65 2d 6b 69 6c 6c 65 64 2d 72 65 63 74	d-major-mode.picture-killed-rect
4820	61 6e 67 6c 65 20 6e 69 6c 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73 74 20 70 69 63 74 75 72 65 2d	angle.nil.tab-stop-list.picture-
4840	74 61 62 2d 63 68 61 72 73 20 65 64 69 74 2d 70 69 63 74 75 72 65 20 65 72 72 6f 72 20 22 59 6f	tab-chars.edit-picture.error."Yo
4860	75 20 61 72 65 20 61 6c 72 65 61 64 79 20 65 64 69 74 69 6e 67 20 61 20 50 69 63 74 75 72 65 2e	u.are.already.editing.a.Picture.
4880	22 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 63 75 72 72 65 6e 74 2d 6c 6f	".make-local-variable.current-lo
48a0	63 61 6c 2d 6d 61 70 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 64 65 66 61 75 6c 74 2d 76 61	cal-map.use-local-map.default-va
48c0	6c 75 65 20 70 69 63 74 75 72 65 2d 76 65 72 74 69 63 61 6c 2d 73 74 65 70 20 70 69 63 74 75 72	lue.picture-vertical-step.pictur
48e0	65 2d 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 74 65 70 20 70 69 63 74 75 72 65 2d 73 65 74 2d 6d 6f	e-horizontal-step.picture-set-mo
4900	74 69 6f 6e 20 30 20 31 20 72 75 6e 2d 68 6f 6f 6b 73 20 65 64 69 74 2d 70 69 63 74 75 72 65 2d	tion.0.1.run-hooks.edit-picture-
4920	68 6f 6f 6b 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6d 65 73 73 61 67 65 20 73	hook.picture-mode-hook.message.s
4940	75 62 73 74 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 22 54 79 70 65 20 5c 5c 5b	ubstitute-command-keys."Type.\\[
4960	70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 65 78 69 74 5d 20 69 6e 20 74 68 69 73 20 62 75 66 66 65	picture-mode-exit].in.this.buffe
4980	72 20 74 6f 20 72 65 74 75 72 6e 20 69 74 20 74 6f 20 25 73 20 6d 6f 64 65 2e 22 5d 20 31 39 29	r.to.return.it.to.%s.mode."].19)
49a0	29 0a 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 29 20 28 71	)..(fset.(quote.picture-mode).(q
49c0	75 6f 74 65 20 65 64 69 74 2d 70 69 63 74 75 72 65 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74	uote.edit-picture))..(defun.pict
49e0	75 72 65 2d 6d 6f 64 65 2d 65 78 69 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 73 74 72 69 70	ure-mode-exit.(&optional.nostrip
4a00	29 20 22 5c 0a 55 6e 64 6f 20 65 64 69 74 2d 70 69 63 74 75 72 65 20 61 6e 64 20 72 65 74 75 72	)."\.Undo.edit-picture.and.retur
4a20	6e 20 74 6f 20 70 72 65 76 69 6f 75 73 20 6d 61 6a 6f 72 20 6d 6f 64 65 2e 0a 57 69 74 68 20 6e	n.to.previous.major.mode..With.n
4a40	6f 20 61 72 67 75 6d 65 6e 74 20 73 74 72 69 70 73 20 77 68 69 74 65 73 70 61 63 65 20 66 72 6f	o.argument.strips.whitespace.fro
4a60	6d 20 65 6e 64 20 6f 66 20 65 76 65 72 79 20 6c 69 6e 65 20 69 6e 20 50 69 63 74 75 72 65 20 62	m.end.of.every.line.in.Picture.b
4a80	75 66 66 65 72 0a 20 20 6f 74 68 65 72 77 69 73 65 20 6a 75 73 74 20 72 65 74 75 72 6e 20 74 6f	uffer...otherwise.just.return.to
4aa0	20 70 72 65 76 69 6f 75 73 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50	.previous.mode.".(interactive."P
4ac0	22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 08 c7 3d 3f 83 0f 00 c8 c9 21 82 2b 00 09 3f	").(byte-code."....=?.....!.+..?
4ae0	85 16 00 ca 20 88 0b 89 12 88 cb 0c 21 88 0d 89 10 88 cc cd 21 88 ce cf 20 21 87 22 20 5b 6d 61	............!.......!....!.".[ma
4b00	6a 6f 72 2d 6d 6f 64 65 20 6e 6f 73 74 72 69 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 70 69 63 74 75	jor-mode.nostrip.mode-name.pictu
4b20	72 65 2d 6d 6f 64 65 2d 6f 6c 64 2d 6d 6f 64 65 2d 6e 61 6d 65 20 70 69 63 74 75 72 65 2d 6d 6f	re-mode-old-mode-name.picture-mo
4b40	64 65 2d 6f 6c 64 2d 6c 6f 63 61 6c 2d 6d 61 70 20 70 69 63 74 75 72 65 2d 6d 6f 64 65 2d 6f 6c	de-old-local-map.picture-mode-ol
4b60	64 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69 6c 20 65 64 69 74 2d 70 69 63 74 75 72 65 20 65 72	d-major-mode.nil.edit-picture.er
4b80	72 6f 72 20 22 59 6f 75 20 61 72 65 6e 27 74 20 65 64 69 74 69 6e 67 20 61 20 50 69 63 74 75 72	ror."You.aren't.editing.a.Pictur
4ba0	65 2e 22 20 70 69 63 74 75 72 65 2d 63 6c 65 61 6e 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20	e.".picture-clean.use-local-map.
4bc0	6b 69 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 74 61 62 2d 73 74 6f 70 2d 6c 69 73	kill-local-variable.tab-stop-lis
4be0	74 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d	t.set-buffer-modified-p.buffer-m
4c00	6f 64 69 66 69 65 64 2d 70 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 69 63 74 75 72 65 2d 63	odified-p].7))..(defun.picture-c
4c20	6c 65 61 6e 20 6e 69 6c 20 22 5c 0a 45 6c 69 6d 69 6e 61 74 65 20 77 68 69 74 65 73 70 61 63 65	lean.nil."\.Eliminate.whitespace
4c40	20 61 74 20 65 6e 64 73 20 6f 66 20 6c 69 6e 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22	.at.ends.of.lines.".(byte-code."
4c60	8a 65 62 88 c2 c3 c0 c1 23 85 16 00 c4 c5 c6 21 60 5c 22 88 82 04 00 29 87 22 20 5b 6e 69 6c 20	.eb.....#......!`\"....).".[nil.
4c80	74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 20 09 5d 5b 20 09 5d 2a 24 22	t.re-search-forward."[..][..]*$"
4ca0	20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30	.delete-region.match-beginning.0
4cc0	5d 20 36 29 29 0a	].6)).