blob: ab51cfd5e9f82030cac64de59837fea930cda9ac (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 28 63 68 61 72 20 64 65 66	.(defun.keypad-default.(char.def
0020	69 6e 69 74 69 6f 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 5c 22 86 0c 00 c4 08 09	inition).(byte-code."...\"......
0040	0a 23 87 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 63 68 61 72 20 64 65 66 69 6e	.#.".[function-keymap.char.defin
0060	69 74 69 6f 6e 20 6c 6f 6f 6b 75 70 2d 6b 65 79 20 64 65 66 69 6e 65 2d 6b 65 79 5d 20 35 29 29	ition.lookup-key.define-key].5))
0080	0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 6c 22 20 28 71 75 6f 74 65 20 62 61 63	..(keypad-default."l".(quote.bac
00a0	6b 77 61 72 64 2d 63 68 61 72 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 72	kward-char))..(keypad-default."r
00c0	22 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 6b 65 79 70 61 64	".(quote.forward-char))..(keypad
00e0	2d 64 65 66 61 75 6c 74 20 22 44 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 63 68 61 72 29	-default."D".(quote.delete-char)
0100	29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 75 22 20 28 71 75 6f 74 65 20 70 72	)..(keypad-default."u".(quote.pr
0120	65 76 69 6f 75 73 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22	evious-line))..(keypad-default."
0140	64 22 20 28 71 75 6f 74 65 20 6e 65 78 74 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64	d".(quote.next-line))..(keypad-d
0160	65 66 61 75 6c 74 20 22 4e 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c 2d 75 70 29 29 0a 0a 28	efault."N".(quote.scroll-up))..(
0180	6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 50 22 20 28 71 75 6f 74 65 20 73 63 72 6f 6c 6c	keypad-default."P".(quote.scroll
01a0	2d 64 6f 77 6e 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 43 22 20 28 71 75	-down))..(keypad-default."C".(qu
01c0	6f 74 65 20 72 65 63 65 6e 74 65 72 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20	ote.recenter))..(keypad-default.
01e0	22 3f 22 20 28 71 75 6f 74 65 20 68 65 6c 70 2d 66 6f 72 2d 68 65 6c 70 29 29 0a 0a 28 6b 65 79	"?".(quote.help-for-help))..(key
0200	70 61 64 2d 64 65 66 61 75 6c 74 20 22 73 22 20 28 71 75 6f 74 65 20 73 65 74 2d 6d 61 72 6b 2d	pad-default."s".(quote.set-mark-
0220	63 6f 6d 6d 61 6e 64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 6b 22 20 28	command))..(keypad-default."k".(
0240	71 75 6f 74 65 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66	quote.kill-region))..(keypad-def
0260	61 75 6c 74 20 22 66 22 20 28 71 75 6f 74 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72	ault."f".(quote.re-search-forwar
0280	64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 01 22 20 28 71 75 6f 74 65 20	d))..(keypad-default.".".(quote.
02a0	62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66	beginning-of-line))..(keypad-def
02c0	61 75 6c 74 20 22 02 22 20 28 71 75 6f 74 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 29 29 0a 0a 28	ault.".".(quote.end-of-line))..(
02e0	6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 03 22 20 28 71 75 6f 74 65 20 69 73 65 61 72 63	keypad-default.".".(quote.isearc
0300	68 2d 66 6f 72 77 61 72 64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 04 22	h-forward))..(keypad-default."."
0320	20 28 71 75 6f 74 65 20 6b 69 6c 6c 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66	.(quote.kill-line))..(keypad-def
0340	61 75 6c 74 20 22 2e 22 20 28 71 75 6f 74 65 20 64 65 6c 65 74 65 2d 63 68 61 72 29 29 0a 0a 28	ault.".".(quote.delete-char))..(
0360	6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 30 22 20 28 71 75 6f 74 65 20 79 61 6e 6b 29 29	keypad-default."0".(quote.yank))
0380	0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 65 22 20 28 71 75 6f 74 65 20 6f 70 65	..(keypad-default."e".(quote.ope
03a0	6e 2d 6c 69 6e 65 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 31 22 20 28 71	n-line))..(keypad-default."1".(q
03c0	75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 77 6f 72 64 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65	uote.backward-word))..(keypad-de
03e0	66 61 75 6c 74 20 22 33 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 29 29 0a	fault."3".(quote.forward-word)).
0400	0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 37 22 20 28 71 75 6f 74 65 20 62 61 63 6b	.(keypad-default."7".(quote.back
0420	77 61 72 64 2d 70 61 72 61 67 72 61 70 68 29 29 0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c	ward-paragraph))..(keypad-defaul
0440	74 20 22 39 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 29 29	t."9".(quote.forward-paragraph))
0460	0a 0a 28 6b 65 79 70 61 64 2d 64 65 66 61 75 6c 74 20 22 68 22 20 28 71 75 6f 74 65 20 6d 6f 76	..(keypad-default."h".(quote.mov
0480	65 2d 74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e 65 29 29 0a 0a 28 64 65 66 75 6e 20 73 65 74 75 70	e-to-window-line))..(defun.setup
04a0	2d 74 65 72 6d 69 6e 61 6c 2d 6b 65 79 6d 61 70 20 28 6d 61 70 20 74 72 61 6e 73 6c 61 74 69 6f	-terminal-keymap.(map.translatio
04c0	6e 73 29 20 22 5c 0a 53 65 74 20 75 70 20 6b 65 79 6d 61 70 20 4d 41 50 20 74 6f 20 66 6f 72 77	ns)."\.Set.up.keymap.MAP.to.forw
04e0	61 72 64 20 74 6f 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 61 63 63 6f 72 64 69 6e 67	ard.to.function-keymap.according
0500	20 74 6f 20 54 52 41 4e 53 4c 41 54 49 4f 4e 53 2e 0a 54 52 41 4e 53 4c 41 54 49 4f 4e 53 20 69	.to.TRANSLATIONS..TRANSLATIONS.i
0520	73 20 61 6e 20 61 6c 69 73 74 3b 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 69 74 20 6c	s.an.alist;.each.element.of.it.l
0540	6f 6f 6b 73 20 6c 69 6b 65 20 28 46 52 4f 4d 53 54 52 49 4e 47 20 2e 20 54 4f 43 48 41 52 29 2e	ooks.like.(FROMSTRING...TOCHAR).
0560	0a 46 6f 72 20 65 61 63 68 20 73 75 63 68 20 70 61 69 72 2c 20 77 65 20 64 65 66 69 6e 65 20 74	.For.each.such.pair,.we.define.t
0580	68 65 20 6b 65 79 20 73 65 71 75 65 6e 63 65 20 46 52 4f 4d 53 54 52 49 4e 47 20 69 6e 20 4d 41	he.key.sequence.FROMSTRING.in.MA
05a0	50 0a 74 6f 20 66 6f 72 77 61 72 64 20 74 6f 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f	P.to.forward.to.the.definition.o
05c0	66 20 63 68 61 72 61 63 74 65 72 20 54 4f 43 48 41 52 20 69 6e 20 66 75 6e 63 74 69 6f 6e 2d 6b	f.character.TOCHAR.in.function-k
05e0	65 79 6d 61 70 2e 0a 5c 22 46 6f 72 77 61 72 64 69 6e 67 5c 22 20 6d 65 61 6e 73 20 74 68 61 74	eymap..\"Forwarding\".means.that
0600	20 73 75 62 73 65 71 75 65 6e 74 20 72 65 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 54 4f 43 48	.subsequent.redefinition.of.TOCH
0620	41 52 20 69 6e 0a 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 77 69 6c 6c 20 62 65 20 73 65	AR.in.function-keymap.will.be.se
0640	65 6e 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e 20 4d 41 50 20 61 73 20 77 65 6c 6c 2e	en.automatically.in.MAP.as.well.
0660	0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 62 79 20 66 69 6c 65 73	..This.function.is.used.by.files
0680	20 74 65 72 6d 2f 2a 2e 65 6c 20 74 6f 20 73 65 74 20 75 70 20 74 68 65 20 6d 61 70 70 69 6e 67	.term/*.el.to.set.up.the.mapping
06a0	20 66 72 6f 6d 20 74 68 65 0a 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 73 20 73 65 6e 74 20	.from.the.escape.sequences.sent.
06c0	62 79 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 73 20 6f 6e 20 70 61 72 74 69 63 75 6c 61 72 20 74	by.function.keys.on.particular.t
06e0	65 72 6d 69 6e 61 6c 73 20 28 46 52 4f 4d 53 54 52 49 4e 47 73 29 0a 69 6e 74 6f 20 45 6d 61 63	erminals.(FROMSTRINGs).into.Emac
0700	73 20 73 74 61 6e 64 61 72 64 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 73 6c 6f 74 73 20 28 54	s.standard.function.key.slots.(T
0720	4f 43 48 41 52 73 29 2e 0a 41 6e 20 61 63 74 75 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 28 73	OCHARs)..An.actual.definition.(s
0740	75 63 68 20 61 73 20 61 20 73 79 6d 62 6f 6c 29 20 6d 61 79 20 62 65 20 67 69 76 65 6e 20 69 6e	uch.as.a.symbol).may.be.given.in
0760	20 70 6c 61 63 65 20 6f 66 20 54 4f 43 48 41 52 2e 0a 47 65 6e 65 72 61 6c 6c 79 2c 20 4d 41 50	.place.of.TOCHAR..Generally,.MAP
0780	20 69 73 20 61 20 70 72 65 66 69 78 20 6b 65 79 6d 61 70 20 77 68 69 63 68 20 77 69 6c 6c 20 62	.is.a.prefix.keymap.which.will.b
07a0	65 20 61 74 74 61 63 68 65 64 20 74 6f 20 61 20 6b 65 79 0a 74 68 61 74 20 69 73 20 74 68 65 20	e.attached.to.a.key.that.is.the.
07c0	63 6f 6d 6d 6f 6e 20 70 72 65 66 69 78 20 73 65 6e 74 20 62 79 20 61 6c 6c 20 66 75 6e 63 74 69	common.prefix.sent.by.all.functi
07e0	6f 6e 20 6b 65 79 73 20 28 6f 66 74 65 6e 20 45 53 43 20 4f 20 6f 72 20 45 53 43 20 5b 29 2e 22	on.keys.(often.ESC.O.or.ESC.[)."
0800	20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 26 00 c3 09 08 40 40 c4 08 40 41 21 83 19 00 0a 08	.(byte-code."..&....@@..@A!.....
0820	40 41 42 82 1c 00 08 40 41 23 88 08 41 89 10 88 82 00 00 87 22 20 5b 74 72 61 6e 73 6c 61 74 69	@AB....@A#..A.......".[translati
0840	6f 6e 73 20 6d 61 70 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b	ons.map.function-keymap.define-k
0860	65 79 20 6e 75 6d 62 65 72 70 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 66 75 6e 63 74 69 6f 6e	ey.numberp].7))..(defun.function
0880	2d 6b 65 79 2d 73 65 71 75 65 6e 63 65 20 28 63 68 61 72 29 20 22 5c 0a 52 65 74 75 72 6e 20 6b	-key-sequence.(char)."\.Return.k
08a0	65 79 20 73 65 71 75 65 6e 63 65 20 66 6f 72 20 66 75 6e 63 74 69 6f 6e 20 6b 65 79 20 74 68 61	ey.sequence.for.function.key.tha
08c0	74 20 6f 6e 20 74 68 69 73 20 74 65 72 6d 69 6e 61 6c 0a 74 72 61 6e 73 6c 61 74 65 73 20 69 6e	t.on.this.terminal.translates.in
08e0	74 6f 20 73 6c 6f 74 20 43 48 41 52 20 69 6e 20 66 75 6e 63 74 69 6f 6e 2d 6b 65 79 6d 61 70 2e	to.slot.CHAR.in.function-keymap.
0900	0a 4f 72 20 72 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 6e 65 2e	.Or.return.nil.if.there.is.none.
0920	22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 42 c3 20 5c 22 40 87 22 20 5b 66 75 6e 63 74	".(byte-code."...B..\"@.".[funct
0940	69 6f 6e 2d 6b 65 79 6d 61 70 20 63 68 61 72 20 77 68 65 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61	ion-keymap.char.where-is-interna
0960	6c 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 5d 20 34 29 29 0a 0a 28 70 72 6f 76 69	l.current-local-map].4))..(provi
0980	64 65 20 28 71 75 6f 74 65 20 6b 65 79 70 61 64 29 29 0a	de.(quote.keypad)).