blob: b0c4971ff8ad7ef4d53b7f4501326975c0f7413a (plain)

ofs	hex dump	ascii
0000	0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 75 6e 2d 6d 6f 75 73 65 29 29 0a 0a 28 64	.(provide.(quote.sun-mouse))..(d
0020	65 66 76 61 72 20 65 78 74 72 61 2d 63 6c 69 63 6b 2d 77 61 69 74 20 31 35 30 20 22 5c 0a 2a 4e	efvar.extra-click-wait.150."\.*N
0040	75 6d 62 65 72 20 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 66 6f	umber.of.milliseconds.to.wait.fo
0060	72 20 61 6e 20 65 78 74 72 61 20 63 6c 69 63 6b 2e 0a 53 65 74 20 74 68 69 73 20 74 6f 20 7a 65	r.an.extra.click..Set.this.to.ze
0080	72 6f 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 77 61 6e 74 20 63 68 6f 72 64 73 20 6f 72 20 64	ro.if.you.don't.want.chords.or.d
00a0	6f 75 62 6c 65 20 63 6c 69 63 6b 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 72 6f 6c 6c 62	ouble.clicks.")..(defvar.scrollb
00c0	61 72 2d 77 69 64 74 68 20 35 20 22 5c 0a 2a 54 68 65 20 63 68 61 72 61 63 74 65 72 20 77 69 64	ar-width.5."\.*The.character.wid
00e0	74 68 20 6f 66 20 74 68 65 20 73 63 72 6f 6c 6c 62 61 72 2e 0a 54 68 65 20 63 75 72 73 6f 72 20	th.of.the.scrollbar..The.cursor.
0100	69 73 20 64 65 65 6d 65 64 20 74 6f 20 62 65 20 69 6e 20 74 68 65 20 72 69 67 68 74 20 65 64 67	is.deemed.to.be.in.the.right.edg
0120	65 20 73 63 72 6f 6c 6c 62 61 72 20 69 66 20 69 74 20 69 73 20 74 68 69 73 20 6e 65 61 72 20 74	e.scrollbar.if.it.is.this.near.t
0140	68 65 0a 72 69 67 68 74 20 65 64 67 65 2c 20 61 6e 64 20 6d 6f 72 65 20 74 68 61 6e 20 74 77 6f	he.right.edge,.and.more.than.two
0160	20 63 68 61 72 73 20 70 61 73 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 69 6e 64 69 63	.chars.past.the.end.of.the.indic
0180	61 74 65 64 20 6c 69 6e 65 2e 0a 53 65 74 74 69 6e 67 20 74 6f 20 6e 69 6c 20 6c 69 6d 69 74 73	ated.line..Setting.to.nil.limits
01a0	20 74 68 65 20 73 63 72 6f 6c 6c 62 61 72 20 74 6f 20 74 68 65 20 65 64 67 65 20 6f 72 20 76 65	.the.scrollbar.to.the.edge.or.ve
01c0	72 74 69 63 61 6c 20 64 69 76 69 64 69 6e 67 20 62 61 72 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d	rtical.dividing.bar.")..(defun.m
01e0	61 6b 65 2d 6d 6f 75 73 65 6d 61 70 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 73 20 61 20 6e 65	ake-mousemap.nil."\.Returns.a.ne
0200	77 20 6d 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c0 42 87 22 20 5b	w.mousemap.".(byte-code."..B.".[
0220	6e 69 6c 20 6d 6f 75 73 65 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 70 79 2d 6d	nil.mousemap].2))..(defun.copy-m
0240	6f 75 73 65 6d 61 70 20 28 6d 6f 75 73 65 6d 61 70 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 63	ousemap.(mousemap)."\.Return.a.c
0260	6f 70 79 20 6f 66 20 6d 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08	opy.of.mousemap.".(byte-code."..
0280	21 87 22 20 5b 6d 6f 75 73 65 6d 61 70 20 63 6f 70 79 2d 61 6c 69 73 74 5d 20 32 29 29 0a 0a 28	!.".[mousemap.copy-alist].2))..(
02a0	64 65 66 75 6e 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 20 28 6d 6f 75 73 65 6d 61 70 20 6d 6f 75	defun.define-mouse.(mousemap.mou
02c0	73 65 2d 6c 69 73 74 20 64 65 66 29 20 22 5c 0a 41 72 67 73 20 4d 4f 55 53 45 4d 41 50 2c 20 4d	se-list.def)."\.Args.MOUSEMAP,.M
02e0	4f 55 53 45 2d 4c 49 53 54 2c 20 44 45 46 2e 20 20 44 65 66 69 6e 65 20 4d 4f 55 53 45 2d 4c 49	OUSE-LIST,.DEF...Define.MOUSE-LI
0300	53 54 20 69 6e 20 4d 4f 55 53 45 4d 41 50 20 61 73 20 44 45 46 2e 0a 4d 4f 55 53 45 2d 4c 49 53	ST.in.MOUSEMAP.as.DEF..MOUSE-LIS
0320	54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 61 74 6f 6d 73 20 73 70 65 63 69 66 69 6e 67 20 61	T.is.a.list.of.atoms.specifing.a
0340	20 6d 6f 75 73 65 20 68 69 74 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 73 65 20 72 75	.mouse.hit.according.to.these.ru
0360	6c 65 73 3a 0a 20 20 2a 20 4f 6e 65 20 6f 66 20 74 68 65 73 65 20 61 74 6f 6d 73 20 73 70 65 63	les:...*.One.of.these.atoms.spec
0380	69 66 69 65 73 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69 6f 6e 20 6f 66 20 74 68 65 20 64	ifies.the.active.region.of.the.d
03a0	65 66 69 6e 69 74 69 6f 6e 2e 0a 09 74 65 78 74 2c 20 73 63 72 6f 6c 6c 62 61 72 2c 20 6d 6f 64	efinition...text,.scrollbar,.mod
03c0	65 6c 69 6e 65 2c 20 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 2a 20 4f 6e 65 20 6f 72 20 74 77 6f	eline,.minibuffer...*.One.or.two
03e0	20 6f 72 20 74 68 65 73 65 20 61 74 6f 6d 73 20 73 70 65 63 69 66 79 20 74 68 65 20 62 75 74 74	.or.these.atoms.specify.the.butt
0400	6f 6e 20 6f 72 20 62 75 74 74 6f 6e 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20	on.or.button.combination........
0420	20 20 6c 65 66 74 2c 20 6d 69 64 64 6c 65 2c 20 72 69 67 68 74 2c 20 64 6f 75 62 6c 65 0a 20 20	..left,.middle,.right,.double...
0440	2a 20 41 6e 79 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 73 65 20 61 74 6f 6d 73	*.Any.combination.of.these.atoms
0460	20 73 70 65 63 69 66 79 20 74 68 65 20 61 63 74 69 76 65 20 73 68 69 66 74 20 6b 65 79 73 2e 0a	.specify.the.active.shift.keys..
0480	20 20 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 2c 20 73 68 69 66 74 2c 20 6d 65 74 61 0a 20 20 2a	........control,.shift,.meta...*
04a0	20 57 69 74 68 20 61 20 73 69 6e 67 6c 65 20 75 6e 73 68 69 66 74 65 64 20 62 75 74 74 6f 6e 2c	.With.a.single.unshifted.button,
04c0	20 79 6f 75 20 63 61 6e 20 61 64 64 0a 09 75 70 0a 20 20 20 20 74 6f 20 69 6e 64 69 63 61 74 65	.you.can.add..up.....to.indicate
04e0	20 61 6e 20 75 70 2d 63 6c 69 63 6b 2e 0a 54 68 65 20 61 74 6f 6d 20 60 64 6f 75 62 6c 65 27 20	.an.up-click..The.atom.`double'.
0500	69 73 20 75 73 65 64 20 77 69 74 68 20 61 20 62 75 74 74 6f 6e 20 64 65 73 69 67 6e 61 74 6f 72	is.used.with.a.button.designator
0520	20 74 6f 20 64 65 6e 6f 74 65 20 61 20 64 6f 75 62 6c 65 20 63 6c 69 63 6b 2e 0a 54 77 6f 20 62	.to.denote.a.double.click..Two.b
0540	75 74 74 6f 6e 20 63 68 6f 72 64 73 20 61 72 65 20 64 65 6e 6f 74 65 64 20 62 79 20 6c 69 73 74	utton.chords.are.denoted.by.list
0560	69 6e 67 20 74 68 65 20 74 77 6f 20 62 75 74 74 6f 6e 73 2e 0a 53 65 65 20 73 75 6e 2d 6d 6f 75	ing.the.two.buttons..See.sun-mou
0580	73 65 2d 68 61 6e 64 6c 65 72 20 66 6f 72 20 74 68 65 20 74 72 65 61 74 6d 65 6e 74 20 6f 66 20	se-handler.for.the.treatment.of.
05a0	74 68 65 20 66 6f 72 6d 20 44 45 46 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 08 21 09	the.form.DEF.".(byte-code."...!.
05c0	0a 23 87 22 20 5b 6d 6f 75 73 65 2d 6c 69 73 74 20 6d 6f 75 73 65 6d 61 70 20 64 65 66 20 6d 6f	.#.".[mouse-list.mousemap.def.mo
05e0	75 73 65 6d 61 70 2d 73 65 74 20 6d 6f 75 73 65 2d 6c 69 73 74 2d 74 6f 2d 6d 6f 75 73 65 2d 63	usemap-set.mouse-list-to-mouse-c
0600	6f 64 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 67 6c 6f 62 61 6c 2d 73 65 74 2d 6d 6f 75 73	ode].5))..(defun.global-set-mous
0620	65 20 28 6d 6f 75 73 65 2d 6c 69 73 74 20 64 65 66 29 20 22 5c 0a 47 69 76 65 20 4d 4f 55 53 45	e.(mouse-list.def)."\.Give.MOUSE
0640	2d 45 56 45 4e 54 2d 4c 49 53 54 20 61 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f	-EVENT-LIST.a.local.definition.o
0660	66 20 44 45 46 2e 0a 53 65 65 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 20 66 6f 72 20 61 20 64 65	f.DEF..See.define-mouse.for.a.de
0680	73 63 72 69 70 74 69 6f 6e 20 6f 66 20 4d 4f 55 53 45 2d 45 56 45 4e 54 2d 4c 49 53 54 20 61 6e	scription.of.MOUSE-EVENT-LIST.an
06a0	64 20 44 45 46 2e 0a 4e 6f 74 65 20 74 68 61 74 20 69 66 20 4d 4f 55 53 45 2d 45 56 45 4e 54 2d	d.DEF..Note.that.if.MOUSE-EVENT-
06c0	4c 49 53 54 20 68 61 73 20 61 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 20 74	LIST.has.a.local.definition.in.t
06e0	68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2c 0a 74 68 61 74 20 6c 6f 63 61 6c 20 64 65	he.current.buffer,.that.local.de
0700	66 69 6e 69 74 69 6f 6e 20 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 73 68 61 64 6f 77	finition.will.continue.to.shadow
0720	20 61 6e 79 20 67 6c 6f 62 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61	.any.global.definition.".(intera
0740	63 74 69 76 65 20 22 78 4d 6f 75 73 65 20 65 76 65 6e 74 3a 20 0a 78 44 65 66 69 6e 69 74 69 6f	ctive."xMouse.event:..xDefinitio
0760	6e 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 87 22 20 5b 63 75 72	n:.").(byte-code."......#.".[cur
0780	72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 2d 6c 69 73 74 20	rent-global-mousemap.mouse-list.
07a0	64 65 66 20 6e 69 6c 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 5d 20 34 29 29 0a 0a 28 64 65 66 75	def.nil.define-mouse].4))..(defu
07c0	6e 20 6c 6f 63 61 6c 2d 73 65 74 2d 6d 6f 75 73 65 20 28 6d 6f 75 73 65 2d 6c 69 73 74 20 64 65	n.local-set-mouse.(mouse-list.de
07e0	66 29 20 22 5c 0a 47 69 76 65 20 4d 4f 55 53 45 2d 45 56 45 4e 54 2d 4c 49 53 54 20 61 20 6c 6f	f)."\.Give.MOUSE-EVENT-LIST.a.lo
0800	63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 44 45 46 2e 0a 53 65 65 20 64 65 66 69 6e	cal.definition.of.DEF..See.defin
0820	65 2d 6d 6f 75 73 65 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65	e-mouse.for.a.description.of.the
0840	20 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 67 6f 65 73 20	.arguments..The.definition.goes.
0860	69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 6c 6f 63 61 6c 20 6d 6f	in.the.current.buffer's.local.mo
0880	75 73 65 6d 61 70 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 62 75 66 66 65 72 73 20 69 6e 20 74 68 65 20	usemap..Normally.buffers.in.the.
08a0	73 61 6d 65 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 73 68 61 72 65 20 61 20 6c 6f 63 61 6c 20 6d 6f	same.major.mode.share.a.local.mo
08c0	75 73 65 6d 61 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 78 4d 6f 75 73 65 20 65 76	usemap.".(interactive."xMouse.ev
08e0	65 6e 74 3a 20 0a 78 44 65 66 69 6e 69 74 69 6f 6e 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65	ent:..xDefinition:.").(byte-code
0900	20 22 c3 88 08 3f 85 0b 00 c4 20 89 10 88 c5 08 09 0a 23 87 22 20 5b 63 75 72 72 65 6e 74 2d 6c	."...?............#.".[current-l
0920	6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 2d 6c 69 73 74 20 64 65 66 20 6e 69 6c	ocal-mousemap.mouse-list.def.nil
0940	20 6d 61 6b 65 2d 6d 6f 75 73 65 6d 61 70 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 5d 20 35 29 29	.make-mousemap.define-mouse].5))
0960	0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 28 6d 6f	..(defun.use-global-mousemap.(mo
0980	75 73 65 6d 61 70 29 20 22 5c 0a 53 65 6c 65 63 74 73 20 4d 4f 55 53 45 4d 41 50 20 61 73 20 74	usemap)."\.Selects.MOUSEMAP.as.t
09a0	68 65 20 67 6c 6f 62 61 6c 20 6d 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20	he.global.mousemap.".(byte-code.
09c0	22 09 89 10 87 22 20 5b 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20	"....".[current-global-mousemap.
09e0	6d 6f 75 73 65 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 6c 6f 63 61 6c 2d	mousemap].2))..(defun.use-local-
0a00	6d 6f 75 73 65 6d 61 70 20 28 6d 6f 75 73 65 6d 61 70 29 20 22 5c 0a 53 65 6c 65 63 74 73 20 4d	mousemap.(mousemap)."\.Selects.M
0a20	4f 55 53 45 4d 41 50 20 61 73 20 74 68 65 20 6c 6f 63 61 6c 20 6d 6f 75 73 65 6d 61 70 2e 0a 6e	OUSEMAP.as.the.local.mousemap..n
0a40	69 6c 20 66 6f 72 20 4d 4f 55 53 45 4d 41 50 20 6d 65 61 6e 73 20 6e 6f 20 6c 6f 63 61 6c 20 6d	il.for.MOUSEMAP.means.no.local.m
0a60	6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b 63 75 72	ousemap.".(byte-code."....".[cur
0a80	72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 6d 61 70 5d 20 32 29	rent-local-mousemap.mousemap].2)
0aa0	29 0a 0a 28 64 65 66 75 6e 20 6c 6f 67 74 65 73 74 20 28 78 20 79 29 20 22 5c 0a 54 72 75 65 20	)..(defun.logtest.(x.y)."\.True.
0ac0	69 66 20 61 6e 79 20 62 69 74 73 20 73 65 74 20 69 6e 20 58 20 61 72 65 20 61 6c 73 6f 20 73 65	if.any.bits.set.in.X.are.also.se
0ae0	74 20 69 6e 20 59 2e 0a 4a 75 73 74 20 6c 69 6b 65 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73	t.in.Y..Just.like.the.Common.Lis
0b00	70 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 2e 22 20 28 62	p.function.of.the.same.name.".(b
0b20	79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 09 5c 22 21 3f 87 22 20 5b 78 20 79 20 7a 65 72 6f 70 20	yte-code."....\"!?.".[x.y.zerop.
0b40	6c 6f 67 61 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 42 75 74 74 6f	logand].4))..(defconst.sm::Butto
0b60	6e 42 69 74 73 20 37 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 53 68 69 66 74 6d 61 73	nBits.7)..(defconst.sm::Shiftmas
0b80	6b 42 69 74 73 20 35 36 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 44 6f 75 62 6c 65 42	kBits.56)..(defconst.sm::DoubleB
0ba0	69 74 73 20 36 34 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 55 70 42 69 74 73 20 31 32	its.64)..(defconst.sm::UpBits.12
0bc0	38 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 63 6f 64 65 20 28 68 69 74 29	8)..(defmacro.sm::hit-code.(hit)
0be0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 68 69 74 20 6e 74 68 20 30 5d 20	.(byte-code."...E.".[hit.nth.0].
0c00	33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 62 75 74 74 6f 6e 20 28 68	3))..(defmacro.sm::hit-button.(h
0c20	69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c	it).(byte-code.".....EE.".[hit.l
0c40	6f 67 61 6e 64 20 73 6d 3a 3a 42 75 74 74 6f 6e 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 29 0a	ogand.sm::ButtonBits.nth.0].5)).
0c60	0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 73 68 69 66 74 6d 61 73 6b 20 28 68 69	.(defmacro.sm::hit-shiftmask.(hi
0c80	74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c 6f	t).(byte-code.".....EE.".[hit.lo
0ca0	67 61 6e 64 20 73 6d 3a 3a 53 68 69 66 74 6d 61 73 6b 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29	gand.sm::ShiftmaskBits.nth.0].5)
0cc0	29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 64 6f 75 62 6c 65 20 28 68 69 74	)..(defmacro.sm::hit-double.(hit
0ce0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c 6f 67	).(byte-code.".....EE.".[hit.log
0d00	61 6e 64 20 73 6d 3a 3a 44 6f 75 62 6c 65 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 29 0a 0a 28	and.sm::DoubleBits.nth.0].5))..(
0d20	64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 75 70 20 28 68 69 74 29 20 28 62 79 74 65 2d	defmacro.sm::hit-up.(hit).(byte-
0d40	63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c 6f 67 61 6e 64 20 73 6d 3a 3a	code.".....EE.".[hit.logand.sm::
0d60	55 70 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a	UpBits.nth.0].5))..(defmacro.sm:
0d80	3a 68 69 74 2d 78 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20	:hit-x.(hit).(byte-code."...E.".
0da0	5b 68 69 74 20 6e 74 68 20 31 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68	[hit.nth.1].3))..(defmacro.sm::h
0dc0	69 74 2d 79 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 68	it-y.(hit).(byte-code."...E.".[h
0de0	69 74 20 6e 74 68 20 32 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74	it.nth.2].3))..(defmacro.sm::hit
0e00	2d 64 65 6c 74 61 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20	-delta.(hit).(byte-code."...E.".
0e20	5b 68 69 74 20 6e 74 68 20 33 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68	[hit.nth.3].3))..(defmacro.sm::h
0e40	69 74 2d 75 70 2d 70 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 08 44 44	it-up-p.(hit).(byte-code."....DD
0e60	44 87 22 20 5b 68 69 74 20 6e 6f 74 20 7a 65 72 6f 70 20 73 6d 3a 3a 68 69 74 2d 75 70 5d 20 34	D.".[hit.not.zerop.sm::hit-up].4
0e80	29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 6c 6f 63 2d 77 20 28 6c 6f 63 29 20 28 62	))..(defmacro.sm::loc-w.(loc).(b
0ea0	79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 6c 6f 63 20 6e 74 68 20 30 5d 20 33 29 29	yte-code."...E.".[loc.nth.0].3))
0ec0	0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 6c 6f 63 2d 78 20 28 6c 6f 63 29 20 28 62 79 74	..(defmacro.sm::loc-x.(loc).(byt
0ee0	65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 6c 6f 63 20 6e 74 68 20 31 5d 20 33 29 29 0a 0a	e-code."...E.".[loc.nth.1].3))..
0f00	28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 6c 6f 63 2d 79 20 28 6c 6f 63 29 20 28 62 79 74 65 2d	(defmacro.sm::loc-y.(loc).(byte-
0f20	63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 6c 6f 63 20 6e 74 68 20 32 5d 20 33 29 29 0a 0a 28 64	code."...E.".[loc.nth.2].3))..(d
0f40	65 66 6d 61 63 72 6f 20 65 76 61 6c 2d 69 6e 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 20 26	efmacro.eval-in-buffer.(buffer.&
0f60	72 65 73 74 20 66 6f 72 6d 73 29 20 22 4d 61 63 72 6f 20 74 6f 20 73 77 69 74 63 68 65 73 20 74	rest.forms)."Macro.to.switches.t
0f80	6f 20 42 55 46 46 45 52 2c 20 65 76 61 6c 75 61 74 65 73 20 46 4f 52 4d 53 2c 20 72 65 74 75 72	o.BUFFER,.evaluates.FORMS,.retur
0fa0	6e 73 20 74 6f 20 6f 72 69 67 69 6e 61 6c 20 62 75 66 66 65 72 2e 22 20 28 62 79 74 65 2d 63 6f	ns.to.original.buffer.".(byte-co
0fc0	64 65 20 22 c2 c3 c4 c5 c6 c7 08 44 44 09 5c 22 c8 45 45 87 22 20 5b 62 75 66 66 65 72 20 66 6f	de.".......DD.\".EE.".[buffer.fo
0fe0	72 6d 73 20 6c 65 74 20 28 28 53 74 61 72 74 42 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62	rms.let.((StartBuffer.(current-b
1000	75 66 66 65 72 29 29 29 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 61 70 70 65 6e 64 20 70	uffer))).unwind-protect.append.p
1020	72 6f 67 6e 20 73 65 74 2d 62 75 66 66 65 72 20 28 73 65 74 2d 62 75 66 66 65 72 20 53 74 61 72	rogn.set-buffer.(set-buffer.Star
1040	74 42 75 66 66 65 72 29 5d 20 37 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 65 76 61 6c 2d	tBuffer)].7))..(put.(quote.eval-
1060	69 6e 2d 62 75 66 66 65 72 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f	in-buffer).(quote.lisp-indent-ho
1080	6f 6b 29 20 31 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 65 76 61 6c 2d 69 6e 2d 77 69 6e 64 6f 77	ok).1)..(defmacro.eval-in-window
10a0	20 28 77 69 6e 64 6f 77 20 26 72 65 73 74 20 66 6f 72 6d 73 29 20 22 53 77 69 74 63 68 20 74 6f	.(window.&rest.forms)."Switch.to
10c0	20 57 49 4e 44 4f 57 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 53 2c 20 72 65 74 75 72 6e 20	.WINDOW,.evaluate.FORMS,.return.
10e0	74 6f 20 6f 72 69 67 69 6e 61 6c 20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20	to.original.window.".(byte-code.
1100	22 c2 c3 c4 c5 c6 c7 08 44 44 09 5c 22 c8 45 45 87 22 20 5b 77 69 6e 64 6f 77 20 66 6f 72 6d 73	".......DD.\".EE.".[window.forms
1120	20 6c 65 74 20 28 28 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20	.let.((OriginallySelectedWindow.
1140	28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65	(selected-window))).unwind-prote
1160	63 74 20 61 70 70 65 6e 64 20 70 72 6f 67 6e 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 69	ct.append.progn.select-window.(i
1180	66 20 28 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 20 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74	f.(window-point.OriginallySelect
11a0	65 64 57 69 6e 64 6f 77 29 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 4f 72 69 67 69 6e 61	edWindow).(select-window.Origina
11c0	6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 29 29 5d 20 37 29 29 0a 0a 28 70 75 74 20 28	llySelectedWindow))].7))..(put.(
11e0	71 75 6f 74 65 20 65 76 61 6c 2d 69 6e 2d 77 69 6e 64 6f 77 29 20 28 71 75 6f 74 65 20 6c 69 73	quote.eval-in-window).(quote.lis
1200	70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 65 76 61	p-indent-hook).1)..(defmacro.eva
1220	6c 2d 69 6e 2d 77 69 6e 64 6f 77 73 20 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 79 65 73	l-in-windows.(form.&optional.yes
1240	6d 69 6e 69 29 20 22 53 77 69 74 63 68 65 73 20 74 6f 20 65 61 63 68 20 77 69 6e 64 6f 77 20 61	mini)."Switches.to.each.window.a
1260	6e 64 20 65 76 61 6c 75 61 74 65 73 20 46 4f 52 4d 2e 20 20 4f 70 74 69 6f 6e 61 6c 20 61 72 67	nd.evaluates.FORM...Optional.arg
1280	75 6d 65 6e 74 0a 59 45 53 4d 49 4e 49 20 73 61 79 73 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 68	ument.YESMINI.says.to.include.th
12a0	65 20 6d 69 6e 69 62 75 66 66 65 72 20 61 73 20 61 20 77 69 6e 64 6f 77 2e 0a 54 68 69 73 20 69	e.minibuffer.as.a.window..This.i
12c0	73 20 61 20 6d 61 63 72 6f 2c 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20 65 76 61 6c 75 61 74 65	s.a.macro,.and.does.not.evaluate
12e0	20 69 74 73 20 61 72 67 75 6d 65 6e 74 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4	.its.arguments.".(byte-code."...
1300	c5 c6 08 c7 c8 c9 ca cb cc 09 45 44 45 44 45 44 cd 45 45 87 22 20 5b 66 6f 72 6d 20 79 65 73 6d	..........EDEDED.EE.".[form.yesm
1320	69 6e 69 20 6c 65 74 20 28 28 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64	ini.let.((OriginallySelectedWind
1340	6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 20 75 6e 77 69 6e 64 2d 70 72	ow.(selected-window))).unwind-pr
1360	6f 74 65 63 74 20 77 68 69 6c 65 20 70 72 6f 67 6e 20 6e 6f 74 20 65 71 20 4f 72 69 67 69 6e 61	otect.while.progn.not.eq.Origina
1380	6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20	llySelectedWindow.select-window.
13a0	6e 65 78 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 4f	next-window.nil.(select-window.O
13c0	72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 29 5d 20 31 33 29 29 0a 0a	riginallySelectedWindow)].13))..
13e0	28 70 75 74 20 28 71 75 6f 74 65 20 65 76 61 6c 2d 69 6e 2d 77 69 6e 64 6f 77 29 20 28 71 75 6f	(put.(quote.eval-in-window).(quo
1400	74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 64 65 66 75 6e 20	te.lisp-indent-hook).0)..(defun.
1420	6d 6f 76 65 2d 74 6f 2d 6c 6f 63 20 28 78 20 79 29 20 22 5c 0a 4d 6f 76 65 20 63 75 72 73 6f 72	move-to-loc.(x.y)."\.Move.cursor
1440	20 74 6f 20 77 69 6e 64 6f 77 20 6c 6f 63 61 74 69 6f 6e 20 58 2c 20 59 2e 0a 48 61 6e 64 6c 65	.to.window.location.X,.Y..Handle
1460	73 20 77 72 61 70 70 65 64 20 61 6e 64 20 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 20 73 63 72 6f 6c	s.wrapped.and.horizontally.scrol
1480	6c 65 64 20 6c 69 6e 65 73 20 63 6f 72 72 65 63 74 6c 79 2e 22 20 28 62 79 74 65 2d 63 6f 64 65	led.lines.correctly.".(byte-code
14a0	20 22 c4 08 21 88 69 c5 c6 c7 20 21 83 18 00 69 c8 20 c9 5a 0b 5e 5c 5c 82 5c 22 00 ca c7 20 cb	."..!.i....!...i...Z.^\\.\".....
14c0	c8 20 53 0b 5e 23 21 1a 19 0a 09 5a 2a 87 22 20 5b 79 20 63 63 20 6e 63 20 78 20 6d 6f 76 65 2d	..S.^#!....Z*.".[y.cc.nc.x.move-
14e0	74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 7a 65	to-window-line.move-to-column.ze
1500	72 6f 70 20 77 69 6e 64 6f 77 2d 68 73 63 72 6f 6c 6c 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 20	rop.window-hscroll.window-width.
1520	32 20 2b 20 2d 31 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 69 6e 69 62 75 66 66 65 72 2d	2.+.-1].13))..(defun.minibuffer-
1540	77 69 6e 64 6f 77 2d 70 20 28 77 69 6e 64 6f 77 29 20 22 5c 0a 54 72 75 65 20 69 66 66 20 74 68	window-p.(window)."\.True.iff.th
1560	69 73 20 57 49 4e 44 4f 57 20 69 73 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 62 79 74 65 2d	is.WINDOW.is.minibuffer.".(byte-
1580	63 6f 64 65 20 22 c1 20 c2 c3 08 21 38 55 87 22 20 5b 77 69 6e 64 6f 77 20 73 63 72 65 65 6e 2d	code.".....!8U.".[window.screen-
15a0	68 65 69 67 68 74 20 33 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 5d 20 35 29 29 0a 0a 28 73 65 74	height.3.window-edges].5))..(set
15c0	71 20 2a 6d 6f 75 73 65 2d 68 65 6c 70 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 2d	q.*mouse-help*.nil)..(defun.sun-
15e0	6d 6f 75 73 65 2d 68 61 6e 64 6c 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 68 69 74 29 20 22 5c	mouse-handler.(&optional.hit)."\
1600	0a 45 76 61 6c 75 61 74 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 6c 69 73 74 20	.Evaluates.the.function.or.list.
1620	61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 20 6d 6f 75 73 65 20 68 69 74 2e 0a 45 78 70	associated.with.a.mouse.hit..Exp
1640	65 63 74 69 6e 67 20 74 6f 20 72 65 61 64 20 61 20 68 69 74 2c 20 77 68 69 63 68 20 69 73 20 61	ecting.to.read.a.hit,.which.is.a
1660	20 6c 69 73 74 3a 20 28 62 75 74 74 6f 6e 20 78 20 79 20 64 65 6c 74 61 29 2e 20 20 0a 41 20 66	.list:.(button.x.y.delta)....A.f
1680	6f 72 6d 20 62 6f 75 6e 64 20 74 6f 20 62 75 74 74 6f 6e 20 62 79 20 64 65 66 69 6e 65 2d 6d 6f	orm.bound.to.button.by.define-mo
16a0	75 73 65 20 69 73 20 66 6f 75 6e 64 20 62 79 20 6d 6f 75 73 65 2d 6c 6f 6f 6b 75 70 2e 20 0a 54	use.is.found.by.mouse-lookup...T
16c0	68 65 20 76 61 72 69 61 62 6c 65 73 3a 20 2a 6d 6f 75 73 65 2d 77 69 6e 64 6f 77 2a 2c 20 2a 6d	he.variables:.*mouse-window*,.*m
16e0	6f 75 73 65 2d 78 2a 2c 20 2a 6d 6f 75 73 65 2d 79 2a 20 61 72 65 20 62 6f 75 6e 64 2e 20 20 0a	ouse-x*,.*mouse-y*.are.bound....
1700	49 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 70	If.the.form.is.a.symbol.(symbolp
1720	29 2c 20 69 74 20 69 73 20 66 75 6e 63 61 6c 6c 27 65 64 20 77 69 74 68 20 2a 6d 6f 75 73 65 2d	),.it.is.funcall'ed.with.*mouse-
1740	77 69 6e 64 6f 77 2a 2c 0a 2a 6d 6f 75 73 65 2d 78 2a 2c 20 61 6e 64 20 2a 6d 6f 75 73 65 2d 79	window*,.*mouse-x*,.and.*mouse-y
1760	2a 20 61 73 20 61 72 67 75 6d 65 6e 74 73 3b 20 69 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 61	*.as.arguments;.if.the.form.is.a
1780	20 6c 69 73 74 20 28 6c 69 73 74 70 29 2c 0a 74 68 65 20 66 6f 72 6d 20 69 73 20 65 76 61 6c 27	.list.(listp),.the.form.is.eval'
17a0	65 64 3b 20 69 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 6e 65 69 74 68 65 72 20 6f 66 20 74 68	ed;.if.the.form.is.neither.of.th
17c0	65 73 65 2c 20 69 74 20 69 73 20 61 6e 20 65 72 72 6f 72 2e 0a 52 65 74 75 72 6e 73 20 6e 69 6c	ese,.it.is.an.error..Returns.nil
17e0	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 cd 88 08	.".(interactive).(byte-code."...
1800	3f 85 0b 00 ce 20 89 10 88 cf d0 08 38 d1 08 38 5c 22 19 d2 09 38 d0 09 38 d1 09 38 d3 08 09 5c	?...........8..8\"...8..8..8...\
1820	22 1d 1c 1b 1a 70 1e 07 d4 8e d5 0a 21 71 88 d6 0d 21 29 29 1e 06 0e 06 3f 83 56 00 d7 d8 0e 08	"....p......!q...!))....?.V.....
1840	d2 08 38 5c 22 21 3f 3f 85 53 00 d9 da db dc 0d 21 21 5c 22 82 a7 00 0e 06 39 83 7f 00 0e 06 89	..8\"!??.S......!!\".....9......
1860	16 09 88 0e 0a 83 75 00 dd 0e 06 0a 0b 0c 46 21 88 de 20 82 7c 00 df 0e 06 0a 0b 0c 24 82 a7 00	......u.......F!....|.......$...
1880	0e 06 3c 83 a2 00 0e 06 40 89 16 09 88 0e 0a 83 9b 00 dd 0e 06 21 88 de 20 82 9f 00 e0 0e 06 21	..<.....@............!.........!
18a0	82 a7 00 d9 e1 0e 06 5c 22 29 2c 29 88 0e 09 e2 3d 85 b7 00 0e 0c 89 16 09 88 cd 87 22 20 5b 68	.......\"),)....=...........".[h
18c0	69 74 20 6c 6f 63 20 2a 6d 6f 75 73 65 2d 77 69 6e 64 6f 77 2a 20 2a 6d 6f 75 73 65 2d 78 2a 20	it.loc.*mouse-window*.*mouse-x*.
18e0	2a 6d 6f 75 73 65 2d 79 2a 20 6d 6f 75 73 65 2d 63 6f 64 65 20 66 6f 72 6d 20 53 74 61 72 74 42	*mouse-y*.mouse-code.form.StartB
1900	75 66 66 65 72 20 73 6d 3a 3a 55 70 42 69 74 73 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 2a 6d	uffer.sm::UpBits.this-command.*m
1920	6f 75 73 65 2d 68 65 6c 70 2a 20 74 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 73 6d	ouse-help*.t.last-command.nil.sm
1940	3a 3a 63 6f 6d 62 69 6e 65 64 2d 68 69 74 73 20 73 6d 3a 3a 77 69 6e 64 6f 77 2d 78 79 20 31 20	::combined-hits.sm::window-xy.1.
1960	32 20 30 20 6d 6f 75 73 65 2d 65 76 65 6e 74 2d 63 6f 64 65 20 28 28 62 79 74 65 2d 63 6f 64 65	2.0.mouse-event-code.((byte-code
1980	20 22 08 71 87 22 20 5b 53 74 61 72 74 42 75 66 66 65 72 5d 20 31 29 29 20 77 69 6e 64 6f 77 2d	.".q.".[StartBuffer].1)).window-
19a0	62 75 66 66 65 72 20 6d 6f 75 73 65 2d 6c 6f 6f 6b 75 70 20 7a 65 72 6f 70 20 6c 6f 67 61 6e 64	buffer.mouse-lookup.zerop.logand
19c0	20 65 72 72 6f 72 20 22 55 6e 64 65 66 69 6e 65 64 20 6d 6f 75 73 65 20 65 76 65 6e 74 3a 20 25	.error."Undefined.mouse.event:.%
19e0	73 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 6f 75 73 65 2d 63 6f 64 65 2d 74 6f	s".prin1-to-string.mouse-code-to
1a00	2d 6d 6f 75 73 65 2d 6c 69 73 74 20 70 72 69 6e 31 20 65 78 69 74 2d 72 65 63 75 72 73 69 76 65	-mouse-list.prin1.exit-recursive
1a20	2d 65 64 69 74 20 66 75 6e 63 61 6c 6c 20 65 76 61 6c 20 22 4d 6f 75 73 65 20 61 63 74 69 6f 6e	-edit.funcall.eval."Mouse.action
1a40	20 6d 75 73 74 20 62 65 20 73 79 6d 62 6f 6c 20 6f 72 20 6c 69 73 74 2c 20 62 75 74 20 77 61 73	.must.be.symbol.or.list,.but.was
1a60	3a 20 25 73 22 20 73 75 6e 2d 6d 6f 75 73 65 2d 68 61 6e 64 6c 65 72 5d 20 31 39 29 29 0a 0a 28	:.%s".sun-mouse-handler].19))..(
1a80	64 65 66 75 6e 20 6d 6f 75 73 65 2d 68 65 6c 70 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76	defun.mouse-help.nil.(interactiv
1aa0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c1 18 c3 20 29 87 22 20 5b 2a 6d 6f 75 73 65	e).(byte-code."......).".[*mouse
1ac0	2d 68 65 6c 70 2a 20 74 20 6e 69 6c 20 72 65 63 75 72 73 69 76 65 2d 65 64 69 74 5d 20 32 29 29	-help*.t.nil.recursive-edit].2))
1ae0	0a 0a 28 64 65 66 75 6e 20 73 6d 3a 3a 63 6f 6d 62 69 6e 65 64 2d 68 69 74 73 20 6e 69 6c 20 22	..(defun.sm::combined-hits.nil."
1b00	5c 0a 52 65 61 64 20 61 6e 64 20 72 65 74 75 72 6e 20 6e 65 78 74 20 6d 6f 75 73 65 2d 68 69 74	\.Read.and.return.next.mouse-hit
1b20	2c 20 69 6e 63 6c 75 64 65 20 70 6f 73 73 69 62 6c 65 20 64 6f 75 62 6c 65 20 63 6c 69 63 6b 22	,.include.possible.double.click"
1b40	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 20 18 c7 c8 09 c9 08 38 5c 22 21 3f 3f 85 39 00 ca 0b	.(byte-code."........8\"!??.9...
1b60	21 1a 0a 85 38 00 cb 08 cc c9 08 38 c9 0a 38 c8 0c c9 08 38 5c 22 c8 0c c9 0a 38 5c 22 55 83 35	!...8......8..8....8\"....8\"U.5
1b80	00 0d 82 36 00 c9 23 5c 22 29 88 08 29 87 22 20 5b 68 69 74 31 20 73 6d 3a 3a 55 70 42 69 74 73	...6..#\")..).".[hit1.sm::UpBits
1ba0	20 68 69 74 32 20 65 78 74 72 61 2d 63 6c 69 63 6b 2d 77 61 69 74 20 73 6d 3a 3a 42 75 74 74 6f	.hit2.extra-click-wait.sm::Butto
1bc0	6e 42 69 74 73 20 73 6d 3a 3a 44 6f 75 62 6c 65 42 69 74 73 20 6d 6f 75 73 65 2d 68 69 74 2d 72	nBits.sm::DoubleBits.mouse-hit-r
1be0	65 61 64 20 7a 65 72 6f 70 20 6c 6f 67 61 6e 64 20 30 20 6d 6f 75 73 65 2d 73 65 63 6f 6e 64 2d	ead.zerop.logand.0.mouse-second-
1c00	68 69 74 20 73 65 74 63 61 72 20 6c 6f 67 69 6f 72 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20	hit.setcar.logior].15))..(defun.
1c20	6d 6f 75 73 65 2d 68 69 74 2d 72 65 61 64 20 6e 69 6c 20 22 5c 0a 52 65 61 64 20 6d 6f 75 73 65	mouse-hit-read.nil."\.Read.mouse
1c40	2d 68 69 74 20 6c 69 73 74 20 66 72 6f 6d 20 6b 65 79 62 6f 61 72 64 2e 20 20 4c 69 6b 65 20 28	-hit.list.from.keyboard...Like.(
1c60	72 65 61 64 20 27 72 65 61 64 2d 63 68 61 72 29 2c 0a 62 75 74 20 74 68 61 74 20 75 73 65 73 20	read.'read-char),.but.that.uses.
1c80	6d 69 6e 69 62 75 66 66 65 72 2c 20 61 6e 64 20 6d 75 63 6b 73 20 75 70 20 6c 61 73 74 2d 63 6f	minibuffer,.and.mucks.up.last-co
1ca0	6d 6d 61 6e 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c1 1a 18 c3 c4 72 89 12 0a 08 42	mmand.".(byte-code."......r....B
1cc0	89 10 88 5c 22 3f 85 19 00 c1 88 82 04 00 88 c5 c6 c7 c8 08 21 c9 23 21 2a 87 22 20 5b 63 68 61	...\"?..............!.#!*.".[cha
1ce0	72 2d 6c 69 73 74 20 6e 69 6c 20 63 68 61 72 20 65 71 75 61 6c 20 31 33 20 72 65 61 64 20 6d 61	r-list.nil.char.equal.13.read.ma
1d00	70 63 6f 6e 63 61 74 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 72 65 76 65 72 73 65 20	pconcat.char-to-string.nreverse.
1d20	22 22 5d 20 37 29 29 0a 0a 28 64 65 66 76 61 72 20 6d 6f 75 73 65 2d 70 72 65 66 69 78 31 20 32	""].7))..(defvar.mouse-prefix1.2
1d40	34 20 22 5c 0a 46 69 72 73 74 20 63 68 61 72 20 6f 66 20 6d 6f 75 73 65 2d 70 72 65 66 69 78 2e	4."\.First.char.of.mouse-prefix.
1d60	20 20 55 73 65 64 20 74 6f 20 64 65 74 65 63 74 20 64 6f 75 62 6c 65 20 63 6c 69 63 6b 73 20 61	..Used.to.detect.double.clicks.a
1d80	6e 64 20 63 68 6f 72 64 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6d 6f 75 73 65 2d 70 72 65 66	nd.chords.")..(defvar.mouse-pref
1da0	69 78 32 20 30 20 22 5c 0a 53 65 63 6f 6e 64 20 63 68 61 72 20 6f 66 20 6d 6f 75 73 65 2d 70 72	ix2.0."\.Second.char.of.mouse-pr
1dc0	65 66 69 78 2e 20 20 55 73 65 64 20 74 6f 20 64 65 74 65 63 74 20 64 6f 75 62 6c 65 20 63 6c 69	efix...Used.to.detect.double.cli
1de0	63 6b 73 20 61 6e 64 20 63 68 6f 72 64 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d	cks.and.chords.")..(defun.mouse-
1e00	73 65 63 6f 6e 64 2d 68 69 74 20 28 68 69 74 2d 77 61 69 74 29 20 22 5c 0a 52 65 74 75 72 6e 73	second-hit.(hit-wait)."\.Returns
1e20	20 74 68 65 20 6e 65 78 74 20 6d 6f 75 73 65 20 68 69 74 20 6f 63 63 75 72 72 69 6e 67 20 77 69	.the.next.mouse.hit.occurring.wi
1e40	74 68 69 6e 20 48 49 54 2d 57 41 49 54 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 2e 22 20 28 62 79	thin.HIT-WAIT.milliseconds.".(by
1e60	74 65 2d 63 6f 64 65 20 22 c9 08 21 83 0a 00 c1 82 5a 00 72 1a ca 0a 0b 5c 22 3f 86 17 00 c9 cb	te-code."..!.....Z.r....\"?.....
1e80	21 83 5c 22 00 0a 89 14 88 c1 82 59 00 72 1d ca 0d 0e 06 5c 22 3f 83 38 00 0a 89 14 88 cc 20 88	!.\".......Y.r.....\"?.8........
1ea0	c1 82 58 00 cd 20 1e 07 ce cf 0e 08 d0 0e 07 38 5c 22 21 3f 83 55 00 d1 08 cb 0e 07 38 5a 21 82	..X............8\"!?.U......8Z!.
1ec0	57 00 0e 07 29 29 29 87 22 20 5b 68 69 74 2d 77 61 69 74 20 6e 69 6c 20 70 63 31 20 6d 6f 75 73	W...))).".[hit-wait.nil.pc1.mous
1ee0	65 2d 70 72 65 66 69 78 31 20 75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 70 63	e-prefix1.unread-command-char.pc
1f00	32 20 6d 6f 75 73 65 2d 70 72 65 66 69 78 32 20 6e 65 77 2d 68 69 74 20 73 6d 3a 3a 55 70 42 69	2.mouse-prefix2.new-hit.sm::UpBi
1f20	74 73 20 73 69 74 2d 66 6f 72 2d 6d 69 6c 6c 69 73 65 63 73 20 65 71 75 61 6c 20 33 20 64 69 6e	ts.sit-for-millisecs.equal.3.din
1f40	67 20 6d 6f 75 73 65 2d 68 69 74 2d 72 65 61 64 20 7a 65 72 6f 70 20 6c 6f 67 61 6e 64 20 30 20	g.mouse-hit-read.zerop.logand.0.
1f60	6d 6f 75 73 65 2d 73 65 63 6f 6e 64 2d 68 69 74 5d 20 31 32 29 29 0a 0a 28 64 65 66 75 6e 20 73	mouse-second-hit].12))..(defun.s
1f80	6d 3a 3a 77 69 6e 64 6f 77 2d 78 79 20 28 78 20 79 29 20 22 5c 0a 46 69 6e 64 20 77 69 6e 64 6f	m::window-xy.(x.y)."\.Find.windo
1fa0	77 20 63 6f 6e 74 61 69 6e 69 6e 67 20 73 63 72 65 65 6e 20 63 6f 6f 72 64 69 6e 61 74 65 73 20	w.containing.screen.coordinates.
1fc0	58 20 61 6e 64 20 59 2e 0a 52 65 74 75 72 6e 73 20 6c 69 73 74 20 28 77 69 6e 64 6f 77 20 78 20	X.and.Y..Returns.list.(window.x.
1fe0	79 29 20 77 68 65 72 65 20 78 20 61 6e 64 20 79 20 61 72 65 20 72 65 6c 61 74 69 76 65 20 74 6f	y).where.x.and.y.are.relative.to
2000	20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 8d 86 0a 00 c0 09 0a 45	.window.".(byte-code.".........E
2020	87 22 20 5b 6e 69 6c 20 78 20 79 20 66 6f 75 6e 64 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca 20	.".[nil.x.y.found.(byte-code."..
2040	18 cb 8e cc ca 20 21 19 cd 09 38 ce 09 38 cf 09 38 d0 09 38 1d 1c 1b 1a 0c d1 20 55 85 25 00 0c	......!...8..8..8..8.......U.%..
2060	54 89 14 88 0d d2 20 55 85 31 00 0d 54 89 15 88 0e 06 0a 59 85 4b 00 0e 06 0c 57 85 4b 00 0e 07	T......U.1..T......Y.K....W.K...
2080	0b 59 85 4b 00 0e 07 0d 57 85 5c 5c 00 d3 d4 ca 20 0e 06 0a 5a 0e 07 0b 5a 45 5c 22 2c 29 88 08	.Y.K....W.\\........Z...ZE\",)..
20a0	d5 d6 c8 c9 5c 22 21 3d 3f 85 70 00 c8 88 82 05 00 29 29 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c	....\"!=?.p......)).".[Originall
20c0	79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20 77 65 20 6c 65 20 74 65 20 72 65 20 62 65 20 78	ySelectedWindow.we.le.te.re.be.x
20e0	20 79 20 6e 69 6c 20 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 28 62 79 74 65 2d	.y.nil.t.selected-window.((byte-
2100	63 6f 64 65 20 22 c1 08 21 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57	code."..!.".[OriginallySelectedW
2120	69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 5d 20 32 29 29 20 77 69 6e 64 6f 77 2d	indow.select-window].2)).window-
2140	65 64 67 65 73 20 30 20 31 20 32 20 33 20 73 63 72 65 65 6e 2d 77 69 64 74 68 20 73 63 72 65 65	edges.0.1.2.3.screen-width.scree
2160	6e 2d 68 65 69 67 68 74 20 74 68 72 6f 77 20 66 6f 75 6e 64 20 73 65 6c 65 63 74 2d 77 69 6e 64	n-height.throw.found.select-wind
2180	6f 77 20 6e 65 78 74 2d 77 69 6e 64 6f 77 5d 20 31 32 29 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e	ow.next-window].12)].3))..(defun
21a0	20 73 6d 3a 3a 77 69 6e 64 6f 77 2d 72 65 67 69 6f 6e 20 28 6c 6f 63 29 20 22 5c 0a 50 61 72 73	.sm::window-region.(loc)."\.Pars
21c0	65 20 4c 4f 43 20 69 6e 74 6f 20 61 20 72 65 67 69 6f 6e 20 73 79 6d 62 6f 6c 2e 0a 52 65 74 75	e.LOC.into.a.region.symbol..Retu
21e0	72 6e 73 20 6f 6e 65 20 6f 66 20 28 74 65 78 74 20 73 63 72 6f 6c 6c 62 61 72 20 6d 6f 64 65 6c	rns.one.of.(text.scrollbar.model
2200	69 6e 65 20 6d 69 6e 69 62 75 66 66 65 72 29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 09 38	ine.minibuffer)".(byte-code."..8
2220	c9 09 38 ca 09 38 1b 1a 18 cb 08 21 53 cc 08 21 53 1d 1c cd 08 21 83 20 00 ce 82 53 00 0b 0d 59	..8..8.....!S..!S....!.....S...Y
2240	83 2a 00 cf 82 53 00 0a 0c 59 83 34 00 d0 82 53 00 0e 06 85 4b 00 0a 0c 0e 06 5a 59 85 4b 00 0a	.*...S...Y.4...S....K.....ZY.K..
2260	ca d1 08 0a 0b 23 5c 5c 59 83 52 00 d0 82 53 00 d2 2a 2b 87 22 20 5b 77 20 6c 6f 63 20 78 20 79	.....#\\Y.R...S..*+.".[w.loc.x.y
2280	20 72 69 67 68 74 20 62 6f 74 74 6f 6d 20 73 63 72 6f 6c 6c 62 61 72 2d 77 69 64 74 68 20 74 20	.right.bottom.scrollbar-width.t.
22a0	30 20 31 20 32 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74	0.1.2.window-width.window-height
22c0	20 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 2d 70 20 6d 69 6e 69 62 75 66 66 65 72 20	.minibuffer-window-p.minibuffer.
22e0	6d 6f 64 65 6c 69 6e 65 20 73 63 72 6f 6c 6c 62 61 72 20 77 69 6e 64 6f 77 2d 6c 69 6e 65 2d 65	modeline.scrollbar.window-line-e
2300	6e 64 20 74 65 78 74 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 77 69 6e 64 6f 77 2d 6c 69 6e 65	nd.text].9))..(defun.window-line
2320	2d 65 6e 64 20 28 77 20 78 20 79 29 20 22 5c 0a 52 65 74 75 72 6e 20 57 49 4e 44 4f 57 20 63 6f	-end.(w.x.y)."\.Return.WINDOW.co
2340	6c 75 6d 6e 20 28 69 67 6e 6f 72 65 20 58 29 20 63 6f 6e 74 61 69 6e 69 6e 67 20 65 6e 64 20 6f	lumn.(ignore.X).containing.end.o
2360	66 20 6c 69 6e 65 20 59 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 20 18 c4 8e c5 09 21 88 8a	f.line.Y".(byte-code.".......!..
2380	c6 c7 20 0a 5c 22 29 29 29 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57	....\"))).".[OriginallySelectedW
23a0	69 6e 64 6f 77 20 77 20 79 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 28 62 79 74 65	indow.w.y.selected-window.((byte
23c0	2d 63 6f 64 65 20 22 c1 08 21 85 09 00 c2 08 21 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c 79 53 65	-code."..!.....!.".[OriginallySe
23e0	6c 65 63 74 65 64 57 69 6e 64 6f 77 20 77 69 6e 64 6f 77 2d 70 6f 69 6e 74 20 73 65 6c 65 63 74	lectedWindow.window-point.select
2400	2d 77 69 6e 64 6f 77 5d 20 33 29 29 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6d 6f 76 65 2d	-window].3)).select-window.move-
2420	74 6f 2d 6c 6f 63 20 73 63 72 65 65 6e 2d 77 69 64 74 68 5d 20 36 29 29 0a 0a 28 64 65 66 63 6f	to-loc.screen-width].6))..(defco
2440	6e 73 74 20 73 6d 3a 3a 6b 65 79 77 6f 72 64 2d 61 6c 69 73 74 20 28 71 75 6f 74 65 20 28 28 6c	nst.sm::keyword-alist.(quote.((l
2460	65 66 74 20 2e 20 31 29 20 28 6d 69 64 64 6c 65 20 2e 20 32 29 20 28 72 69 67 68 74 20 2e 20 34	eft...1).(middle...2).(right...4
2480	29 20 28 73 68 69 66 74 20 2e 20 38 29 20 28 63 6f 6e 74 72 6f 6c 20 2e 20 31 36 29 20 28 6d 65	).(shift...8).(control...16).(me
24a0	74 61 20 2e 20 33 32 29 20 28 64 6f 75 62 6c 65 20 2e 20 36 34 29 20 28 75 70 20 2e 20 31 32 38	ta...32).(double...64).(up...128
24c0	29 20 28 74 65 78 74 20 2e 20 32 35 36 29 20 28 73 63 72 6f 6c 6c 62 61 72 20 2e 20 35 31 32 29	).(text...256).(scrollbar...512)
24e0	20 28 6d 6f 64 65 6c 69 6e 65 20 2e 20 31 30 32 34 29 20 28 6d 69 6e 69 62 75 66 66 65 72 20 2e	.(modeline...1024).(minibuffer..
2500	20 32 30 34 38 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 65 76 65 6e 74 2d 63 6f	.2048))))..(defun.mouse-event-co
2520	64 65 20 28 68 69 74 20 6c 6f 63 29 20 22 5c 0a 4d 61 70 73 20 4d 4f 55 53 45 2d 48 49 54 20 61	de.(hit.loc)."\.Maps.MOUSE-HIT.a
2540	6e 64 20 4c 4f 43 20 69 6e 74 6f 20 61 20 6d 6f 75 73 65 2d 63 6f 64 65 2e 22 20 28 62 79 74 65	nd.LOC.into.a.mouse-code.".(byte
2560	2d 63 6f 64 65 20 22 c2 c3 08 38 c4 c5 09 21 21 5c 22 87 22 20 5b 68 69 74 20 6c 6f 63 20 6c 6f	-code."...8...!!\".".[hit.loc.lo
2580	67 69 6f 72 20 30 20 6d 6f 75 73 65 2d 72 65 67 69 6f 6e 2d 74 6f 2d 63 6f 64 65 20 73 6d 3a 3a	gior.0.mouse-region-to-code.sm::
25a0	77 69 6e 64 6f 77 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65	window-region].5))..(defun.mouse
25c0	2d 72 65 67 69 6f 6e 2d 74 6f 2d 63 6f 64 65 20 28 72 65 67 69 6f 6e 29 20 22 5c 0a 52 65 74 75	-region-to-code.(region)."\.Retu
25e0	72 6e 73 20 70 61 72 74 69 61 6c 20 6d 6f 75 73 65 2d 63 6f 64 65 20 66 6f 72 20 73 70 65 63 69	rns.partial.mouse-code.for.speci
2600	66 69 65 64 20 52 45 47 49 4f 4e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 41	fied.REGION.".(byte-code."...\"A
2620	87 22 20 5b 72 65 67 69 6f 6e 20 73 6d 3a 3a 6b 65 79 77 6f 72 64 2d 61 6c 69 73 74 20 61 73 73	.".[region.sm::keyword-alist.ass
2640	71 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6c 69 73 74 2d 74 6f 2d 6d 6f 75	q].3))..(defun.mouse-list-to-mou
2660	73 65 2d 63 6f 64 65 20 28 6d 6f 75 73 65 2d 6c 69 73 74 29 20 22 5c 0a 4d 61 70 20 61 20 4d 4f	se-code.(mouse-list)."\.Map.a.MO
2680	55 53 45 2d 4c 49 53 54 20 74 6f 20 61 20 6d 6f 75 73 65 2d 63 6f 64 65 2e 22 20 28 62 79 74 65	USE-LIST.to.a.mouse-code.".(byte
26a0	2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 5c 22 5c 22 87 22 20 5b 6d 6f 75 73 65 2d 6c 69 73 74 20 61	-code.".....\"\".".[mouse-list.a
26c0	70 70 6c 79 20 6c 6f 67 69 6f 72 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28	pply.logior.mapcar.(lambda.(x).(
26e0	62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 41 87 22 20 5b 78 20 73 6d 3a 3a 6b 65 79 77 6f	byte-code."...\"A.".[x.sm::keywo
2700	72 64 2d 61 6c 69 73 74 20 61 73 73 71 5d 20 33 29 29 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20	rd-alist.assq].3))].5))..(defun.
2720	6d 6f 75 73 65 2d 63 6f 64 65 2d 74 6f 2d 6d 6f 75 73 65 2d 6c 69 73 74 20 28 6d 6f 75 73 65 2d	mouse-code-to-mouse-list.(mouse-
2740	63 6f 64 65 29 20 22 5c 0a 4d 61 70 20 61 20 4d 4f 55 53 45 2d 43 4f 44 45 20 74 6f 20 61 20 6d	code)."\.Map.a.MOUSE-CODE.to.a.m
2760	6f 75 73 65 2d 6c 69 73 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 5c 22 5c	ouse-list.".(byte-code.".....\"\
2780	22 87 22 20 5b 73 6d 3a 3a 6b 65 79 77 6f 72 64 2d 61 6c 69 73 74 20 61 70 70 6c 79 20 6e 63 6f	".".[sm::keyword-alist.apply.nco
27a0	6e 63 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65	nc.mapcar.(lambda.(x).(byte-code
27c0	20 22 c2 08 09 41 5c 22 85 0b 00 09 40 43 87 22 20 5b 6d 6f 75 73 65 2d 63 6f 64 65 20 78 20 6c	."...A\"....@C.".[mouse-code.x.l
27e0	6f 67 74 65 73 74 5d 20 33 29 29 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 6d 61	ogtest].3))].5))..(defun.mousema
2800	70 2d 73 65 74 20 28 63 6f 64 65 20 6d 6f 75 73 65 6d 61 70 20 76 61 6c 75 65 29 20 28 62 79 74	p-set.(code.mousemap.value).(byt
2820	65 2d 63 6f 64 65 20 22 09 41 18 c5 0b 08 5c 22 1a 0a 83 13 00 c6 0a 0c 5c 22 82 1b 00 c6 09 0b	e-code.".A....\"........\"......
2840	0c 42 08 42 5c 22 2a 87 22 20 5b 61 6c 69 73 74 20 6d 6f 75 73 65 6d 61 70 20 61 73 73 71 2d 72	.B.B\"*.".[alist.mousemap.assq-r
2860	65 73 75 6c 74 20 63 6f 64 65 20 76 61 6c 75 65 20 61 73 73 71 20 73 65 74 63 64 72 5d 20 36 29	esult.code.value.assq.setcdr].6)
2880	29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 6d 61 70 2d 67 65 74 20 28 63 6f 64 65 20 6d 6f 75	)..(defun.mousemap-get.(code.mou
28a0	73 65 6d 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 41 5c 22 41 87 22 20 5b 63 6f	semap).(byte-code."...A\"A.".[co
28c0	64 65 20 6d 6f 75 73 65 6d 61 70 20 61 73 73 71 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f	de.mousemap.assq].3))..(defun.mo
28e0	75 73 65 2d 6c 6f 6f 6b 75 70 20 28 6d 6f 75 73 65 2d 63 6f 64 65 29 20 22 5c 0a 4c 6f 6f 6b 20	use-lookup.(mouse-code)."\.Look.
2900	75 70 20 4d 4f 55 53 45 2d 45 56 45 4e 54 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 64 65	up.MOUSE-EVENT.and.return.the.de
2920	66 69 6e 69 74 69 6f 6e 2e 20 6e 69 6c 20 6d 65 61 6e 73 20 75 6e 64 65 66 69 6e 65 64 2e 22 20	finition..nil.means.undefined.".
2940	28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 5c 22 86 0b 00 c3 08 0a 5c 22 87 22 20 5b 6d 6f 75	(byte-code."...\"......\".".[mou
2960	73 65 2d 63 6f 64 65 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 63	se-code.current-local-mousemap.c
2980	75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 6d 61 70 2d	urrent-global-mousemap.mousemap-
29a0	67 65 74 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6d 61 73 6b 2d 6c 6f 6f 6b	get].4))..(defun.mouse-mask-look
29c0	75 70 20 28 6d 61 73 6b 20 6c 69 73 74 29 20 22 5c 0a 41 72 67 73 20 4d 41 53 4b 20 28 61 20 62	up.(mask.list)."\.Args.MASK.(a.b
29e0	69 74 20 6d 61 73 6b 29 20 61 6e 64 20 4c 49 53 54 20 28 61 20 6c 69 73 74 20 6f 66 20 28 63 6f	it.mask).and.LIST.(a.list.of.(co
2a00	64 65 20 2e 20 66 6f 72 6d 29 20 70 61 69 72 73 29 2e 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73	de...form).pairs)..Returns.a.lis
2a20	74 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 77 68 6f 73 65 20 63 6f 64 65	t.of.elements.of.LIST.whose.code
2a40	20 6f 72 27 65 64 20 77 69 74 68 20 4d 41 53 4b 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2e 22 20 28	.or'ed.with.MASK.is.non-zero.".(
2a60	62 79 74 65 2d 63 6f 64 65 20 22 c1 18 0a 85 1e 00 c4 0b 0a 40 40 5c 22 85 15 00 0a 40 08 42 89	byte-code.".........@@\"....@.B.
2a80	10 88 0a 41 89 12 88 82 02 00 88 08 29 87 22 20 5b 72 65 73 75 6c 74 20 6e 69 6c 20 6c 69 73 74	...A........).".[result.nil.list
2aa0	20 6d 61 73 6b 20 6c 6f 67 74 65 73 74 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65	.mask.logtest].4))..(defun.mouse
2ac0	2d 75 6e 69 6f 6e 20 28 6c 20 6c 2d 75 6e 69 71 75 65 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68	-union.(l.l-unique)."\.Return.th
2ae0	65 20 75 6e 69 6f 6e 20 6f 66 20 6c 69 73 74 20 6f 66 20 6d 6f 75 73 65 20 28 63 6f 64 65 20 2e	e.union.of.list.of.mouse.(code..
2b00	20 66 6f 72 6d 29 20 70 61 69 72 73 20 4c 20 61 6e 64 20 4c 2d 55 4e 49 51 55 45 2c 0a 77 68 65	.form).pairs.L.and.L-UNIQUE,.whe
2b20	72 65 20 4c 2d 55 4e 49 51 55 45 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 74 6f 20 62 65 20	re.L-UNIQUE.is.considered.to.be.
2b40	75 6e 69 6f 6e 27 69 7a 65 64 20 61 6c 72 65 61 64 79 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20	union'ized.already.".(byte-code.
2b60	22 09 18 0a 85 21 00 0a 40 1b c4 0b 40 08 5c 22 3f 85 17 00 0b 08 42 89 10 29 88 0a 41 89 12 88	"....!..@...@.\"?.....B..)..A...
2b80	82 02 00 88 08 29 87 22 20 5b 72 65 73 75 6c 74 20 6c 2d 75 6e 69 71 75 65 20 6c 20 63 6f 64 65	.....).".[result.l-unique.l.code
2ba0	2d 66 6f 72 6d 2d 70 61 69 72 20 61 73 73 71 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75	-form-pair.assq].4))..(defun.mou
2bc0	73 65 2d 75 6e 69 6f 6e 2d 66 69 72 73 74 2d 70 72 65 66 65 72 65 64 20 28 6c 31 20 6c 32 29 20	se-union-first-prefered.(l1.l2).
2be0	22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 75 6e 69 6f 6e 20 6f 66 20 6c 69 73 74 73 20 6f 66 20	"\.Return.the.union.of.lists.of.
2c00	6d 6f 75 73 65 20 28 63 6f 64 65 20 2e 20 66 6f 72 6d 29 20 70 61 69 72 73 20 4c 31 20 61 6e 64	mouse.(code...form).pairs.L1.and
2c20	20 4c 32 2c 0a 62 61 73 65 64 20 6f 6e 20 74 68 65 20 63 6f 64 65 27 73 2c 20 77 69 74 68 20 70	.L2,.based.on.the.code's,.with.p
2c40	72 65 66 65 72 65 6e 63 65 20 67 6f 69 6e 67 20 74 6f 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 4c	reference.going.to.elements.in.L
2c60	31 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 c3 09 c2 5c 22 5c 22 87 22 20 5b 6c 32 20	1.".(byte-code.".....\"\".".[l2.
2c80	6c 31 20 6e 69 6c 20 6d 6f 75 73 65 2d 75 6e 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20	l1.nil.mouse-union].5))..(defun.
2ca0	6d 6f 75 73 65 2d 63 6f 64 65 2d 66 75 6e 63 74 69 6f 6e 2d 70 61 69 72 73 2d 6f 66 2d 72 65 67	mouse-code-function-pairs-of-reg
2cc0	69 6f 6e 20 28 72 65 67 69 6f 6e 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66	ion.(region)."\.Return.a.list.of
2ce0	20 28 63 6f 64 65 20 2e 20 66 75 6e 63 74 69 6f 6e 29 20 70 61 69 72 73 2c 20 77 68 65 72 65 20	.(code...function).pairs,.where.
2d00	65 61 63 68 20 63 6f 64 65 20 69 73 0a 63 75 72 72 65 6e 74 6c 79 20 73 65 74 20 69 6e 20 74 68	each.code.is.currently.set.in.th
2d20	65 20 52 45 47 49 4f 4e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 09 21 18 c5 c6 08 0a 41	e.REGION.".(byte-code."..!.....A
2d40	5c 22 c6 08 0b 41 5c 22 5c 22 29 87 22 20 5b 6d 61 73 6b 20 72 65 67 69 6f 6e 20 63 75 72 72 65	\"...A\"\").".[mask.region.curre
2d60	6e 74 2d 6c 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c	nt-local-mousemap.current-global
2d80	2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 2d 72 65 67 69 6f 6e 2d 74 6f 2d 63 6f 64 65 20 6d	-mousemap.mouse-region-to-code.m
2da0	6f 75 73 65 2d 75 6e 69 6f 6e 2d 66 69 72 73 74 2d 70 72 65 66 65 72 65 64 20 6d 6f 75 73 65 2d	ouse-union-first-prefered.mouse-
2dc0	6d 61 73 6b 2d 6c 6f 6f 6b 75 70 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 6f 6e 65 2d 6c 69 6e	mask-lookup].7))..(defun.one-lin
2de0	65 2d 64 6f 63 2d 73 74 72 69 6e 67 20 28 66 75 6e 63 74 69 6f 6e 29 20 22 5c 0a 52 65 74 75 72	e-doc-string.(function)."\.Retur
2e00	6e 73 20 66 69 72 73 74 20 6c 69 6e 65 20 6f 66 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73	ns.first.line.of.documentation.s
2e20	74 72 69 6e 67 20 66 6f 72 20 46 55 4e 43 54 49 4f 4e 2e 0a 49 66 20 74 68 65 72 65 20 69 73 20	tring.for.FUNCTION..If.there.is.
2e40	6e 6f 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2c 20 74 68 65 6e 20 74 68	no.documentation.string,.then.th
2e60	65 20 73 74 72 69 6e 67 0a 5c 22 4e 6f 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 5c 22 20 69 73	e.string.\"No.documentation\".is
2e80	20 72 65 74 75 72 6e 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3a 85 0d 00 08 40 89	.returned.".(byte-code.".:....@.
2ea0	10 88 82 00 00 88 c2 08 21 19 09 3f 83 1b 00 c3 82 26 00 c4 c5 09 5c 22 88 09 c6 c7 c6 21 4f 29	........!..?.....&....\".....!O)
2ec0	87 22 20 5b 66 75 6e 63 74 69 6f 6e 20 64 6f 63 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22	.".[function.doc.documentation."
2ee0	4e 6f 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20	No.documentation.".string-match.
2f00	22 5e 2e 2a 24 22 20 30 20 6d 61 74 63 68 2d 65 6e 64 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20	"^.*$".0.match-end].6))..(defun.
2f20	70 72 69 6e 74 2d 6d 6f 75 73 65 2d 66 6f 72 6d 61 74 20 28 62 69 6e 64 69 6e 67 29 20 28 62 79	print-mouse-format.(binding).(by
2f40	74 65 2d 63 6f 64 65 20 22 c1 08 40 21 88 c1 c2 21 88 c3 c4 08 41 5c 22 88 c5 20 88 c1 c6 21 88	te-code."..@!...!....A\"......!.
2f60	c1 c7 08 40 21 21 88 c5 20 87 22 20 5b 62 69 6e 64 69 6e 67 20 70 72 69 6e 63 20 22 3a 20 22 20	...@!!....".[binding.princ.":.".
2f80	6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6d 6f 75 73 65 2d 6c 69 73 74 29 20 28 62 79 74	mapcar.(lambda.(mouse-list).(byt
2fa0	65 2d 63 6f 64 65 20 22 c1 08 21 88 c1 c2 21 87 22 20 5b 6d 6f 75 73 65 2d 6c 69 73 74 20 70 72	e-code."..!...!.".[mouse-list.pr
2fc0	69 6e 63 20 22 20 22 5d 20 33 29 29 20 74 65 72 70 72 69 20 22 20 20 22 20 6f 6e 65 2d 6c 69 6e	inc."."].3)).terpri."..".one-lin
2fe0	65 2d 64 6f 63 2d 73 74 72 69 6e 67 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d	e-doc-string].9))..(defun.print-
3000	6d 6f 75 73 65 2d 62 69 6e 64 69 6e 67 73 20 28 72 65 67 69 6f 6e 29 20 22 5c 0a 50 72 69 6e 74	mouse-bindings.(region)."\.Print
3020	73 20 6d 6f 75 73 65 2d 65 76 65 6e 74 20 62 69 6e 64 69 6e 67 73 20 66 6f 72 20 52 45 47 49 4f	s.mouse-event.bindings.for.REGIO
3040	4e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 08 21 5c 22 87 22 20 5b 72 65 67 69 6f	N.".(byte-code."....!\".".[regio
3060	6e 20 6d 61 70 63 61 72 20 70 72 69 6e 74 2d 6d 6f 75 73 65 2d 66 6f 72 6d 61 74 20 73 6d 3a 3a	n.mapcar.print-mouse-format.sm::
3080	65 76 65 6e 74 2d 62 69 6e 64 69 6e 67 73 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 6d 3a 3a	event-bindings].4))..(defun.sm::
30a0	65 76 65 6e 74 2d 62 69 6e 64 69 6e 67 73 20 28 72 65 67 69 6f 6e 29 20 22 5c 0a 52 65 74 75 72	event-bindings.(region)."\.Retur
30c0	6e 73 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 28 66 75 6e 63 74 69 6f 6e 20 2e 20 28 6d 6f 75 73	ns.an.alist.of.(function...(mous
30e0	65 2d 6c 69 73 74 31 20 2e 2e 2e 20 6d 6f 75 73 65 2d 6c 69 73 74 4e 29 29 20 66 6f 72 20 52 45	e-list1.....mouse-listN)).for.RE
3100	47 49 4f 4e 2c 0a 77 68 65 72 65 20 65 61 63 68 20 6d 6f 75 73 65 2d 6c 69 73 74 20 69 73 20 62	GION,.where.each.mouse-list.is.b
3120	6f 75 6e 64 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 6e 20 52 45 47 49 4f 4e 2e 22	ound.to.the.function.in.REGION."
3140	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 09 21 c3 1a 18 08 85 3a 00 08 40 1c c7 0c 41 0a 5c 22	.(byte-code."..!.....:..@...A.\"
3160	1d 0d 83 24 00 c8 0d c9 0c 40 21 0d 41 42 5c 22 82 30 00 0c 41 c9 0c 40 21 43 42 0a 42 89 12 2a	...$.....@!.AB\".0..A..@!CB.B..*
3180	88 08 41 89 10 88 82 06 00 88 0a 2a 87 22 20 5b 6d 6f 75 73 65 2d 62 69 6e 64 69 6e 67 73 20 72	..A........*.".[mouse-bindings.r
31a0	65 67 69 6f 6e 20 72 65 73 75 6c 74 20 6e 69 6c 20 63 6f 64 65 2d 66 75 6e 63 74 69 6f 6e 2d 70	egion.result.nil.code-function-p
31c0	61 69 72 20 63 75 72 72 65 6e 74 2d 65 6e 74 72 79 20 6d 6f 75 73 65 2d 63 6f 64 65 2d 66 75 6e	air.current-entry.mouse-code-fun
31e0	63 74 69 6f 6e 2d 70 61 69 72 73 2d 6f 66 2d 72 65 67 69 6f 6e 20 61 73 73 6f 63 20 73 65 74 63	ction-pairs-of-region.assoc.setc
3200	64 72 20 6d 6f 75 73 65 2d 63 6f 64 65 2d 74 6f 2d 6d 6f 75 73 65 2d 6c 69 73 74 5d 20 38 29 29	dr.mouse-code-to-mouse-list].8))
3220	0a 0a 28 64 65 66 75 6e 20 64 65 73 63 72 69 62 65 2d 6d 6f 75 73 65 2d 62 69 6e 64 69 6e 67 73	..(defun.describe-mouse-bindings
3240	20 6e 69 6c 20 22 5c 0a 4c 69 73 74 73 20 61 6c 6c 20 63 75 72 72 65 6e 74 20 6d 6f 75 73 65 2d	.nil."\.Lists.all.current.mouse-
3260	65 76 65 6e 74 20 62 69 6e 64 69 6e 67 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28	event.bindings.".(interactive).(
3280	62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 90 c2 c3 21 88 c4 20 88 c2 c5 21 88 c4 20 88 c6 c7 21	byte-code."......!......!......!
32a0	88 c4 20 88 c2 c8 21 88 c4 20 88 c2 c9 21 88 c4 20 88 c6 ca 21 88 c4 20 88 c2 cb 21 88 c4 20 88	......!......!......!......!....
32c0	c2 cc 21 88 c4 20 88 c6 cd 21 91 87 22 20 5b 6e 69 6c 20 22 2a 48 65 6c 70 2a 22 20 70 72 69 6e	..!......!..".[nil."*Help*".prin
32e0	63 20 22 54 65 78 74 20 52 65 67 69 6f 6e 22 20 74 65 72 70 72 69 20 22 2d 2d 2d 2d 20 2d 2d 2d	c."Text.Region".terpri."----.---
3300	2d 2d 2d 22 20 70 72 69 6e 74 2d 6d 6f 75 73 65 2d 62 69 6e 64 69 6e 67 73 20 74 65 78 74 20 22	---".print-mouse-bindings.text."
3320	4d 6f 64 65 6c 69 6e 65 20 52 65 67 69 6f 6e 22 20 22 2d 2d 2d 2d 2d 2d 2d 2d 20 2d 2d 2d 2d 2d	Modeline.Region"."--------.-----
3340	2d 22 20 6d 6f 64 65 6c 69 6e 65 20 22 53 63 72 6f 6c 6c 62 61 72 20 52 65 67 69 6f 6e 22 20 22	-".modeline."Scrollbar.Region"."
3360	2d 2d 2d 2d 2d 2d 2d 2d 2d 20 2d 2d 2d 2d 2d 2d 22 20 73 63 72 6f 6c 6c 62 61 72 5d 20 31 39 29	---------.------".scrollbar].19)
3380	29 0a 0a 28 64 65 66 75 6e 20 64 65 73 63 72 69 62 65 2d 6d 6f 75 73 65 2d 62 72 69 65 66 6c 79	)..(defun.describe-mouse-briefly
33a0	20 28 6d 6f 75 73 65 2d 6c 69 73 74 29 20 22 5c 0a 50 72 69 6e 74 20 61 20 73 68 6f 72 74 20 64	.(mouse-list)."\.Print.a.short.d
33c0	65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 62 6f 75 6e 64	escription.of.the.function.bound
33e0	20 74 6f 20 4d 4f 55 53 45 2d 4c 49 53 54 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 78	.to.MOUSE-LIST.".(interactive."x
3400	44 65 73 63 69 62 65 20 6d 6f 75 73 65 20 6c 69 73 74 20 62 72 69 65 66 6c 79 3a 20 22 29 20 28	Descibe.mouse.list.briefly:.").(
3420	62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 09 21 21 18 08 83 14 00 c5 c6 09 08 23 82 18 00 c5	byte-code.".....!!.........#....
3440	c7 09 5c 22 29 87 22 20 5b 66 75 6e 63 74 69 6f 6e 20 6d 6f 75 73 65 2d 6c 69 73 74 20 6e 69 6c	..\").".[function.mouse-list.nil
3460	20 6d 6f 75 73 65 2d 6c 6f 6f 6b 75 70 20 6d 6f 75 73 65 2d 6c 69 73 74 2d 74 6f 2d 6d 6f 75 73	.mouse-lookup.mouse-list-to-mous
3480	65 2d 63 6f 64 65 20 6d 65 73 73 61 67 65 20 22 25 73 20 72 75 6e 73 20 74 68 65 20 63 6f 6d 6d	e-code.message."%s.runs.the.comm
34a0	61 6e 64 20 25 73 22 20 22 25 73 20 69 73 20 75 6e 64 65 66 69 6e 65 64 22 5d 20 36 29 29 0a 0a	and.%s"."%s.is.undefined"].6))..
34c0	28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 68 65 6c 70 2d 6d 65 6e 75 20 28 66 75 6e 63 74 69 6f 6e	(defun.mouse-help-menu.(function
34e0	2d 61 6e 64 2d 62 69 6e 64 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 40 21 c2 c3	-and-binding).(byte-code."..@!..
3500	08 40 21 43 c1 08 41 21 43 44 21 42 87 22 20 5b 66 75 6e 63 74 69 6f 6e 2d 61 6e 64 2d 62 69 6e	.@!C..A!CD!B.".[function-and-bin
3520	64 69 6e 67 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 65 6e 75 2d 63 72 65 61 74 65	ding.prin1-to-string.menu-create
3540	20 6f 6e 65 2d 6c 69 6e 65 2d 64 6f 63 2d 73 74 72 69 6e 67 5d 20 37 29 29 0a 0a 28 64 65 66 75	.one-line-doc-string].7))..(defu
3560	6e 20 6d 6f 75 73 65 2d 68 65 6c 70 2d 72 65 67 69 6f 6e 20 28 77 20 78 20 79 20 26 6f 70 74 69	n.mouse-help-region.(w.x.y.&opti
3580	6f 6e 61 6c 20 72 65 67 69 6f 6e 29 20 22 5c 0a 44 69 73 70 6c 61 79 73 20 61 20 6d 65 6e 75 20	onal.region)."\.Displays.a.menu.
35a0	6f 66 20 6d 6f 75 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 63 61 6c 6c 61 62 6c 65 20 69 6e 20 74	of.mouse.functions.callable.in.t
35c0	68 69 73 20 72 65 67 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 0a 00 c7 09 0a	his.region.".(byte-code.".......
35e0	0b 45 21 18 c8 c9 4b ca 08 21 5c 22 1c cb cc 08 21 43 0c 42 21 1d cd 09 ce 0b 0d 24 1e 06 cf 2c	.E!...K..!\"....!C.B!......$...,
3600	87 22 20 5b 72 65 67 69 6f 6e 20 77 20 78 20 79 20 6d 6c 69 73 74 20 6d 65 6e 75 20 69 74 65 6d	.".[region.w.x.y.mlist.menu.item
3620	20 73 6d 3a 3a 77 69 6e 64 6f 77 2d 72 65 67 69 6f 6e 20 6d 61 70 63 61 72 20 6d 6f 75 73 65 2d	.sm::window-region.mapcar.mouse-
3640	68 65 6c 70 2d 6d 65 6e 75 20 73 6d 3a 3a 65 76 65 6e 74 2d 62 69 6e 64 69 6e 67 73 20 6d 65 6e	help-menu.sm::event-bindings.men
3660	75 2d 63 72 65 61 74 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 75 6e 2d 6d 65 6e 75 2d 65 76	u-create.symbol-name.sun-menu-ev
3680	61 6c 75 61 74 65 20 30 20 6e 69 6c 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 6e 75 2d	aluate.0.nil].11))..(defun.menu-
36a0	63 72 65 61 74 65 20 28 69 74 65 6d 73 29 20 22 5c 0a 46 75 6e 63 74 69 6f 6e 61 6c 20 66 6f 72	create.(items)."\.Functional.for
36c0	6d 20 66 6f 72 20 64 65 66 6d 65 6e 75 2c 20 67 69 76 65 6e 20 61 20 6c 69 73 74 20 6f 66 20 49	m.for.defmenu,.given.a.list.of.I
36e0	54 45 4d 53 20 72 65 74 75 72 6e 73 20 61 20 6d 65 6e 75 2e 0a 45 61 63 68 20 49 54 45 4d 20 69	TEMS.returns.a.menu..Each.ITEM.i
3700	73 20 61 20 28 53 54 52 49 4e 47 20 2e 20 56 41 4c 55 45 29 20 70 61 69 72 2e 22 20 28 62 79 74	s.a.(STRING...VALUE).pair.".(byt
3720	65 2d 63 6f 64 65 20 22 c1 c2 08 5c 22 87 22 20 5b 69 74 65 6d 73 20 61 70 70 6c 79 20 76 65 63	e-code."...\".".[items.apply.vec
3740	74 6f 72 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 6d 65 6e 75 20 28 6d 65 6e	tor].3))..(defmacro.defmenu.(men
3760	75 20 26 72 65 73 74 20 69 74 65 6d 6c 69 73 74 29 20 22 44 65 66 69 6e 65 73 20 4d 45 4e 55 20	u.&rest.itemlist)."Defines.MENU.
3780	74 6f 20 62 65 20 61 20 6d 65 6e 75 2c 20 74 68 65 20 49 54 45 4d 53 20 61 72 65 20 28 53 54 52	to.be.a.menu,.the.ITEMS.are.(STR
37a0	49 4e 47 20 2e 20 56 41 4c 55 45 29 20 70 61 69 72 73 2e 0a 53 65 65 20 73 75 6e 2d 6d 65 6e 75	ING...VALUE).pairs..See.sun-menu
37c0	2d 65 76 61 6c 75 61 74 65 20 66 6f 72 20 69 6e 74 65 72 70 72 65 74 61 74 69 6f 6e 20 6f 66 20	-evaluate.for.interpretation.of.
37e0	49 54 45 4d 53 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 c3 c4 09 5c 22 45 87 22 20 5b	ITEMS.".(byte-code.".....\"E.".[
3800	6d 65 6e 75 20 69 74 65 6d 6c 69 73 74 20 64 65 66 63 6f 6e 73 74 20 66 75 6e 63 61 6c 6c 20 6d	menu.itemlist.defconst.funcall.m
3820	65 6e 75 2d 63 72 65 61 74 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 2d 6d 65 6e 75	enu-create].5))..(defun.sun-menu
3840	2d 65 76 61 6c 75 61 74 65 20 28 2a 6d 65 6e 75 2d 77 69 6e 64 6f 77 2a 20 2a 6d 65 6e 75 2d 78	-evaluate.(*menu-window*.*menu-x
3860	2a 20 2a 6d 65 6e 75 2d 79 2a 20 6d 65 6e 75 29 20 22 5c 0a 44 69 73 70 6c 61 79 20 61 20 70 6f	*.*menu-y*.menu)."\.Display.a.po
3880	70 2d 75 70 20 6d 65 6e 75 20 69 6e 20 57 49 4e 44 4f 57 20 61 74 20 58 20 59 20 61 6e 64 20 65	p-up.menu.in.WINDOW.at.X.Y.and.e
38a0	76 61 6c 75 61 74 65 20 73 65 6c 65 63 74 65 64 20 69 74 65 6d 0a 6f 66 20 4d 45 4e 55 2e 20 20	valuate.selected.item.of.MENU...
38c0	4d 45 4e 55 20 28 6f 72 20 69 74 73 20 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 29 20 73 68 6f 75 6c	MENU.(or.its.symbol-value).shoul
38e0	64 20 62 65 20 61 20 6d 65 6e 75 20 64 65 66 69 6e 65 64 20 62 79 20 64 65 66 6d 65 6e 75 2e 0a	d.be.a.menu.defined.by.defmenu..
3900	20 20 41 20 6d 65 6e 75 20 49 54 45 4d 20 69 73 20 61 20 28 53 54 52 49 4e 47 20 2e 20 46 4f 52	..A.menu.ITEM.is.a.(STRING...FOR
3920	4d 29 20 70 61 69 72 3b 0a 74 68 65 20 46 4f 52 4d 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74	M).pair;.the.FORM.associated.wit
3940	68 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 53 54 52 49 4e 47 20 69 73 20 65 76 61 6c 75 61 74	h.the.selected.STRING.is.evaluat
3960	65 64 2c 0a 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 76 61 6c 75 65 20 69 73 20 72	ed,.and.the.resulting.value.is.r
3980	65 74 75 72 6e 65 64 2e 20 20 47 65 6e 65 72 61 6c 6c 79 20 74 68 65 73 65 20 46 4f 52 4d 73 20	eturned...Generally.these.FORMs.
39a0	61 72 65 0a 65 76 61 6c 75 61 74 65 64 20 66 6f 72 20 74 68 65 69 72 20 73 69 64 65 2d 65 66 66	are.evaluated.for.their.side-eff
39c0	65 63 74 73 20 72 61 74 68 65 72 20 74 68 61 6e 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 0a 20	ects.rather.than.their.values...
39e0	20 49 66 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 66 6f 72 6d 20 69 73 20 61 20 6d 65 6e 75 20	.If.the.selected.form.is.a.menu.
3a00	6f 72 20 61 20 73 79 6d 62 6f 6c 20 77 68 6f 73 65 20 76 61 6c 75 65 20 69 73 20 61 20 6d 65 6e	or.a.symbol.whose.value.is.a.men
3a20	75 2c 20 0a 74 68 65 6e 20 69 74 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 61 6e 64 20 65 76 61	u,..then.it.is.displayed.and.eva
3a40	6c 75 61 74 65 64 20 61 73 20 61 20 70 75 6c 6c 72 69 67 68 74 20 6d 65 6e 75 20 69 74 65 6d 2e	luated.as.a.pullright.menu.item.
3a60	0a 20 20 49 66 20 74 68 65 20 74 68 65 20 46 4f 52 4d 20 6f 66 20 74 68 65 20 66 69 72 73 74 20	...If.the.the.FORM.of.the.first.
3a80	49 54 45 4d 20 69 73 20 6e 69 6c 2c 20 74 68 65 20 53 54 52 49 4e 47 20 6f 66 20 74 68 65 20 69	ITEM.is.nil,.the.STRING.of.the.i
3aa0	74 65 6d 0a 69 73 20 75 73 65 64 20 61 73 20 61 20 6c 61 62 65 6c 20 66 6f 72 20 74 68 65 20 6d	tem.is.used.as.a.label.for.the.m
3ac0	65 6e 75 2c 20 69 2e 65 2e 20 69 74 27 73 20 69 6e 76 65 72 74 65 64 20 61 6e 64 20 6e 6f 74 20	enu,.i.e..it's.inverted.and.not.
3ae0	73 65 6c 65 63 74 69 62 6c 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 85 09 00 08 4a	selectible.".(byte-code.".9....J
3b00	89 10 88 c4 c5 09 0a 0b c6 08 25 21 87 22 20 5b 6d 65 6e 75 20 2a 6d 65 6e 75 2d 77 69 6e 64 6f	..........%!.".[menu.*menu-windo
3b20	77 2a 20 2a 6d 65 6e 75 2d 78 2a 20 2a 6d 65 6e 75 2d 79 2a 20 65 76 61 6c 20 73 75 6e 2d 6d 65	w*.*menu-x*.*menu-y*.eval.sun-me
3b40	6e 75 2d 69 6e 74 65 72 6e 61 6c 20 34 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 2d 67	nu-internal.4].7))..(defun.sun-g
3b60	65 74 2d 66 72 61 6d 65 2d 64 61 74 61 20 28 63 6f 64 65 29 20 22 5c 0a 53 65 6e 64 73 20 74 68	et-frame-data.(code)."\.Sends.th
3b80	65 20 74 74 79 2d 73 75 62 2d 77 69 6e 64 6f 77 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65	e.tty-sub-window.escape.sequence
3ba0	20 43 4f 44 45 20 74 6f 20 74 65 72 6d 69 6e 61 6c 2c 0a 61 6e 64 20 72 65 74 75 72 6e 73 20 61	.CODE.to.terminal,.and.returns.a
3bc0	20 63 6f 6e 73 20 6f 66 20 74 68 65 20 74 77 6f 20 6e 75 6d 62 65 72 73 20 69 6e 20 72 65 74 75	.cons.of.the.two.numbers.in.retu
3be0	72 6e 65 64 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 2e 0a 54 68 61 74 20 69 73 20 69 74	rned.escape.sequence..That.is.it
3c00	20 72 65 74 75 72 6e 73 20 28 63 6f 6e 73 20 3c 63 61 72 3e 20 3c 63 64 72 3e 29 20 66 72 6f 6d	.returns.(cons.<car>.<cdr>).from
3c20	20 5c 22 5c 5c 45 5b 6e 3b 3c 63 61 72 3e 3b 3c 63 64 72 3e 74 5c 22 2e 20 0a 43 4f 44 45 20 76	.\"\\E[n;<car>;<cdr>t\"...CODE.v
3c40	61 6c 75 65 73 3a 20 31 33 20 3d 20 54 6f 6f 6c 2d 50 6f 73 69 74 69 6f 6e 2c 20 31 34 20 3d 20	alues:.13.=.Tool-Position,.14.=.
3c60	53 69 7a 65 2d 69 6e 2d 50 69 78 65 6c 73 2c 20 31 38 20 3d 20 53 69 7a 65 2d 69 6e 2d 43 68 61	Size-in-Pixels,.18.=.Size-in-Cha
3c80	72 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 c7 08 21 c8 51 21 88 c9 c9 c9 c9 1c 1b	rs.".(byte-code."....!.Q!.......
3ca0	1a 19 ca cb 72 89 11 5c 22 3f 85 24 00 09 0a 42 89 12 88 82 11 00 88 cc cd ce 0a 21 cf 23 89 12	....r..\"?.$...B...........!.#..
3cc0	88 d0 d1 0a 5c 22 88 0a d2 d3 21 54 d4 d3 21 4f 89 14 88 0a d4 d3 21 c9 4f 89 12 88 d0 d1 0a 5c	....\"....!T..!O......!.O......\
3ce0	22 88 0a d2 d3 21 54 d4 d3 21 4f 89 13 88 d5 0c 21 d5 0b 21 42 2c 87 22 20 5b 63 6f 64 65 20 63	"....!T..!O.....!..!B,.".[code.c
3d00	68 61 72 20 73 74 72 20 78 20 79 20 73 65 6e 64 2d 73 74 72 69 6e 67 2d 74 6f 2d 74 65 72 6d 69	har.str.x.y.send-string-to-termi
3d20	6e 61 6c 20 22 1b 5b 22 20 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 22 74 22 20 6e 69 6c 20 65	nal.".[".int-to-string."t".nil.e
3d40	71 75 61 6c 20 31 31 36 20 6d 61 70 63 6f 6e 63 61 74 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e	qual.116.mapconcat.char-to-strin
3d60	67 20 6e 72 65 76 65 72 73 65 20 22 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 3b 5b 30 2d	g.nreverse."".string-match.";[0-
3d80	39 5d 2a 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 6d 61 74 63 68 2d 65 6e 64	9]*".match-beginning.0.match-end
3da0	20 73 74 72 69 6e 67 2d 74 6f 2d 69 6e 74 5d 20 31 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 6d 3a	.string-to-int].16))..(defun.sm:
3dc0	3a 66 6f 6e 74 2d 73 69 7a 65 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 73 20 66 6f 6e 74 20 73	:font-size.nil."\.Returns.font.s
3de0	69 7a 65 20 69 6e 20 70 69 78 65 6c 73 3a 20 28 63 6f 6e 73 20 59 73 69 7a 65 20 58 73 69 7a 65	ize.in.pixels:.(cons.Ysize.Xsize
3e00	29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 c2 c4 21 19 18 c5 08 40 09 40 5c 22 c5 08	)".(byte-code."..!..!....@.@\"..
3e20	41 09 41 5c 22 42 2a 87 22 20 5b 70 69 78 20 63 68 72 20 73 75 6e 2d 67 65 74 2d 66 72 61 6d 65	A.A\"B*.".[pix.chr.sun-get-frame
3e40	2d 64 61 74 61 20 31 34 20 31 38 20 2f 5d 20 37 29 29 0a 0a 28 64 65 66 76 61 72 20 73 6d 3a 3a	-data.14.18./].7))..(defvar.sm::
3e60	6d 65 6e 75 2d 6b 6c 75 64 67 65 2d 78 20 6e 69 6c 20 22 5c 0a 43 61 63 68 65 64 20 66 72 61 6d	menu-kludge-x.nil."\.Cached.fram
3e80	65 2d 74 6f 2d 77 69 6e 64 6f 77 20 58 2d 4f 66 66 73 65 74 20 66 6f 72 20 73 6d 3a 3a 6d 65 6e	e-to-window.X-Offset.for.sm::men
3ea0	75 2d 6b 6c 75 64 67 65 22 29 0a 0a 28 64 65 66 76 61 72 20 73 6d 3a 3a 6d 65 6e 75 2d 6b 6c 75	u-kludge")..(defvar.sm::menu-klu
3ec0	64 67 65 2d 79 20 6e 69 6c 20 22 5c 0a 43 61 63 68 65 64 20 66 72 61 6d 65 2d 74 6f 2d 77 69 6e	dge-y.nil."\.Cached.frame-to-win
3ee0	64 6f 77 20 59 2d 4f 66 66 73 65 74 20 66 6f 72 20 73 6d 3a 3a 6d 65 6e 75 2d 6b 6c 75 64 67 65	dow.Y-Offset.for.sm::menu-kludge
3f00	22 29 0a 0a 28 64 65 66 75 6e 20 73 6d 3a 3a 6d 65 6e 75 2d 6b 6c 75 64 67 65 20 6e 69 6c 20 22	")..(defun.sm::menu-kludge.nil."
3f20	5c 0a 49 66 20 73 75 6e 66 6e 73 2e 63 20 75 73 65 73 20 3c 4d 65 6e 75 5f 42 61 73 65 5f 4b 6c	\.If.sunfns.c.uses.<Menu_Base_Kl
3f40	75 64 67 65 3e 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 20 62 65 20 68 65 72 65	udge>.this.function.must.be.here
3f60	21 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 10 00 c4 20 19 c5 09 40 5c 5c 10 c6 89 12 29	!".(byte-code.".........@\\....)
3f80	88 c7 c8 21 1b 0b 40 08 5c 5c 0b 41 0a 5c 5c 42 29 87 22 20 5b 73 6d 3a 3a 6d 65 6e 75 2d 6b 6c	...!..@.\\.A.\\B).".[sm::menu-kl
3fa0	75 64 67 65 2d 79 20 66 73 20 73 6d 3a 3a 6d 65 6e 75 2d 6b 6c 75 64 67 65 2d 78 20 77 6c 20 73	udge-y.fs.sm::menu-kludge-x.wl.s
3fc0	6d 3a 3a 66 6f 6e 74 2d 73 69 7a 65 20 38 20 34 20 73 75 6e 2d 67 65 74 2d 66 72 61 6d 65 2d 64	m::font-size.8.4.sun-get-frame-d
3fe0	61 74 61 20 31 33 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 76 69 65 77 2d 79 61 6e 6b	ata.13].5))..(defun.sunview-yank
4000	2d 73 74 75 66 66 20 6e 69 6c 20 22 5c 0a 53 65 74 20 6d 61 72 6b 20 61 6e 64 20 79 61 6e 6b 20	-stuff.nil."\.Set.mark.and.yank.
4020	74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 54 54 59 53	the.contents.of.the.current.TTYS
4040	57 20 60 53 54 55 46 46 27 20 73 65 6c 65 63 74 69 6f 6e 0a 69 6e 74 6f 20 74 68 65 20 63 75 72	W.`STUFF'.selection.into.the.cur
4060	72 65 6e 74 20 62 75 66 66 65 72 20 61 74 20 70 6f 69 6e 74 2e 20 20 54 68 65 20 53 54 55 46 46	rent.buffer.at.point...The.STUFF
4080	20 73 65 6c 65 63 74 69 6f 6e 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 63 75 72 72 65 6e 74 6c	.selection.contains.the.currentl
40a0	79 0a 6f 72 20 70 72 65 76 69 6f 75 73 6c 79 20 68 69 67 68 6c 69 67 68 74 65 64 20 74 65 78 74	y.or.previously.highlighted.text
40c0	20 66 72 6f 6d 20 61 20 54 54 59 53 57 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 22	.from.a.TTYSW.".(interactive."*"
40e0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c0 21 88 c2 c3 20 21 87 22 20 5b 6e 69 6c 20	).(byte-code."....!....!.".[nil.
4100	73 65 74 2d 6d 61 72 6b 2d 63 6f 6d 6d 61 6e 64 20 69 6e 73 65 72 74 2d 73 74 72 69 6e 67 20 73	set-mark-command.insert-string.s
4120	75 6e 2d 67 65 74 2d 73 65 6c 65 63 74 69 6f 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 64 69	un-get-selection].4))..(defun.di
4140	73 70 6c 61 79 2d 68 6f 73 74 20 6e 69 6c 20 22 5c 0a 45 78 74 72 61 63 74 20 3c 68 6f 73 74 3e	splay-host.nil."\.Extract.<host>
4160	20 66 72 6f 6d 20 44 49 53 50 4c 41 59 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62	.from.DISPLAY.environment.variab
4180	6c 65 2c 20 6f 72 20 72 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 6e 6f 74 20 73 70 65 63 69 66 69	le,.or.return.nil.if.not.specifi
41a0	65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 18 08 85 1d 00 c4 c5 08 5c 22 19 09	ed.".(byte-code."..!........\"..
41c0	85 1c 00 c6 09 21 3f 85 1c 00 08 c7 09 4f 29 29 87 22 20 5b 64 69 73 70 6c 61 79 20 63 6f 6c 6f	.....!?......O)).".[display.colo
41e0	6e 5f 61 74 20 67 65 74 65 6e 76 20 22 44 49 53 50 4c 41 59 22 20 73 74 72 69 6e 67 2d 6d 61 74	n_at.getenv."DISPLAY".string-mat
4200	63 68 20 22 3a 22 20 7a 65 72 6f 70 20 30 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 76	ch.":".zerop.0].6))..(defun.sunv
4220	69 65 77 2d 79 61 6e 6b 2d 63 6c 69 70 62 6f 61 72 64 20 6e 69 6c 20 22 5c 0a 53 65 74 20 6d 61	iew-yank-clipboard.nil."\.Set.ma
4240	72 6b 20 61 6e 64 20 79 61 6e 6b 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20	rk.and.yank.the.contents.of.the.
4260	53 75 6e 56 69 65 77 20 43 6c 69 70 62 6f 61 72 64 20 69 6e 74 6f 20 74 68 65 0a 63 75 72 72 65	SunView.Clipboard.into.the.curre
4280	6e 74 20 62 75 66 66 65 72 20 61 74 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	nt.buffer.at.point.".(interactiv
42a0	65 20 22 2a 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c3 c0 21 88 c4 20 19 09 83 1b 00	e."*").(byte-code."....!........
42c0	c5 c6 c0 c2 c2 c4 20 c7 c8 26 07 82 5c 22 00 c5 c7 c0 c2 c2 c8 25 29 87 22 20 5b 6e 69 6c 20 68	.........&..\".......%).".[nil.h
42e0	6f 73 74 20 74 20 73 65 74 2d 6d 61 72 6b 2d 63 6f 6d 6d 61 6e 64 20 64 69 73 70 6c 61 79 2d 68	ost.t.set-mark-command.display-h
4300	6f 73 74 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 72 73 68 22 20 22 67 65 74 5f 73 65 6c 65	ost.call-process."rsh"."get_sele
4320	63 74 69 6f 6e 22 20 22 33 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 76 69 65 77	ction"."3"].11))..(defun.sunview
4340	2d 79 61 6e 6b 2d 63 75 72 72 65 6e 74 2d 73 65 6c 65 63 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 53	-yank-current-selection.nil."\.S
4360	65 74 20 6d 61 72 6b 20 61 6e 64 20 79 61 6e 6b 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66	et.mark.and.yank.the.contents.of
4380	20 74 68 65 20 63 75 72 72 65 6e 74 20 53 75 6e 56 69 65 77 20 73 65 6c 65 63 74 69 6f 6e 0a 69	.the.current.SunView.selection.i
43a0	6e 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 74 20 70 6f 69 6e 74 2e 20 54 68 65	nto.current.buffer.at.point..The
43c0	20 63 75 72 72 65 6e 74 20 73 65 6c 65 63 74 69 6f 6e 20 69 73 20 74 68 65 20 63 75 72 72 65 6e	.current.selection.is.the.curren
43e0	74 6c 79 0a 68 69 67 68 6c 69 67 68 74 65 64 20 74 65 78 74 20 69 6e 20 65 69 74 68 65 72 20 61	tly.highlighted.text.in.either.a
4400	20 74 65 78 74 73 77 20 6f 72 20 61 20 74 74 79 73 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	.textsw.or.a.ttysw.".(interactiv
4420	65 20 22 2a 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c3 c0 21 88 c4 20 19 09 83 1a 00	e."*").(byte-code."....!........
4440	c5 c6 c0 c2 c2 c4 20 c7 26 06 82 20 00 c5 c7 c0 c2 c2 24 29 87 22 20 5b 6e 69 6c 20 68 6f 73 74	........&.........$).".[nil.host
4460	20 74 20 73 65 74 2d 6d 61 72 6b 2d 63 6f 6d 6d 61 6e 64 20 64 69 73 70 6c 61 79 2d 68 6f 73 74	.t.set-mark-command.display-host
4480	20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 72 73 68 22 20 22 67 65 74 5f 73 65 6c 65 63 74 69	.call-process."rsh"."get_selecti
44a0	6f 6e 22 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 76 69 65 77 2d 79 61 6e 6b 2d 61	on"].10))..(defun.sunview-yank-a
44c0	6e 79 2d 73 65 6c 65 63 74 69 6f 6e 20 28 61 72 67 29 20 22 5c 0a 59 61 6e 6b 20 6f 6e 65 20 6f	ny-selection.(arg)."\.Yank.one.o
44e0	66 20 74 68 65 20 73 75 6e 76 69 65 77 20 73 65 6c 65 63 74 69 6f 6e 73 3a 0a 77 69 74 68 20 6e	f.the.sunview.selections:.with.n
4500	6f 20 61 72 67 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 65 6c 65 63 74 69 6f 6e 3b 20 77 69	o.arg,.the.current.selection;.wi
4520	74 68 20 6d 69 6e 75 73 2d 6f 6e 6c 79 20 70 72 65 66 69 78 2c 20 74 68 65 20 63 6c 69 70 62 6f	th.minus-only.prefix,.the.clipbo
4540	61 72 64 3b 0a 77 69 74 68 20 61 6e 79 20 6f 74 68 65 72 20 61 72 67 2c 20 74 68 65 20 74 74 79	ard;.with.any.other.arg,.the.tty
4560	73 77 20 53 54 55 46 46 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 50 22 29 20 28 62	sw.STUFF.".(interactive."*P").(b
4580	79 74 65 2d 63 6f 64 65 20 22 c2 88 08 3f 83 0c 00 c3 20 82 19 00 08 c4 3d 83 17 00 c5 20 82 19	yte-code."...?..........=.......
45a0	00 c6 20 87 22 20 5b 61 72 67 20 74 20 6e 69 6c 20 73 75 6e 76 69 65 77 2d 79 61 6e 6b 2d 63 75	....".[arg.t.nil.sunview-yank-cu
45c0	72 72 65 6e 74 2d 73 65 6c 65 63 74 69 6f 6e 20 2d 20 73 75 6e 76 69 65 77 2d 79 61 6e 6b 2d 63	rrent-selection.-.sunview-yank-c
45e0	6c 69 70 62 6f 61 72 64 20 73 75 6e 76 69 65 77 2d 79 61 6e 6b 2d 73 74 75 66 66 5d 20 34 29 29	lipboard.sunview-yank-stuff].4))
4600	0a 0a 28 64 65 66 76 61 72 20 6f 77 73 65 6c 65 63 74 69 6f 6e 66 69 6c 65 78 20 6e 69 6c 20 22	..(defvar.owselectionfilex.nil."
4620	5c 0a 43 61 63 68 65 20 70 61 74 68 20 74 6f 20 74 74 79 73 77 20 73 65 6c 65 63 74 69 6f 6e 20	\.Cache.path.to.ttysw.selection.
4640	66 69 6c 65 20 28 61 20 6b 6c 75 64 67 65 21 29 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6f 77 73 65	file.(a.kludge!).")..(defun.owse
4660	6c 65 63 74 69 6f 6e 66 69 6c 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 26 00	lectionfile.nil.(byte-code."..&.
4680	c4 20 19 09 83 12 00 c5 09 c6 51 82 13 00 c6 1a c7 0a 21 83 20 00 0a 89 10 82 25 00 c8 c9 21 88	..........Q.......!.......%...!.
46a0	c3 2a 87 22 20 5b 6f 77 73 65 6c 65 63 74 69 6f 6e 66 69 6c 65 78 20 68 6f 73 74 20 66 69 6c 65	.*.".[owselectionfilex.host.file
46c0	78 20 6e 69 6c 20 64 69 73 70 6c 61 79 2d 68 6f 73 74 20 22 2f 6e 65 74 2f 22 20 22 2f 74 6d 70	x.nil.display-host."/net/"."/tmp
46e0	2f 74 74 79 73 65 6c 65 63 74 69 6f 6e 22 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 6d 65 73	/ttyselection".file-exists-p.mes
4700	73 61 67 65 20 22 6e 6f 20 54 54 59 53 57 20 73 65 6c 65 63 74 69 6f 6e 20 66 69 6c 65 22 5d 20	sage."no.TTYSW.selection.file"].
4720	34 29 29 0a 0a 28 64 65 66 75 6e 20 78 76 2d 79 61 6e 6b 2d 73 65 6c 65 63 74 69 6f 6e 20 6e 69	4))..(defun.xv-yank-selection.ni
4740	6c 20 22 5c 0a 53 65 74 20 6d 61 72 6b 20 61 6e 64 20 79 61 6e 6b 20 74 68 65 20 63 6f 6e 74 65	l."\.Set.mark.and.yank.the.conte
4760	6e 74 73 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 58 76 69 65 77 20 73 65 6c 65 63 74 69	nts.of.the.current.Xview.selecti
4780	6f 6e 0a 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 61 74 20 70 6f	on.into.the.current.buffer.at.po
47a0	69 6e 74 2e 20 20 54 68 65 20 53 54 55 46 46 20 73 65 6c 65 63 74 69 6f 6e 20 63 6f 6e 74 61 69	int...The.STUFF.selection.contai
47c0	6e 73 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 0a 6f 72 20 70 72 65 76 69 6f 75 73 6c 79 20 68	ns.the.currently.or.previously.h
47e0	69 67 68 6c 69 67 68 74 65 64 20 74 65 78 74 20 66 72 6f 6d 20 61 20 54 54 59 53 57 2e 22 20 28	ighlighted.text.from.a.TTYSW.".(
4800	69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1	interactive."*").(byte-code."...
4820	20 85 0e 00 c2 c1 20 21 88 c3 20 87 22 20 5b 6e 69 6c 20 6f 77 73 65 6c 65 63 74 69 6f 6e 66 69	.......!....".[nil.owselectionfi
4840	6c 65 20 69 6e 73 65 72 74 2d 66 69 6c 65 20 65 78 63 68 61 6e 67 65 2d 70 6f 69 6e 74 2d 61 6e	le.insert-file.exchange-point-an
4860	64 2d 6d 61 72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 78 76 2d 73 65 6c 65 63 74 2d 72 65	d-mark].5))..(defun.xv-select-re
4880	67 69 6f 6e 20 28 62 65 67 20 65 6e 64 29 20 22 5c 0a 53 65 74 20 74 68 65 20 54 54 59 53 57 20	gion.(beg.end)."\.Set.the.TTYSW.
48a0	73 65 6c 65 63 74 69 6f 6e 20 74 6f 20 74 68 65 20 72 65 67 69 6f 6e 20 69 6e 20 74 68 65 20 63	selection.to.the.region.in.the.c
48c0	75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22	urrent.buffer.".(interactive."r"
48e0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 20 85 0f 00 c4 08 09 c3 20 c2 c5 25 87 22 20	).(byte-code."..............%.".
4900	5b 62 65 67 20 65 6e 64 20 6e 69 6c 20 6f 77 73 65 6c 65 63 74 69 6f 6e 66 69 6c 65 20 77 72 69	[beg.end.nil.owselectionfile.wri
4920	74 65 2d 72 65 67 69 6f 6e 20 6e 6f 70 72 69 6e 74 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 73	te-region.noprint].8))..(defun.s
4940	75 6e 2d 79 61 6e 6b 2d 73 65 6c 65 63 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 53 65 74 20 6d 61 72	un-yank-selection.nil."\.Set.mar
4960	6b 20 61 6e 64 20 79 61 6e 6b 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 63	k.and.yank.the.contents.of.the.c
4980	75 72 72 65 6e 74 20 54 54 59 53 57 20 60 53 54 55 46 46 27 20 6f 72 20 58 76 69 65 77 20 73 65	urrent.TTYSW.`STUFF'.or.Xview.se
49a0	6c 65 63 74 69 6f 6e 0a 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20	lection.into.the.current.buffer.
49c0	61 74 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 2a 22 29 20 28 62 79	at.point.".(interactive."*").(by
49e0	74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 83 0d 00 c3 20 82 0f 00 c4 20 87 22 20 5b 6e 69 6c 20	te-code."....!...........".[nil.
4a00	67 65 74 65 6e 76 20 22 44 49 53 50 4c 41 59 22 20 78 76 2d 79 61 6e 6b 2d 73 65 6c 65 63 74 69	getenv."DISPLAY".xv-yank-selecti
4a20	6f 6e 20 73 75 6e 76 69 65 77 2d 79 61 6e 6b 2d 73 74 75 66 66 5d 20 34 29 29 0a 0a 28 64 65 66	on.sunview-yank-stuff].4))..(def
4a40	75 6e 20 73 75 6e 2d 73 65 6c 65 63 74 2d 72 65 67 69 6f 6e 20 28 62 65 67 20 65 6e 64 29 20 22	un.sun-select-region.(beg.end)."
4a60	5c 0a 53 65 74 20 74 68 65 20 54 54 59 53 57 20 27 53 54 55 46 46 27 20 6f 72 20 58 76 69 65 77	\.Set.the.TTYSW.'STUFF'.or.Xview
4a80	20 73 65 6c 65 63 74 69 6f 6e 20 74 6f 20 74 68 65 20 72 65 67 69 6f 6e 20 69 6e 20 74 68 65 20	.selection.to.the.region.in.the.
4aa0	63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72	current.buffer.".(interactive."r
4ac0	22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 c4 21 83 0f 00 c5 08 09 5c 22 82 15 00 c6	").(byte-code."....!......\"....
4ae0	c7 08 09 5c 22 21 87 22 20 5b 62 65 67 20 65 6e 64 20 6e 69 6c 20 67 65 74 65 6e 76 20 22 44 49	...\"!.".[beg.end.nil.getenv."DI
4b00	53 50 4c 41 59 22 20 78 76 2d 73 65 6c 65 63 74 2d 72 65 67 69 6f 6e 20 73 75 6e 2d 73 65 74 2d	SPLAY".xv-select-region.sun-set-
4b20	73 65 6c 65 63 74 69 6f 6e 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 5d 20 36 29 29 0a	selection.buffer-substring].6)).
4b40	0a 28 64 65 66 75 6e 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 74 6f 6f 6c 20 28 26 6f 70 74 69	.(defun.suspend-emacstool.(&opti
4b60	6f 6e 61 6c 20 73 74 75 66 66 73 74 72 69 6e 67 29 20 22 5c 0a 49 66 20 72 75 6e 6e 69 6e 67 20	onal.stuffstring)."\.If.running.
4b80	75 6e 64 65 72 20 61 73 20 61 20 64 65 74 61 63 68 65 64 20 70 72 6f 63 65 73 73 20 65 6d 61 63	under.as.a.detached.process.emac
4ba0	73 74 6f 6f 6c 2c 0a 79 6f 75 20 64 6f 6e 27 74 20 77 61 6e 74 20 74 6f 20 73 75 73 70 65 6e 64	stool,.you.don't.want.to.suspend
4bc0	20 20 28 74 68 65 72 65 20 69 73 20 6e 6f 20 77 61 79 20 74 6f 20 72 65 73 75 6d 65 29 2c 20 0a	..(there.is.no.way.to.resume),..
4be0	6a 75 73 74 20 63 6c 6f 73 65 20 74 68 65 20 77 69 6e 64 6f 77 2c 20 61 6e 64 20 77 61 69 74 20	just.close.the.window,.and.wait.
4c00	66 6f 72 20 72 65 6f 70 65 6e 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62	for.reopening.".(interactive).(b
4c20	79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c0 21 85 09 00 08 85 0f 00 c5 08 21 88 09 85 17 00 c6 09	yte-code."....!.........!.......
4c40	21 88 c6 c7 21 88 c4 c2 21 85 23 00 0a 85 29 00 c5 0a 21 87 22 20 5b 73 75 73 70 65 6e 64 2d 68	!...!...!.#...)...!.".[suspend-h
4c60	6f 6f 6b 20 73 74 75 66 66 73 74 72 69 6e 67 20 73 75 73 70 65 6e 64 2d 72 65 73 75 6d 65 2d 68	ook.stuffstring.suspend-resume-h
4c80	6f 6f 6b 20 6e 69 6c 20 62 6f 75 6e 64 70 20 66 75 6e 63 61 6c 6c 20 73 65 6e 64 2d 73 74 72 69	ook.nil.boundp.funcall.send-stri
4ca0	6e 67 2d 74 6f 2d 74 65 72 6d 69 6e 61 6c 20 22 1b 5b 32 74 22 5d 20 37 29 29 0a 0a 28 6d 61 6b	ng-to-terminal.".[2t"].7))..(mak
4cc0	65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 71 75 6f 74 65 20 63	e-variable-buffer-local.(quote.c
4ce0	75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 29 29 0a 0a 28 73 65 74 71 2d 64	urrent-local-mousemap))..(setq-d
4d00	65 66 61 75 6c 74 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6e 69	efault.current-local-mousemap.ni
4d20	6c 29 0a 0a 28 64 65 66 76 61 72 20 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65	l)..(defvar.current-global-mouse
4d40	6d 61 70 20 28 6d 61 6b 65 2d 6d 6f 75 73 65 6d 61 70 29 29 0a	map.(make-mousemap)).