blob: 6a0a77a3c30eaa6c8678d99f0f034440e35500cd (plain)

ofs	hex dump	ascii
0000	0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 6b 65 79 70 61 64 29 29 0a 0a 28 64 65 66 76	.(require.(quote.keypad))..(defv
0020	61 72 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 22 22 20 22 5c 0a	ar.edt-last-deleted-lines.""."\.
0040	4c 61 73 74 20 74 65 78 74 20 64 65 6c 65 74 65 64 20 62 79 20 61 6e 20 45 44 54 20 65 6d 75 6c	Last.text.deleted.by.an.EDT.emul
0060	61 74 69 6f 6e 20 6c 69 6e 65 2d 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64	ation.line-delete.command.")..(d
0080	65 66 76 61 72 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 22 22 20	efvar.edt-last-deleted-words."".
00a0	22 5c 0a 4c 61 73 74 20 74 65 78 74 20 64 65 6c 65 74 65 64 20 62 79 20 61 6e 20 45 44 54 20 65	"\.Last.text.deleted.by.an.EDT.e
00c0	6d 75 6c 61 74 69 6f 6e 20 77 6f 72 64 2d 64 65 6c 65 74 65 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a	mulation.word-delete.command.").
00e0	0a 28 64 65 66 76 61 72 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 68 61 72 73 20	.(defvar.edt-last-deleted-chars.
0100	22 22 20 22 5c 0a 4c 61 73 74 20 74 65 78 74 20 64 65 6c 65 74 65 64 20 62 79 20 61 6e 20 45 44	""."\.Last.text.deleted.by.an.ED
0120	54 20 65 6d 75 6c 61 74 69 6f 6e 20 63 68 61 72 61 63 74 65 72 2d 64 65 6c 65 74 65 20 63 6f 6d	T.emulation.character-delete.com
0140	6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 2d 6c	mand.")..(defun.delete-current-l
0160	69 6e 65 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f 6e 65 20 6f 72 20 73 70 65 63 69	ine.(num)."\.Delete.one.or.speci
0180	66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 61 66 74 65 72 20 70 6f 69 6e 74	fied.number.of.lines.after.point
01a0	2e 0a 54 68 69 73 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 6e 65 77 6c 69 6e 65 20 63 68 61 72	..This.includes.the.newline.char
01c0	61 63 74 65 72 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 65 61 63 68 20 6c 69 6e 65 2e 0a 54	acter.at.the.end.of.each.line..T
01e0	68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65	hey.are.saved.for.the.EDT.undele
0200	74 65 2d 6c 69 6e 65 73 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20	te-lines.command.".(interactive.
0220	22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 60 18 c4 09 21 88 68 c5 3d 3f 85 11 00	"p").(byte-code."..`...!.h.=?...
0240	c6 63 88 c7 08 60 5c 22 89 12 88 c8 08 60 5c 22 29 87 22 20 5b 62 65 67 20 6e 75 6d 20 65 64 74	.c...`\".....`\").".[beg.num.edt
0260	2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d	-last-deleted-lines.nil.forward-
0280	6c 69 6e 65 20 31 30 20 22 0a 22 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c	line.10.".".buffer-substring.del
02a0	65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 74	ete-region].5))..(defun.delete-t
02c0	6f 2d 65 6f 6c 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 74 65 78 74 20 75 70 20 74 6f	o-eol.(num)."\.Delete.text.up.to
02e0	20 65 6e 64 20 6f 66 20 6c 69 6e 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 64 65 6c	.end.of.line..With.argument,.del
0300	65 74 65 20 75 70 20 74 6f 20 74 6f 20 4e 74 68 20 6c 69 6e 65 2d 65 6e 64 20 70 61 73 74 20 70	ete.up.to.to.Nth.line-end.past.p
0320	6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 45 44 54	oint..They.are.saved.for.the.EDT
0340	20 75 6e 64 65 6c 65 74 65 2d 6c 69 6e 65 73 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72	.undelete-lines.command.".(inter
0360	61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 60 18 c4 c5 21 88	active."p").(byte-code."..`...!.
0380	c6 09 21 88 c7 08 60 5c 22 89 12 88 c8 08 60 5c 22 29 87 22 20 5b 62 65 67 20 6e 75 6d 20 65 64	..!...`\".....`\").".[beg.num.ed
03a0	74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 6e 69 6c 20 66 6f 72 77 61 72 64	t-last-deleted-lines.nil.forward
03c0	2d 63 68 61 72 20 31 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 62 75 66 66 65 72 2d 73 75 62 73 74	-char.1.end-of-line.buffer-subst
03e0	72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20	ring.delete-region].6))..(defun.
0400	64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 2d 77 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c	delete-current-word.(num)."\.Del
0420	65 74 65 20 6f 6e 65 20 6f 72 20 73 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 77	ete.one.or.specified.number.of.w
0440	6f 72 64 73 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64	ords.after.point..They.are.saved
0460	20 66 6f 72 20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 74 65 2d 77 6f 72 64 73 20 63 6f 6d 6d	.for.the.EDT.undelete-words.comm
0480	61 6e 64 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	and.".(interactive."p").(byte-co
04a0	64 65 20 22 c3 88 60 18 c4 09 21 88 c5 08 60 5c 22 89 12 88 c6 08 60 5c 22 29 87 22 20 5b 62 65	de."..`...!...`\".....`\").".[be
04c0	67 20 6e 75 6d 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 6e 69 6c	g.num.edt-last-deleted-words.nil
04e0	20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64	.forward-word.buffer-substring.d
0500	65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65	elete-region].5))..(defun.delete
0520	2d 70 72 65 76 69 6f 75 73 2d 77 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f	-previous-word.(num)."\.Delete.o
0540	6e 65 20 6f 72 20 73 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 77 6f 72 64 73 20	ne.or.specified.number.of.words.
0560	62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72	before.point..They.are.saved.for
0580	20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 74 65 2d 77 6f 72 64 73 20 63 6f 6d 6d 61 6e 64 2e	.the.EDT.undelete-words.command.
05a0	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 20 22	".(interactive."p").(byte-code."
05c0	c3 88 60 18 c4 09 5b 21 88 c5 60 08 5c 22 89 12 88 c6 08 60 5c 22 29 87 22 20 5b 62 65 67 20 6e	..`...[!..`.\".....`\").".[beg.n
05e0	75 6d 20 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 6e 69 6c 20 66 6f	um.edt-last-deleted-words.nil.fo
0600	72 77 61 72 64 2d 77 6f 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c 65	rward-word.buffer-substring.dele
0620	74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 63 75	te-region].5))..(defun.delete-cu
0640	72 72 65 6e 74 2d 63 68 61 72 20 28 6e 75 6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f 6e 65 20 6f	rrent-char.(num)."\.Delete.one.o
0660	72 20 73 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73	r.specified.number.of.characters
0680	20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72	.after.point..They.are.saved.for
06a0	20 74 68 65 20 45 44 54 20 75 6e 64 65 6c 65 74 65 2d 63 68 61 72 73 20 63 6f 6d 6d 61 6e 64 2e	.the.EDT.undelete-chars.command.
06c0	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 20 22	".(interactive."p").(byte-code."
06e0	c2 88 c3 60 64 60 09 5c 5c 5e 5c 22 89 10 88 c4 60 64 60 09 5c 5c 5e 5c 22 87 22 20 5b 65 64 74	...`d`.\\^\"....`d`.\\^\".".[edt
0700	2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 68 61 72 73 20 6e 75 6d 20 6e 69 6c 20 62 75 66 66	-last-deleted-chars.num.nil.buff
0720	65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a	er-substring.delete-region].6)).
0740	0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 70 72 65 76 69 6f 75 73 2d 63 68 61 72 20 28 6e 75	.(defun.delete-previous-char.(nu
0760	6d 29 20 22 5c 0a 44 65 6c 65 74 65 20 6f 6e 65 20 6f 72 20 73 70 65 63 69 66 69 65 64 20 6e 75	m)."\.Delete.one.or.specified.nu
0780	6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e	mber.of.characters.before.point.
07a0	0a 54 68 65 79 20 61 72 65 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 45 44 54 20 75 6e 64 65	.They.are.saved.for.the.EDT.unde
07c0	6c 65 74 65 2d 63 68 61 72 73 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	lete-chars.command.".(interactiv
07e0	65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 65 60 09 5a 5d 60 5c 22 89 10	e."p").(byte-code."...e`.Z]`\"..
0800	88 c4 65 60 09 5a 5d 60 5c 22 87 22 20 5b 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63	..e`.Z]`\".".[edt-last-deleted-c
0820	68 61 72 73 20 6e 75 6d 20 6e 69 6c 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65	hars.num.nil.buffer-substring.de
0840	6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 64 65 6c 65 74	lete-region].5))..(defun.undelet
0860	65 2d 6c 69 6e 65 73 20 6e 69 6c 20 22 5c 0a 59 61 6e 6b 20 6c 69 6e 65 73 20 64 65 6c 65 74 65	e-lines.nil."\.Yank.lines.delete
0880	64 20 62 79 20 6c 61 73 74 20 45 44 54 20 6c 69 6e 65 2d 64 65 6c 65 74 69 6f 6e 20 63 6f 6d 6d	d.by.last.EDT.line-deletion.comm
08a0	61 6e 64 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	and.".(interactive).(byte-code."
08c0	c1 88 08 63 87 22 20 5b 65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 6c 69 6e 65 73 20 6e	...c.".[edt-last-deleted-lines.n
08e0	69 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 64 65 6c 65 74 65 2d 77 6f 72 64 73 20 6e	il].1))..(defun.undelete-words.n
0900	69 6c 20 22 5c 0a 59 61 6e 6b 20 77 6f 72 64 73 20 64 65 6c 65 74 65 64 20 62 79 20 6c 61 73 74	il."\.Yank.words.deleted.by.last
0920	20 45 44 54 20 77 6f 72 64 2d 64 65 6c 65 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e	.EDT.word-deletion.command.".(in
0940	74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 63 87 22 20 5b 65	teractive).(byte-code."...c.".[e
0960	64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 77 6f 72 64 73 20 6e 69 6c 5d 20 31 29 29 0a 0a	dt-last-deleted-words.nil].1))..
0980	28 64 65 66 75 6e 20 75 6e 64 65 6c 65 74 65 2d 63 68 61 72 73 20 6e 69 6c 20 22 5c 0a 59 61 6e	(defun.undelete-chars.nil."\.Yan
09a0	6b 20 63 68 61 72 61 63 74 65 72 73 20 64 65 6c 65 74 65 64 20 62 79 20 6c 61 73 74 20 45 44 54	k.characters.deleted.by.last.EDT
09c0	20 63 68 61 72 61 63 74 65 72 2d 64 65 6c 65 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69	.character-deletion.command.".(i
09e0	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 63 87 22 20 5b	nteractive).(byte-code."...c.".[
0a00	65 64 74 2d 6c 61 73 74 2d 64 65 6c 65 74 65 64 2d 63 68 61 72 73 20 6e 69 6c 5d 20 31 29 29 0a	edt-last-deleted-chars.nil].1)).
0a20	0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 28 6e 75 6d 29 20 22	.(defun.next-end-of-line.(num)."
0a40	5c 0a 4d 6f 76 65 20 74 6f 20 65 6e 64 20 6f 66 20 6c 69 6e 65 3b 20 69 66 20 61 74 20 65 6e 64	\.Move.to.end.of.line;.if.at.end
0a60	2c 20 6d 6f 76 65 20 74 6f 20 65 6e 64 20 6f 66 20 6e 65 78 74 20 6c 69 6e 65 2e 0a 41 63 63 65	,.move.to.end.of.next.line..Acce
0a80	70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 6e 75	pts.a.prefix.argument.for.the.nu
0aa0	6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 74 6f 20 6d 6f 76 65 2e 22 20 28 69 6e 74 65 72 61 63	mber.of.lines.to.move.".(interac
0ac0	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 20 88 c3 08 21 87 22	tive."p").(byte-code.".......!."
0ae0	20 5b 6e 75 6d 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 65 6e 64 2d 6f 66 2d 6c 69	.[num.nil.forward-char.end-of-li
0b00	6e 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 76 69 6f 75 73 2d 65 6e 64 2d 6f 66 2d	ne].3))..(defun.previous-end-of-
0b20	6c 69 6e 65 20 28 6e 75 6d 29 20 22 5c 0a 4d 6f 76 65 20 45 4f 4c 20 75 70 77 61 72 64 2e 0a 41	line.(num)."\.Move.EOL.upward..A
0b40	63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65	ccepts.a.prefix.argument.for.the
0b60	20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 74 6f 20 6d 6f 76 65 2e 22 20 28 69 6e 74 65	.number.of.lines.to.move.".(inte
0b80	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 c3 08 5a 21	ractive."p").(byte-code.".....Z!
0ba0	87 22 20 5b 6e 75 6d 20 6e 69 6c 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 31 5d 20 33 29 29 0a 0a	.".[num.nil.end-of-line.1].3))..
0bc0	28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 74 6f 2d 77 6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a	(defun.forward-to-word.(num)."\.
0be0	4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 77 6f 72 64 2d 62 65 67 69 6e 6e 69 6e 67 2c 20 6f 72 20	Move.to.next.word-beginning,.or.
0c00	74 6f 20 4e 74 68 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 6f 72 64 2d 62 65 67 69 6e 6e 69 6e 67 2e	to.Nth.following.word-beginning.
0c20	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 20 22	".(interactive."p").(byte-code."
0c40	c1 88 c2 08 54 21 88 c2 c3 21 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f	....T!...!.".[num.nil.forward-wo
0c60	72 64 20 2d 31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 74 6f 2d 77	rd.-1].3))..(defun.backward-to-w
0c80	6f 72 64 20 28 6e 75 6d 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 20 74 6f 20 77 6f 72 64 2d 65	ord.(num)."\.Move.back.to.word-e
0ca0	6e 64 2c 20 6f 72 20 74 6f 20 4e 74 68 20 77 6f 72 64 2d 65 6e 64 20 73 65 65 6e 2e 22 20 28 69	nd,.or.to.Nth.word-end.seen.".(i
0cc0	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 20 22 c1 88 c2 08	nteractive."p").(byte-code."....
0ce0	54 5b 21 88 c2 c3 21 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20	T[!...!.".[num.nil.forward-word.
0d00	31 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 6c 69 6e 65 20 28 6e 75	1].3))..(defun.backward-line.(nu
0d20	6d 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 73 74 61 72 74 20 6f 66 20 70 72 65	m)."\.Move.point.to.start.of.pre
0d40	76 69 6f 75 73 20 6c 69 6e 65 2e 0a 50 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 73 65 72 76	vious.line..Prefix.argument.serv
0d60	65 73 20 61 73 20 72 65 70 65 61 74 2d 63 6f 75 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	es.as.repeat-count.".(interactiv
0d80	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 6e 75 6d	e."p").(byte-code."....[!.".[num
0da0	20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73	.nil.forward-line].2))..(defun.s
0dc0	63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 64 6f 77 6e 20 28 6e 75 6d 29 20 22 5c 0a 53 63 72 6f 6c	croll-window-down.(num)."\.Scrol
0de0	6c 20 74 68 65 20 64 69 73 70 6c 61 79 20 64 6f 77 6e 20 61 20 77 69 6e 64 6f 77 2d 66 75 6c 6c	l.the.display.down.a.window-full
0e00	2e 0a 41 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20	..Accepts.a.prefix.argument.for.
0e20	74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 69 6e 64 6f 77 2d 66 75 6c 6c 73 20 74 6f 20 73 63	the.number.of.window-fulls.to.sc
0e40	72 6f 6c 6c 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	roll.".(interactive."p").(byte-c
0e60	6f 64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 c5 5a 21 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 73 63 72	ode.".......\".Z!.".[num.nil.scr
0e80	6f 6c 6c 2d 64 6f 77 6e 20 2a 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 32 5d 20 35 29 29 0a	oll-down.*.window-height.2].5)).
0ea0	0a 28 64 65 66 75 6e 20 73 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 75 70 20 28 6e 75 6d 29 20 22	.(defun.scroll-window-up.(num)."
0ec0	5c 0a 53 63 72 6f 6c 6c 20 74 68 65 20 64 69 73 70 6c 61 79 20 75 70 20 61 20 77 69 6e 64 6f 77	\.Scroll.the.display.up.a.window
0ee0	2d 66 75 6c 6c 2e 0a 41 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74	-full..Accepts.a.prefix.argument
0f00	20 66 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 69 6e 64 6f 77 2d 66 75 6c 6c 73 20	.for.the.number.of.window-fulls.
0f20	74 6f 20 73 63 72 6f 6c 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62	to.scroll.".(interactive."p").(b
0f40	79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 20 08 5c 22 c5 5a 21 87 22 20 5b 6e 75 6d 20 6e 69	yte-code.".......\".Z!.".[num.ni
0f60	6c 20 73 63 72 6f 6c 6c 2d 75 70 20 2a 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 32 5d 20 35	l.scroll-up.*.window-height.2].5
0f80	29 29 0a 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 70 61 72 61 67 72 61 70 68 20 28 6e 75 6d 29 20	))..(defun.next-paragraph.(num).
0fa0	22 5c 0a 4d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6e 65 78 74	"\.Move.to.beginning.of.the.next
0fc0	20 69 6e 64 65 6e 74 65 64 20 70 61 72 61 67 72 61 70 68 2e 0a 41 63 63 65 70 74 73 20 61 20 70	.indented.paragraph..Accepts.a.p
0fe0	72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66	refix.argument.for.the.number.of
1000	20 70 61 72 61 67 72 61 70 68 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20	.paragraphs.".(interactive."p").
1020	28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 c2 56 85 23 00 c3 c4 21 88 c5 20 88 c6 c4 21 88 6c	(byte-code."....V.#...!......!.l
1040	85 1a 00 c3 c4 21 88 08 53 89 10 88 82 02 00 87 22 20 5b 6e 75 6d 20 6e 69 6c 20 30 20 6e 65 78	.....!..S.......".[num.nil.0.nex
1060	74 2d 6c 69 6e 65 20 31 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 70 72 65 76 69	t-line.1.forward-paragraph.previ
1080	6f 75 73 2d 6c 69 6e 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 76 69 6f 75 73 2d 70	ous-line].7))..(defun.previous-p
10a0	61 72 61 67 72 61 70 68 20 28 6e 75 6d 29 20 22 5c 0a 4d 6f 76 65 20 74 6f 20 62 65 67 69 6e 6e	aragraph.(num)."\.Move.to.beginn
10c0	69 6e 67 20 6f 66 20 70 72 65 76 69 6f 75 73 20 69 6e 64 65 6e 74 65 64 20 70 61 72 61 67 72 61	ing.of.previous.indented.paragra
10e0	70 68 2e 0a 41 63 63 65 70 74 73 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 66 6f	ph..Accepts.a.prefix.argument.fo
1100	72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 61 67 72 61 70 68 73 2e 22 20 28 69 6e	r.the.number.of.paragraphs.".(in
1120	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 08 c2 56	teractive."p").(byte-code."....V
1140	85 1f 00 c3 20 88 c4 c5 21 88 6c 85 16 00 c6 c5 21 88 08 53 89 10 88 82 02 00 87 22 20 5b 6e 75	........!.l.....!..S.......".[nu
1160	6d 20 6e 69 6c 20 30 20 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 70 72 65 76 69	m.nil.0.backward-paragraph.previ
1180	6f 75 73 2d 6c 69 6e 65 20 31 20 6e 65 78 74 2d 6c 69 6e 65 5d 20 36 29 29 0a 0a 28 64 65 66 75	ous-line.1.next-line].6))..(defu
11a0	6e 20 6d 6f 76 65 2d 74 6f 2d 62 65 67 69 6e 6e 69 6e 67 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20	n.move-to-beginning.nil."\.Move.
11c0	63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 62 75 66 66 65	cursor.to.the.beginning.of.buffe
11e0	72 2c 20 62 75 74 20 64 6f 6e 27 74 20 73 65 74 20 74 68 65 20 6d 61 72 6b 2e 22 20 28 69 6e 74	r,.but.don't.set.the.mark.".(int
1200	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 65 62 87 22 20 5b 6e 69	eractive).(byte-code."..eb.".[ni
1220	6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 74 6f 2d 65 6e 64 20 6e 69 6c 20 22	l].1))..(defun.move-to-end.nil."
1240	5c 0a 4d 6f 76 65 20 63 75 72 73 6f 72 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 62 75 66 66	\.Move.cursor.to.the.end.of.buff
1260	65 72 2c 20 62 75 74 20 64 6f 6e 27 74 20 73 65 74 20 74 68 65 20 6d 61 72 6b 2e 22 20 28 69 6e	er,.but.don't.set.the.mark.".(in
1280	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 64 62 87 22 20 5b 6e	teractive).(byte-code."..db.".[n
12a0	69 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 67 6f 74 6f 2d 70 65 72 63 65 6e 74 20 28 70 65	il].1))..(defun.goto-percent.(pe
12c0	72 63 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 41 52 47 20 70 65 72 63 65 6e 74	rc)."\.Move.point.to.ARG.percent
12e0	61 67 65 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65	age.of.the.buffer.".(interactive
1300	20 22 4e 47 6f 74 6f 2d 70 65 72 63 65 6e 74 61 67 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64	."NGoto-percentage:.").(byte-cod
1320	65 20 22 c1 88 08 c2 56 86 0b 00 08 c3 57 83 15 00 c4 c5 08 5c 22 82 1d 00 c6 c7 64 08 5c 22 c2	e."....V.....W......\".....d.\".
1340	5c 22 62 87 22 20 5b 70 65 72 63 20 6e 69 6c 20 31 30 30 20 30 20 65 72 72 6f 72 20 22 50 65 72	\"b.".[perc.nil.100.0.error."Per
1360	63 65 6e 74 61 67 65 20 25 64 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 20 30 20 3c 20 70 65 72 63	centage.%d.out.of.range.0.<.perc
1380	65 6e 74 20 3c 20 31 30 30 22 20 2f 20 2a 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 75 70 64 61	ent.<.100"./.*].5))..(defun.upda
13a0	74 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 4d 61 6b 65 20 73 75 72 65 20 6d 6f	te-mode-line.nil."\.Make.sure.mo
13c0	64 65 2d 6c 69 6e 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 72 65	de-line.in.the.current.buffer.re
13e0	66 6c 65 63 74 73 20 61 6c 6c 20 63 68 61 6e 67 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20	flects.all.changes.".(byte-code.
1400	22 c0 c1 20 21 88 c2 c3 21 87 22 20 5b 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64	"...!...!.".[set-buffer-modified
1420	2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 73 69 74 2d 66 6f 72 20 30 5d 20	-p.buffer-modified-p.sit-for.0].
1440	34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 76 61 6e 63 65 2d 64 69 72 65 63 74 69 6f 6e 20 6e 69	4))..(defun.advance-direction.ni
1460	6c 20 22 5c 0a 53 65 74 20 45 44 54 20 41 64 76 61 6e 63 65 20 6d 6f 64 65 20 73 6f 20 6b 65 79	l."\.Set.EDT.Advance.mode.so.key
1480	70 61 64 20 63 6f 6d 6d 61 6e 64 73 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 2e 22 20 28 69 6e 74	pad.commands.move.forward.".(int
14a0	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 89 10 88 c4 09 c5 c6	eractive).(byte-code."..........
14c0	23 88 c4 09 c7 c8 23 88 c4 09 c9 ca 23 88 c4 09 cb cc 23 88 c4 09 cd ce 23 88 c4 09 cf d0 23 88	#.....#.....#.....#.....#.....#.
14e0	c4 09 d1 d2 23 88 d3 20 87 22 20 5b 65 64 74 2d 64 69 72 65 63 74 69 6f 6e 2d 73 74 72 69 6e 67	....#....".[edt-direction-string
1500	20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 6e 69 6c 20 22 20 41 44 56 41 4e 43 45 22 20	.function-keymap.nil.".ADVANCE".
1520	64 65 66 69 6e 65 2d 6b 65 79 20 22 03 22 20 69 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22	define-key.".".isearch-forward."
1540	38 22 20 73 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 75 70 20 22 37 22 20 6e 65 78 74 2d 70 61 72	8".scroll-window-up."7".next-par
1560	61 67 72 61 70 68 20 22 31 22 20 66 6f 72 77 61 72 64 2d 74 6f 2d 77 6f 72 64 20 22 32 22 20 6e	agraph."1".forward-to-word."2".n
1580	65 78 74 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 33 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72	ext-end-of-line."3".forward-char
15a0	20 22 30 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 75 70 64 61 74 65 2d 6d 6f 64 65 2d 6c 69	."0".forward-line.update-mode-li
15c0	6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 75 70 2d 64 69 72 65 63 74 69 6f	ne].10))..(defun.backup-directio
15e0	6e 20 6e 69 6c 20 22 5c 0a 53 65 74 20 45 44 54 20 42 61 63 6b 75 70 20 6d 6f 64 65 20 73 6f 20	n.nil."\.Set.EDT.Backup.mode.so.
1600	6b 65 79 70 61 64 20 63 6f 6d 6d 61 6e 64 73 20 6d 6f 76 65 20 62 61 63 6b 77 61 72 64 2e 22 20	keypad.commands.move.backward.".
1620	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 c2 88 c3 89 10 88	(interactive).(byte-code."......
1640	c4 09 c5 c6 23 88 c4 09 c7 c8 23 88 c4 09 c9 ca 23 88 c4 09 cb cc 23 88 c4 09 cd ce 23 88 c4 09	....#.....#.....#.....#.....#...
1660	cf d0 23 88 c4 09 d1 d2 23 88 d3 20 87 22 20 5b 65 64 74 2d 64 69 72 65 63 74 69 6f 6e 2d 73 74	..#.....#....".[edt-direction-st
1680	72 69 6e 67 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 6e 69 6c 20 22 20 42 41 43 4b 55	ring.function-keymap.nil.".BACKU
16a0	50 22 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 03 22 20 69 73 65 61 72 63 68 2d 62 61 63 6b 77 61	P".define-key.".".isearch-backwa
16c0	72 64 20 22 38 22 20 73 63 72 6f 6c 6c 2d 77 69 6e 64 6f 77 2d 64 6f 77 6e 20 22 37 22 20 70 72	rd."8".scroll-window-down."7".pr
16e0	65 76 69 6f 75 73 2d 70 61 72 61 67 72 61 70 68 20 22 31 22 20 62 61 63 6b 77 61 72 64 2d 74 6f	evious-paragraph."1".backward-to
1700	2d 77 6f 72 64 20 22 32 22 20 70 72 65 76 69 6f 75 73 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22	-word."2".previous-end-of-line."
1720	33 22 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 22 30 22 20 62 61 63 6b 77 61 72 64 2d 6c 69	3".backward-char."0".backward-li
1740	6e 65 20 75 70 64 61 74 65 2d 6d 6f 64 65 2d 6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75	ne.update-mode-line].10))..(defu
1760	6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 48 6f 6d	n.beginning-of-window.nil."\.Hom
1780	65 20 63 75 72 73 6f 72 20 74 6f 20 74 6f 70 20 6f 66 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74	e.cursor.to.top.of.window.".(int
17a0	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 21 87 22 20 5b 6e	eractive).(byte-code."....!.".[n
17c0	69 6c 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e 65 20 30 5d 20 32 29 29 0a 0a 28	il.move-to-window-line.0].2))..(
17e0	64 65 66 75 6e 20 6c 69 6e 65 2d 74 6f 2d 62 6f 74 74 6f 6d 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e	defun.line-to-bottom-of-window.n
1800	69 6c 20 22 5c 0a 4d 6f 76 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f 20 74	il."\.Move.the.current.line.to.t
1820	68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74	he.top.of.the.window.".(interact
1840	69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 72 65	ive).(byte-code."....!.".[nil.re
1860	63 65 6e 74 65 72 20 2d 31 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 6e 65 2d 74 6f 2d 74	center.-1].2))..(defun.line-to-t
1880	6f 70 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 4d 6f 76 65 20 74 68 65 20 63 75 72	op-of-window.nil."\.Move.the.cur
18a0	72 65 6e 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 77 69 6e 64	rent.line.to.the.top.of.the.wind
18c0	6f 77 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	ow.".(interactive).(byte-code.".
18e0	88 c1 c2 21 87 22 20 5b 6e 69 6c 20 72 65 63 65 6e 74 65 72 20 30 5d 20 32 29 29 0a 0a 28 64 65	...!.".[nil.recenter.0].2))..(de
1900	66 75 6e 20 63 61 73 65 2d 66 6c 69 70 2d 63 68 61 72 61 63 74 65 72 20 28 6e 75 6d 29 20 22 5c	fun.case-flip-character.(num)."\
1920	0a 43 68 61 6e 67 65 20 74 68 65 20 63 61 73 65 20 6f 66 20 74 68 65 20 63 68 61 72 61 63 74 65	.Change.the.case.of.the.characte
1940	72 20 75 6e 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 2e 0a 41 63 63 65 70 74 73 20 61 20 70 72	r.under.the.cursor..Accepts.a.pr
1960	65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63	efix.argument.of.the.number.of.c
1980	68 61 72 61 63 74 65 72 73 20 74 6f 20 69 6e 76 65 72 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69	haracters.to.invert.".(interacti
19a0	76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 c2 56 85 25 00 c3 c4 67 58	ve."p").(byte-code."....V.%...gX
19c0	83 13 00 c5 82 14 00 c6 60 60 54 23 88 c7 c8 21 88 08 53 89 10 88 82 02 00 87 22 20 5b 6e 75 6d	........``T#...!..S.......".[num
19e0	20 6e 69 6c 20 30 20 66 75 6e 63 61 6c 6c 20 39 37 20 75 70 63 61 73 65 2d 72 65 67 69 6f 6e 20	.nil.0.funcall.97.upcase-region.
1a00	64 6f 77 6e 63 61 73 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20	downcase-region.forward-char.1].
1a20	35 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 2d 6f 72 2d 66 69 6c 6c 2d 72 65 67 69 6f	5))..(defun.indent-or-fill-regio
1a40	6e 20 6e 69 6c 20 22 5c 0a 46 69 6c 6c 20 72 65 67 69 6f 6e 20 69 6e 20 74 65 78 74 20 6d 6f 64	n.nil."\.Fill.region.in.text.mod
1a60	65 73 2c 20 69 6e 64 65 6e 74 20 72 65 67 69 6f 6e 20 69 6e 20 70 72 6f 67 72 61 6d 6d 69 6e 67	es,.indent.region.in.programming
1a80	20 6c 61 6e 67 75 61 67 65 20 6d 6f 64 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20	.language.modes.".(interactive).
1aa0	28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 c3 5c 22 83 12 00 c4 60 c5 20 c1 23 82 17 00 c6	(byte-code.".....\"....`...#....
1ac0	60 c5 20 5c 22 87 22 20 5b 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 6e 69 6c 20 73 74 72	`..\".".[paragraph-start.nil.str
1ae0	69 6e 67 3d 20 22 5e 24 5c 5c 7c 5e 0c 22 20 69 6e 64 65 6e 74 2d 72 65 67 69 6f 6e 20 6d 61 72	ing=."^$\\|^.".indent-region.mar
1b00	6b 20 66 69 6c 6c 2d 72 65 67 69 6f 6e 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b 2d	k.fill-region].7))..(defun.mark-
1b20	73 65 63 74 69 6f 6e 2d 77 69 73 65 6c 79 20 6e 69 6c 20 22 5c 0a 4d 61 72 6b 20 74 68 65 20 73	section-wisely.nil."\.Mark.the.s
1b40	65 63 74 69 6f 6e 20 69 6e 20 61 20 6d 61 6e 6e 65 72 20 63 6f 6e 73 69 73 74 65 6e 74 20 77 69	ection.in.a.manner.consistent.wi
1b60	74 68 20 74 68 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 2e 0a 55 73 65 73 20 6d 61 72 6b 2d 64 65 66	th.the.major-mode..Uses.mark-def
1b80	75 6e 20 66 6f 72 20 65 6d 61 63 73 2d 6c 69 73 70 2c 20 6c 69 73 70 2c 0a 6d 61 72 6b 2d 63 2d	un.for.emacs-lisp,.lisp,.mark-c-
1ba0	66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 43 2c 0a 61 6e 64 20 6d 61 72 6b 2d 70 61 72 61 67 72 61	function.for.C,.and.mark-paragra
1bc0	70 68 20 66 6f 72 20 6f 74 68 65 72 20 6d 6f 64 65 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	ph.for.other.modes.".(interactiv
1be0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 c3 3d 83 0d 00 c4 20 82 25 00 08 c5 3d 83	e).(byte-code."....=......%...=.
1c00	18 00 c4 20 82 25 00 08 c6 3d 83 23 00 c7 20 82 25 00 c8 20 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f	.....%...=.#....%....".[major-mo
1c20	64 65 20 74 20 6e 69 6c 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 20 6d 61 72 6b 2d 64 65	de.t.nil.emacs-lisp-mode.mark-de
1c40	66 75 6e 20 6c 69 73 70 2d 6d 6f 64 65 20 63 2d 6d 6f 64 65 20 6d 61 72 6b 2d 63 2d 66 75 6e 63	fun.lisp-mode.c-mode.mark-c-func
1c60	74 69 6f 6e 20 6d 61 72 6b 2d 70 61 72 61 67 72 61 70 68 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e	tion.mark-paragraph].5))..(defun
1c80	20 65 64 74 2d 65 6d 75 6c 61 74 69 6f 6e 2d 6f 6e 20 6e 69 6c 20 22 5c 0a 42 65 67 69 6e 20 65	.edt-emulation-on.nil."\.Begin.e
1ca0	6d 75 6c 61 74 69 6e 67 20 44 45 43 27 73 20 45 44 54 20 65 64 69 74 6f 72 2e 0a 43 65 72 74 61	mulating.DEC's.EDT.editor..Certa
1cc0	69 6e 20 6b 65 79 73 20 61 72 65 20 72 65 62 6f 75 6e 64 3b 20 69 6e 63 6c 75 64 69 6e 67 20 6e	in.keys.are.rebound;.including.n
1ce0	65 61 72 6c 79 20 61 6c 6c 20 6b 65 79 70 61 64 20 6b 65 79 73 2e 0a 55 73 65 20 5c 5c 5b 65 64	early.all.keypad.keys..Use.\\[ed
1d00	74 2d 65 6d 75 6c 61 74 69 6f 6e 2d 6f 66 66 5d 20 74 6f 20 75 6e 64 6f 20 61 6c 6c 20 72 65 62	t-emulation-off].to.undo.all.reb
1d20	69 6e 64 69 6e 67 73 20 65 78 63 65 70 74 20 74 68 65 20 6b 65 79 70 61 64 20 6b 65 79 73 2e 0a	indings.except.the.keypad.keys..
1d40	4e 6f 74 65 20 74 68 61 74 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74	Note.that.this.function.does.not
1d60	20 77 6f 72 6b 20 69 66 20 63 61 6c 6c 65 64 20 64 69 72 65 63 74 6c 79 20 66 72 6f 6d 20 74 68	.work.if.called.directly.from.th
1d80	65 20 2e 65 6d 61 63 73 20 66 69 6c 65 2e 0a 49 6e 73 74 65 61 64 2c 20 74 68 65 20 2e 65 6d 61	e..emacs.file..Instead,.the..ema
1da0	63 73 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 64 6f 20 28 73 65 74 71 20 74 65 72 6d 2d 73 65 74	cs.file.should.do.(setq.term-set
1dc0	75 70 2d 68 6f 6f 6b 20 27 65 64 74 2d 65 6d 75 6c 61 74 69 6f 6e 2d 6f 6e 29 0a 54 68 65 6e 20	up-hook.'edt-emulation-on).Then.
1de0	74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 20 61 74 20	this.function.will.be.called.at.
1e00	74 68 65 20 74 69 6d 65 20 77 68 65 6e 20 69 74 20 77 69 6c 6c 20 77 6f 72 6b 2e 22 20 28 69 6e	the.time.when.it.will.work.".(in
1e20	74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 88 c9 20 88 ca 20 88 cb	teractive).(byte-code.".........
1e40	09 cc 5c 22 89 10 88 cd cc ce 5c 22 88 cb 09 cf 5c 22 89 12 88 cd cf d0 5c 22 88 cb 0c cf 5c 22	..\"......\"....\"......\"....\"
1e60	89 13 88 d1 0c cf d0 23 88 d1 0d cf d0 23 88 cb 09 d2 5c 22 89 16 06 88 cd d2 d3 5c 22 88 d1 0e	.......#.....#....\".......\"...
1e80	07 d4 d5 23 87 22 20 5b 65 64 74 2d 6d 6f 64 65 2d 6f 6c 64 2d 63 2d 5c 5c 20 67 6c 6f 62 61 6c	...#.".[edt-mode-old-c-\\.global
1ea0	2d 6d 61 70 20 65 64 74 2d 6d 6f 64 65 2d 6f 6c 64 2d 64 65 6c 65 74 65 20 65 64 74 2d 6d 6f 64	-map.edt-mode-old-delete.edt-mod
1ec0	65 2d 6f 6c 64 2d 6c 69 73 70 2d 64 65 6c 65 74 65 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64	e-old-lisp-delete.emacs-lisp-mod
1ee0	65 2d 6d 61 70 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 65 64 74 2d 6d 6f 64 65 2d 6f 6c 64	e-map.lisp-mode-map.edt-mode-old
1f00	2d 6c 69 6e 65 66 65 65 64 20 65 73 63 2d 6d 61 70 20 6e 69 6c 20 61 64 76 61 6e 63 65 2d 64 69	-linefeed.esc-map.nil.advance-di
1f20	72 65 63 74 69 6f 6e 20 65 64 74 2d 62 69 6e 64 2d 67 6f 6c 64 2d 6b 65 79 70 61 64 20 6c 6f 6f	rection.edt-bind-gold-keypad.loo
1f40	6b 75 70 2d 6b 65 79 20 22 1c 22 20 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 71 75 6f 74 65	kup-key.".".global-set-key.quote
1f60	64 2d 69 6e 73 65 72 74 20 22 7f 22 20 64 65 6c 65 74 65 2d 70 72 65 76 69 6f 75 73 2d 63 68 61	d-insert.".".delete-previous-cha
1f80	72 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 0a 22 20 64 65 6c 65 74 65 2d 70 72 65 76 69 6f 75 73	r.define-key.".".delete-previous
1fa0	2d 77 6f 72 64 20 22 3f 22 20 61 70 72 6f 70 6f 73 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20	-word."?".apropos].15))..(defun.
1fc0	65 64 74 2d 65 6d 75 6c 61 74 69 6f 6e 2d 6f 66 66 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20	edt-emulation-off.nil."\.Return.
1fe0	66 72 6f 6d 20 45 44 54 20 65 6d 75 6c 61 74 69 6f 6e 20 74 6f 20 6e 6f 72 6d 61 6c 20 45 6d 61	from.EDT.emulation.to.normal.Ema
2000	63 73 20 6b 65 79 20 62 69 6e 64 69 6e 67 73 2e 0a 54 68 65 20 6b 65 79 73 20 72 65 64 65 66 69	cs.key.bindings..The.keys.redefi
2020	6e 65 64 20 62 79 20 5c 5c 5b 65 64 74 2d 65 6d 75 6c 61 74 69 6f 6e 2d 6f 6e 5d 20 61 72 65 20	ned.by.\\[edt-emulation-on].are.
2040	67 69 76 65 6e 20 74 68 65 69 72 20 6f 6c 64 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 22 20 28 69	given.their.old.definitions.".(i
2060	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c1 89 10 88 c8 c9	nteractive).(byte-code."........
2080	0a 5c 22 88 c8 ca 0b 5c 22 88 cb 0c ca 0d 23 88 cb 0e 06 ca 0d 23 88 c8 cc 0e 07 5c 22 87 22 20	.\"....\".....#......#.....\".".
20a0	5b 65 64 74 2d 64 69 72 65 63 74 69 6f 6e 2d 73 74 72 69 6e 67 20 6e 69 6c 20 65 64 74 2d 6d 6f	[edt-direction-string.nil.edt-mo
20c0	64 65 2d 6f 6c 64 2d 63 2d 5c 5c 20 65 64 74 2d 6d 6f 64 65 2d 6f 6c 64 2d 64 65 6c 65 74 65 20	de-old-c-\\.edt-mode-old-delete.
20e0	65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 65 64 74 2d 6d 6f 64 65 2d 6f 6c 64	emacs-lisp-mode-map.edt-mode-old
2100	2d 6c 69 73 70 2d 64 65 6c 65 74 65 20 6c 69 73 70 2d 6d 6f 64 65 2d 6d 61 70 20 65 64 74 2d 6d	-lisp-delete.lisp-mode-map.edt-m
2120	6f 64 65 2d 6f 6c 64 2d 6c 69 6e 65 66 65 65 64 20 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20	ode-old-linefeed.global-set-key.
2140	22 1c 22 20 22 7f 22 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 0a 22 5d 20 37 29 29 0a 0a 28 64 65	".".".".define-key."."].7))..(de
2160	66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 75 22 20 28 71 75	fine-key.function-keymap."u".(qu
2180	6f 74 65 20 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79	ote.previous-line))..(define-key
21a0	20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 64 22 20 28 71 75 6f 74 65 20 6e 65 78 74	.function-keymap."d".(quote.next
21c0	2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65	-line))..(define-key.function-ke
21e0	79 6d 61 70 20 22 6c 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 29 29 0a	ymap."l".(quote.backward-char)).
2200	0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 72 22	.(define-key.function-keymap."r"
2220	20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d	.(quote.forward-char))..(define-
2240	6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 68 22 20 28 71 75 6f 74 65 20 62	key.function-keymap."h".(quote.b
2260	65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65	eginning-of-window))..(define-ke
2280	79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 02 22 20 28 71 75 6f 74 65 20 64 65 73	y.function-keymap.".".(quote.des
22a0	63 72 69 62 65 2d 6b 65 79 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f	cribe-key))..(define-key.functio
22c0	6e 2d 6b 65 79 6d 61 70 20 22 04 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 63 75 72 72 65	n-keymap.".".(quote.delete-curre
22e0	6e 74 2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d	nt-line))..(define-key.function-
2300	6b 65 79 6d 61 70 20 22 39 22 20 28 71 75 6f 74 65 20 61 70 70 65 6e 64 2d 74 6f 2d 62 75 66 66	keymap."9".(quote.append-to-buff
2320	65 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61	er))..(define-key.function-keyma
2340	70 20 22 2d 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 63 75 72 72 65 6e 74 2d 77 6f 72 64	p."-".(quote.delete-current-word
2360	29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20	))..(define-key.function-keymap.
2380	22 34 22 20 28 71 75 6f 74 65 20 61 64 76 61 6e 63 65 2d 64 69 72 65 63 74 69 6f 6e 29 29 0a 0a	"4".(quote.advance-direction))..
23a0	28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 35 22 20	(define-key.function-keymap."5".
23c0	28 71 75 6f 74 65 20 62 61 63 6b 75 70 2d 64 69 72 65 63 74 69 6f 6e 29 29 0a 0a 28 64 65 66 69	(quote.backup-direction))..(defi
23e0	6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 36 22 20 28 71 75 6f 74	ne-key.function-keymap."6".(quot
2400	65 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e	e.kill-region))..(define-key.fun
2420	63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 2c 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 63	ction-keymap.",".(quote.delete-c
2440	75 72 72 65 6e 74 2d 63 68 61 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74	urrent-char))..(define-key.funct
2460	69 6f 6e 2d 6b 65 79 6d 61 70 20 22 2e 22 20 28 71 75 6f 74 65 20 73 65 74 2d 6d 61 72 6b 2d 63	ion-keymap.".".(quote.set-mark-c
2480	6f 6d 6d 61 6e 64 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b	ommand))..(define-key.function-k
24a0	65 79 6d 61 70 20 22 65 22 20 28 71 75 6f 74 65 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a	eymap."e".(quote.other-window)).
24c0	0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 22 01 22	.(define-key.function-keymap."."
24e0	20 28 71 75 6f 74 65 20 47 4f 4c 44 2d 70 72 65 66 69 78 29 29 0a 0a 28 73 65 74 71 20 47 4f 4c	.(quote.GOLD-prefix))..(setq.GOL
2500	44 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f	D-map.(make-keymap))..(fset.(quo
2520	74 65 20 47 4f 4c 44 2d 70 72 65 66 69 78 29 20 47 4f 4c 44 2d 6d 61 70 29 0a 0a 28 64 65 66 76	te.GOLD-prefix).GOLD-map)..(defv
2540	61 72 20 47 4f 4c 44 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 47 4f 4c 44 2d 6d 61 70 20 6d 61 70 73	ar.GOLD-map.nil."\.GOLD-map.maps
2560	20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 73 20 6f 6e 20 74 68 65 20 56 54 31 30 30 20	.the.function.keys.on.the.VT100.
2580	6b 65 79 62 6f 61 72 64 20 70 72 65 63 65 65 64 65 64 0a 62 79 20 74 68 65 20 50 46 31 20 6b 65	keyboard.preceeded.by.the.PF1.ke
25a0	79 2e 20 20 47 4f 4c 44 20 69 73 20 74 68 65 20 41 53 43 49 49 20 74 68 65 20 37 2d 62 69 74 20	y...GOLD.is.the.ASCII.the.7-bit.
25c0	65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 20 3c 45 53 43 3e 4f 50 2e 22 29 0a 0a 28 64 65 66	escape.sequence.<ESC>OP.")..(def
25e0	75 6e 20 64 65 66 69 6e 65 2d 6b 65 79 70 61 64 2d 6b 65 79 20 28 6b 65 79 6d 61 70 20 66 75 6e	un.define-keypad-key.(keymap.fun
2600	63 74 69 6f 6e 2d 6b 65 79 6d 61 70 2d 73 6c 6f 74 20 64 65 66 69 6e 69 74 69 6f 6e 29 20 28 62	ction-keymap-slot.definition).(b
2620	79 74 65 2d 63 6f 64 65 20 22 c0 09 21 18 08 85 0d 00 c4 0a 08 0b 23 29 87 22 20 5b 66 75 6e 63	yte-code."..!.........#).".[func
2640	74 69 6f 6e 2d 6b 65 79 2d 73 65 71 75 65 6e 63 65 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61	tion-key-sequence.function-keyma
2660	70 2d 73 6c 6f 74 20 6b 65 79 6d 61 70 20 64 65 66 69 6e 69 74 69 6f 6e 20 64 65 66 69 6e 65 2d	p-slot.keymap.definition.define-
2680	6b 65 79 5d 20 35 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22	key].5))..(define-key.GOLD-map."
26a0	07 22 20 28 71 75 6f 74 65 20 6b 65 79 62 6f 61 72 64 2d 71 75 69 74 29 29 0a 0a 28 64 65 66 69	.".(quote.keyboard-quit))..(defi
26c0	6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 7f 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74	ne-key.GOLD-map.".".(quote.delet
26e0	65 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70	e-window))..(define-key.GOLD-map
2700	20 22 08 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73	.".".(quote.delete-other-windows
2720	29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 0d 22 20 28 71 75	))..(define-key.GOLD-map.".".(qu
2740	6f 74 65 20 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e 74 29 29 0a 0a 28 64 65 66 69 6e	ote.newline-and-indent))..(defin
2760	65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 20 22 20 28 71 75 6f 74 65 20 75 6e 64 6f 29 29	e-key.GOLD-map.".".(quote.undo))
2780	0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 25 22 20 28 71 75 6f 74	..(define-key.GOLD-map."%".(quot
27a0	65 20 67 6f 74 6f 2d 70 65 72 63 65 6e 74 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f	e.goto-percent))..(define-key.GO
27c0	4c 44 2d 6d 61 70 20 22 3d 22 20 28 71 75 6f 74 65 20 67 6f 74 6f 2d 6c 69 6e 65 29 29 0a 0a 28	LD-map."=".(quote.goto-line))..(
27e0	64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 60 22 20 28 71 75 6f 74 65 20 77	define-key.GOLD-map."`".(quote.w
2800	68 61 74 2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70	hat-line))..(define-key.GOLD-map
2820	20 22 1c 22 20 28 71 75 6f 74 65 20 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 76 65 72 74 69 63 61	.".".(quote.split-window-vertica
2840	6c 6c 79 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 62 22 20	lly))..(define-key.GOLD-map."b".
2860	28 71 75 6f 74 65 20 62 75 66 66 65 72 2d 6d 65 6e 75 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65	(quote.buffer-menu))..(define-ke
2880	79 20 47 4f 4c 44 2d 6d 61 70 20 22 42 22 20 28 71 75 6f 74 65 20 62 75 66 66 65 72 2d 6d 65 6e	y.GOLD-map."B".(quote.buffer-men
28a0	75 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 64 22 20 28 71	u))..(define-key.GOLD-map."d".(q
28c0	75 6f 74 65 20 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65	uote.delete-window))..(define-ke
28e0	79 20 47 4f 4c 44 2d 6d 61 70 20 22 44 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 77 69 6e	y.GOLD-map."D".(quote.delete-win
2900	64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 65 22 20	dow))..(define-key.GOLD-map."e".
2920	28 71 75 6f 74 65 20 63 6f 6d 70 69 6c 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f	(quote.compile))..(define-key.GO
2940	4c 44 2d 6d 61 70 20 22 45 22 20 28 71 75 6f 74 65 20 63 6f 6d 70 69 6c 65 29 29 0a 0a 28 64 65	LD-map."E".(quote.compile))..(de
2960	66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 69 22 20 28 71 75 6f 74 65 20 69 6e 73	fine-key.GOLD-map."i".(quote.ins
2980	65 72 74 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70	ert-file))..(define-key.GOLD-map
29a0	20 22 49 22 20 28 71 75 6f 74 65 20 69 6e 73 65 72 74 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69	."I".(quote.insert-file))..(defi
29c0	6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 6c 22 20 28 71 75 6f 74 65 20 67 6f 74 6f 2d	ne-key.GOLD-map."l".(quote.goto-
29e0	6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 4c 22	line))..(define-key.GOLD-map."L"
2a00	20 28 71 75 6f 74 65 20 67 6f 74 6f 2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79	.(quote.goto-line))..(define-key
2a20	20 47 4f 4c 44 2d 6d 61 70 20 22 6d 22 20 28 71 75 6f 74 65 20 73 61 76 65 2d 73 6f 6d 65 2d 62	.GOLD-map."m".(quote.save-some-b
2a40	75 66 66 65 72 73 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22	uffers))..(define-key.GOLD-map."
2a60	4d 22 20 28 71 75 6f 74 65 20 73 61 76 65 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 29 29 0a 0a 28	M".(quote.save-some-buffers))..(
2a80	64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 6e 22 20 28 71 75 6f 74 65 20 6e	define-key.GOLD-map."n".(quote.n
2aa0	65 78 74 2d 65 72 72 6f 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61	ext-error))..(define-key.GOLD-ma
2ac0	70 20 22 4e 22 20 28 71 75 6f 74 65 20 6e 65 78 74 2d 65 72 72 6f 72 29 29 0a 0a 28 64 65 66 69	p."N".(quote.next-error))..(defi
2ae0	6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 6f 22 20 28 71 75 6f 74 65 20 73 77 69 74 63	ne-key.GOLD-map."o".(quote.switc
2b00	68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66	h-to-buffer-other-window))..(def
2b20	69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 4f 22 20 28 71 75 6f 74 65 20 73 77 69 74	ine-key.GOLD-map."O".(quote.swit
2b40	63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65	ch-to-buffer-other-window))..(de
2b60	66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 72 22 20 28 71 75 6f 74 65 20 72 65 76	fine-key.GOLD-map."r".(quote.rev
2b80	65 72 74 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70	ert-file))..(define-key.GOLD-map
2ba0	20 22 72 22 20 28 71 75 6f 74 65 20 72 65 76 65 72 74 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69	."r".(quote.revert-file))..(defi
2bc0	6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 73 22 20 28 71 75 6f 74 65 20 73 61 76 65 2d	ne-key.GOLD-map."s".(quote.save-
2be0	62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22	buffer))..(define-key.GOLD-map."
2c00	53 22 20 28 71 75 6f 74 65 20 73 61 76 65 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 69 6e 65	S".(quote.save-buffer))..(define
2c20	2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 76 22 20 28 71 75 6f 74 65 20 66 69 6e 64 2d 66 69	-key.GOLD-map."v".(quote.find-fi
2c40	6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47	le-other-window))..(define-key.G
2c60	4f 4c 44 2d 6d 61 70 20 22 56 22 20 28 71 75 6f 74 65 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68	OLD-map."V".(quote.find-file-oth
2c80	65 72 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61	er-window))..(define-key.GOLD-ma
2ca0	70 20 22 77 22 20 28 71 75 6f 74 65 20 77 72 69 74 65 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69	p."w".(quote.write-file))..(defi
2cc0	6e 65 2d 6b 65 79 20 47 4f 4c 44 2d 6d 61 70 20 22 77 22 20 28 71 75 6f 74 65 20 77 72 69 74 65	ne-key.GOLD-map."w".(quote.write
2ce0	2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 74 2d 62 69 6e 64 2d 67 6f 6c 64 2d 6b 65	-file))..(defun.edt-bind-gold-ke
2d00	79 70 61 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 23	ypad.nil.(byte-code."....#.....#
2d20	88 c1 08 c6 c7 23 88 c1 08 c8 c9 23 88 c1 08 ca cb 23 88 c1 08 cc cd 23 88 c1 08 ce cf 23 88 c1	.....#.....#.....#.....#.....#..
2d40	08 d0 d1 23 88 c1 08 d2 d3 23 88 c1 08 d4 d5 23 88 c1 08 d6 d7 23 88 c1 08 d8 d9 23 88 c1 08 da	...#.....#.....#.....#.....#....
2d60	db 23 88 c1 08 dc dd 23 88 c1 08 de df 23 88 c1 08 e0 e1 23 88 c1 08 e2 e3 23 88 c1 08 e4 e5 23	.#.....#.....#.....#.....#.....#
2d80	88 c1 08 e6 e7 23 88 c1 08 e8 e9 23 88 c1 08 ea eb 23 88 c1 08 ec ed 23 87 22 20 5b 47 4f 4c 44	.....#.....#.....#.....#.".[GOLD
2da0	2d 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 70 61 64 2d 6b 65 79 20 31 31 37 20 6c 69 6e 65 2d	-map.define-keypad-key.117.line-
2dc0	74 6f 2d 74 6f 70 2d 6f 66 2d 77 69 6e 64 6f 77 20 31 30 30 20 6c 69 6e 65 2d 74 6f 2d 62 6f 74	to-top-of-window.100.line-to-bot
2de0	74 6f 6d 2d 6f 66 2d 77 69 6e 64 6f 77 20 31 30 38 20 62 61 63 6b 77 61 72 64 2d 73 65 6e 74 65	tom-of-window.108.backward-sente
2e00	6e 63 65 20 31 31 34 20 66 6f 72 77 61 72 64 2d 73 65 6e 74 65 6e 63 65 20 31 20 6d 61 72 6b 2d	nce.114.forward-sentence.1.mark-
2e20	73 65 63 74 69 6f 6e 2d 77 69 73 65 6c 79 20 32 20 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69	section-wisely.2.describe-functi
2e40	6f 6e 20 33 20 6f 63 63 75 72 20 34 20 75 6e 64 65 6c 65 74 65 2d 6c 69 6e 65 73 20 34 38 20 6f	on.3.occur.4.undelete-lines.48.o
2e60	70 65 6e 2d 6c 69 6e 65 20 34 39 20 63 61 73 65 2d 66 6c 69 70 2d 63 68 61 72 61 63 74 65 72 20	pen-line.49.case-flip-character.
2e80	35 30 20 64 65 6c 65 74 65 2d 74 6f 2d 65 6f 6c 20 35 31 20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d	50.delete-to-eol.51.copy-region-
2ea0	61 73 2d 6b 69 6c 6c 20 35 32 20 6d 6f 76 65 2d 74 6f 2d 65 6e 64 20 35 33 20 6d 6f 76 65 2d 74	as-kill.52.move-to-end.53.move-t
2ec0	6f 2d 62 65 67 69 6e 6e 69 6e 67 20 35 34 20 79 61 6e 6b 20 35 35 20 65 78 65 63 75 74 65 2d 65	o-beginning.54.yank.55.execute-e
2ee0	78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 20 35 36 20 69 6e 64 65 6e 74 2d 6f 72 2d 66 69 6c	xtended-command.56.indent-or-fil
2f00	6c 2d 72 65 67 69 6f 6e 20 35 37 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 20 34 35 20 75 6e	l-region.57.replace-regexp.45.un
2f20	64 65 6c 65 74 65 2d 77 6f 72 64 73 20 34 34 20 75 6e 64 65 6c 65 74 65 2d 63 68 61 72 73 20 34	delete-words.44.undelete-chars.4
2f40	36 20 72 65 64 72 61 77 2d 64 69 73 70 6c 61 79 20 31 30 31 20 73 68 65 6c 6c 2d 63 6f 6d 6d 61	6.redraw-display.101.shell-comma
2f60	6e 64 5d 20 32 35 29 29 0a 0a 28 6f 72 20 28 61 73 73 71 20 28 71 75 6f 74 65 20 65 64 74 2d 64	nd].25))..(or.(assq.(quote.edt-d
2f80	69 72 65 63 74 69 6f 6e 2d 73 74 72 69 6e 67 29 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73	irection-string).minor-mode-alis
2fa0	74 29 20 28 73 65 74 71 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 28 63 6f 6e 73 20	t).(setq.minor-mode-alist.(cons.
2fc0	28 71 75 6f 74 65 20 28 65 64 74 2d 64 69 72 65 63 74 69 6f 6e 2d 73 74 72 69 6e 67 20 65 64 74	(quote.(edt-direction-string.edt
2fe0	2d 64 69 72 65 63 74 69 6f 6e 2d 73 74 72 69 6e 67 29 29 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61	-direction-string)).minor-mode-a
3000	6c 69 73 74 29 29 29 0a	list))).