blob: a53ab91c65c5e39e1c076009d9cdbcbdfffbcfab (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 73 75 70 2d 6d 6f 75 73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77	.(defvar.sup-mouse-fast-select-w
0020	69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 6d 6f 75 73 65 20	indow.nil."\.*Non-nil.for.mouse.
0040	68 69 74 73 20 74 6f 20 73 65 6c 65 63 74 20 6e 65 77 20 77 69 6e 64 6f 77 2c 20 74 68 65 6e 20	hits.to.select.new.window,.then.
0060	65 78 65 63 75 74 65 3b 20 65 6c 73 65 20 6a 75 73 74 20 73 65 6c 65 63 74 2e 22 29 0a 0a 28 64	execute;.else.just.select.")..(d
0080	65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 6c 65 66 74 20 30 29 0a 0a 28 64 65 66 63 6f 6e 73 74	efconst.mouse-left.0)..(defconst
00a0	20 6d 6f 75 73 65 2d 63 65 6e 74 65 72 20 31 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73	.mouse-center.1)..(defconst.mous
00c0	65 2d 72 69 67 68 74 20 32 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 32 6c 65 66	e-right.2)..(defconst.mouse-2lef
00e0	74 20 34 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 32 63 65 6e 74 65 72 20 35 29	t.4)..(defconst.mouse-2center.5)
0100	0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 32 72 69 67 68 74 20 36 29 0a 0a 28 64 65	..(defconst.mouse-2right.6)..(de
0120	66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 33 6c 65 66 74 20 38 29 0a 0a 28 64 65 66 63 6f 6e 73 74	fconst.mouse-3left.8)..(defconst
0140	20 6d 6f 75 73 65 2d 33 63 65 6e 74 65 72 20 39 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75	.mouse-3center.9)..(defconst.mou
0160	73 65 2d 33 72 69 67 68 74 20 31 30 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 6d 6f 75 73 65 2d	se-3right.10)..(defun.sup-mouse-
0180	72 65 70 6f 72 74 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63	report.nil."\.This.function.is.c
01a0	61 6c 6c 65 64 20 64 69 72 65 63 74 6c 79 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2c 20 69 74 20	alled.directly.by.the.mouse,.it.
01c0	70 61 72 73 65 73 20 61 6e 64 0a 65 78 65 63 75 74 65 73 20 74 68 65 20 6d 6f 75 73 65 20 63 6f	parses.and.executes.the.mouse.co
01e0	6d 6d 61 6e 64 73 2e 0a 0a 20 4c 20 6d 6f 76 65 20 70 6f 69 6e 74 20 20 20 20 20 20 20 20 20 20	mmands....L.move.point..........
0200	2a 20 20 7c 2d 2d 2d 2d 20 54 68 65 73 65 20 61 70 70 6c 79 20 66 6f 72 20 6d 6f 75 73 65 20 63	*..|----.These.apply.for.mouse.c
0220	6c 69 63 6b 20 69 6e 20 61 20 77 69 6e 64 6f 77 2e 0a 32 4c 20 64 65 6c 65 74 65 20 77 6f 72 64	lick.in.a.window..2L.delete.word
0240	20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 33 4c 20 63 6f 70 79 20 77 6f 72 64 09 09 20 20 7c 20	............|.3L.copy.word....|.
0260	49 66 20 73 75 70 2d 6d 6f 75 73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20	If.sup-mouse-fast-select-window.
0280	69 73 20 6e 69 6c 2c 0a 20 43 20 6d 6f 76 65 20 70 6f 69 6e 74 20 61 6e 64 20 79 61 6e 6b 20 2a	is.nil,..C.move.point.and.yank.*
02a0	20 20 7c 20 6a 75 73 74 20 73 65 6c 65 63 74 73 20 74 68 61 74 20 77 69 6e 64 6f 77 2e 0a 32 43	..|.just.selects.that.window..2C
02c0	20 79 61 6e 6b 20 70 6f 70 09 09 20 20 7c 0a 20 52 20 73 65 74 20 6d 61 72 6b 20 20 20 20 20 20	.yank.pop....|..R.set.mark......
02e0	20 20 20 20 20 20 2a 20 20 7c 0a 32 52 20 64 65 6c 65 74 65 20 72 65 67 69 6f 6e 09 20 20 7c 0a	......*..|.2R.delete.region...|.
0300	33 52 20 63 6f 70 79 20 72 65 67 69 6f 6e 09 09 20 20 7c 0a 0a 6f 6e 20 6d 6f 64 65 6c 69 6e 65	3R.copy.region....|..on.modeline
0320	09 09 20 20 20 20 6f 6e 20 5c 22 73 63 72 6f 6c 6c 20 62 61 72 5c 22 09 69 6e 20 6d 69 6e 69 62	......on.\"scroll.bar\".in.minib
0340	75 66 66 65 72 0a 20 4c 20 73 63 72 6f 6c 6c 2d 75 70 09 09 20 20 20 20 6c 69 6e 65 20 74 6f 20	uffer..L.scroll-up......line.to.
0360	74 6f 70 09 09 65 78 65 63 75 74 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 0a 20 43	top..execute-extended-command..C
0380	20 70 72 6f 70 6f 72 74 69 6f 6e 61 6c 20 67 6f 74 6f 2d 63 68 61 72 20 20 20 6c 69 6e 65 20 74	.proportional.goto-char...line.t
03a0	6f 20 6d 69 64 64 6c 65 09 6d 6f 75 73 65 2d 68 65 6c 70 0a 20 52 20 73 63 72 6f 6c 6c 2d 64 6f	o.middle.mouse-help..R.scroll-do
03c0	77 6e 09 09 20 20 20 20 6c 69 6e 65 20 74 6f 20 62 6f 74 74 6f 6d 09 65 76 61 6c 2d 65 78 70 72	wn......line.to.bottom.eval-expr
03e0	65 73 73 69 6f 6e 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	ession".(interactive).(byte-code
0400	20 22 d5 88 d6 d7 21 18 d6 d7 21 19 d6 d8 21 1a d9 09 0a 5c 22 1b da 0b 21 1c db 20 1d 0a dc 20	."....!...!...!....\"...!.......
0420	53 3d 1e 06 0e 06 3f 85 2a 00 0b 0d 3d 1e 07 0a dd 0c 38 53 3d 1e 08 09 de 0c 38 53 59 1e 09 09	S=....?.*...=.....8S=.....8SY...
0440	df 0c 38 5a 89 11 88 0a e0 0c 38 5a 89 12 88 0e 08 83 8d 00 e1 0b 21 88 08 0e 0a 55 83 61 00 e2	..8Z......8Z..........!....U.a..
0460	20 82 86 00 08 0e 0b 55 83 6d 00 e3 20 82 86 00 08 0e 0c 55 85 86 00 e4 e5 09 64 65 5a 5c 22 e6	.......U.m.........U......deZ\".
0480	20 53 5c 22 62 88 e7 20 88 e8 20 88 e1 0d 21 82 f0 01 0e 09 83 d4 00 e1 0b 21 88 e2 08 0e 0a 55	.S\"b.........!..........!.....U
04a0	83 a2 00 0a 82 cc 00 08 0e 0b 55 83 b2 00 0a de e9 20 5a 5c 5c 82 cc 00 08 0e 0c 55 83 c7 00 e4	..........U.......Z\\......U....
04c0	ea de 0a 0a e9 20 5b 24 de 5c 22 82 cc 00 cd 85 cc 00 df 21 88 e1 0d 21 82 f0 01 0e 07 83 81 01	......[$.\"........!...!........
04e0	08 0e 0a 55 83 e7 00 eb 09 0a 5c 22 82 7e 01 08 0e 0e 55 83 f9 00 eb 09 0a 5c 22 88 ec e0 21 82	...U......\".~....U......\"...!.
0500	7e 01 08 0e 0f 55 83 17 01 eb 09 0a 5c 22 88 8a ed 60 ee e0 21 88 60 5c 22 29 88 ef 89 16 10 82	~....U......\"...`..!.`\")......
0520	7e 01 08 0e 0b 55 83 2b 01 f0 20 88 eb 09 0a 5c 22 88 f1 20 82 7e 01 08 0e 11 55 83 42 01 f0 20	~....U.+.......\"....~....U.B...
0540	88 eb 09 0a 5c 22 88 f2 f3 20 60 5c 22 82 7e 01 08 0e 12 55 83 5e 01 f0 20 88 eb 09 0a 5c 22 88	....\"....`\".~....U.^.......\".
0560	ed f3 20 60 5c 22 88 ef 89 16 10 82 7e 01 08 0e 0c 55 83 74 01 eb 09 0a 5c 22 88 ef 89 16 10 88	...`\"......~....U.t....\"......
0580	ef 20 82 7e 01 08 0e 13 55 85 7e 01 f4 e0 21 82 f0 01 0e 06 83 ad 01 08 0e 0b 55 83 93 01 f5 f6	...~....U.~...!...........U.....
05a0	21 82 aa 01 08 0e 0a 55 83 a0 01 f5 f7 21 82 aa 01 08 0e 0c 55 85 aa 01 f8 f9 21 82 f0 01 cd 85	!......U.....!......U.....!.....
05c0	f0 01 e1 0b 21 88 0e 14 3f 86 f0 01 08 0e 0a 55 83 c9 01 eb 09 0a 5c 22 82 f0 01 08 0e 0b 55 83	....!...?......U......\"......U.
05e0	dd 01 f0 20 88 eb 09 0a 5c 22 88 f1 20 82 f0 01 08 0e 0c 55 85 f0 01 eb 09 0a 5c 22 88 ef 89 16	........\".........U......\"....
0600	10 88 ef 20 2e 0a 87 22 20 5b 62 75 74 74 6f 6e 73 20 78 20 79 20 77 69 6e 64 6f 77 20 65 64 67	.......".[buttons.x.y.window.edg
0620	65 73 20 6f 6c 64 2d 77 69 6e 64 6f 77 20 69 6e 2d 6d 69 6e 69 62 75 66 2d 70 20 73 61 6d 65 2d	es.old-window.in-minibuf-p.same-
0640	77 69 6e 64 6f 77 2d 70 20 69 6e 2d 6d 6f 64 65 6c 69 6e 65 2d 70 20 69 6e 2d 73 63 72 6f 6c 6c	window-p.in-modeline-p.in-scroll
0660	62 61 72 2d 70 20 6d 6f 75 73 65 2d 6c 65 66 74 20 6d 6f 75 73 65 2d 72 69 67 68 74 20 6d 6f 75	bar-p.mouse-left.mouse-right.mou
0680	73 65 2d 63 65 6e 74 65 72 20 74 20 6d 6f 75 73 65 2d 32 6c 65 66 74 20 6d 6f 75 73 65 2d 33 6c	se-center.t.mouse-2left.mouse-3l
06a0	65 66 74 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 6d 6f 75 73 65 2d 32 72 69 67 68 74 20 6d 6f	eft.this-command.mouse-2right.mo
06c0	75 73 65 2d 33 72 69 67 68 74 20 6d 6f 75 73 65 2d 32 63 65 6e 74 65 72 20 73 75 70 2d 6d 6f 75	use-3right.mouse-2center.sup-mou
06e0	73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 73 75 70 2d 67 65	se-fast-select-window.nil.sup-ge
0700	74 2d 74 74 79 2d 6e 75 6d 20 35 39 20 39 39 20 73 75 70 2d 70 6f 73 2d 74 6f 2d 77 69 6e 64 6f	t-tty-num.59.99.sup-pos-to-windo
0720	77 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 73	w.window-edges.selected-window.s
0740	63 72 65 65 6e 2d 68 65 69 67 68 74 20 33 20 32 20 30 20 31 20 73 65 6c 65 63 74 2d 77 69 6e 64	creen-height.3.2.0.1.select-wind
0760	6f 77 20 73 63 72 6f 6c 6c 2d 75 70 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 20 2f 20 2a 20 77 69 6e	ow.scroll-up.scroll-down./.*.win
0780	64 6f 77 2d 77 69 64 74 68 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 77 68 61 74	dow-width.beginning-of-line.what
07a0	2d 63 75 72 73 6f 72 2d 70 6f 73 69 74 69 6f 6e 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 2b	-cursor-position.window-height.+
07c0	20 73 75 70 2d 6d 6f 76 65 2d 70 6f 69 6e 74 2d 74 6f 2d 78 2d 79 20 6b 69 6c 6c 2d 77 6f 72 64	.sup-move-point-to-x-y.kill-word
07e0	20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 61 73 2d 6b 69 6c 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72	.copy-region-as-kill.forward-wor
0800	64 20 79 61 6e 6b 20 70 75 73 68 2d 6d 61 72 6b 20 65 78 63 68 61 6e 67 65 2d 70 6f 69 6e 74 2d	d.yank.push-mark.exchange-point-
0820	61 6e 64 2d 6d 61 72 6b 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 20 79 61 6e 6b 2d 70	and-mark.kill-region.mark.yank-p
0840	6f 70 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 65 76 61 6c 2d 65 78 70 72 65	op.call-interactively.eval-expre
0860	73 73 69 6f 6e 20 65 78 65 63 75 74 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 20 64	ssion.execute-extended-command.d
0880	65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 73 75 70 2d 6d 6f 75 73 65 2d 72 65 70 6f 72	escribe-function.sup-mouse-repor
08a0	74 5d 20 35 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 67 65 74 2d 74 74 79 2d 6e 75 6d 20	t].54))..(defun.sup-get-tty-num.
08c0	28 74 65 72 6d 2d 63 68 61 72 29 20 22 5c 0a 52 65 61 64 20 66 72 6f 6d 20 74 65 72 6d 69 6e 61	(term-char)."\.Read.from.termina
08e0	6c 20 75 6e 74 69 6c 20 54 45 52 4d 2d 43 48 41 52 20 69 73 20 72 65 61 64 2c 20 61 6e 64 20 72	l.until.TERM-CHAR.is.read,.and.r
0900	65 74 75 72 6e 20 69 6e 74 65 72 76 65 6e 69 6e 67 20 6e 75 6d 62 65 72 2e 0a 55 70 6f 6e 20 6e	eturn.intervening.number..Upon.n
0920	6f 6e 2d 6e 75 6d 65 72 69 63 20 6e 6f 74 20 6d 61 74 63 68 69 6e 67 20 54 45 52 4d 2d 43 48 41	on-numeric.not.matching.TERM-CHA
0940	52 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22	R.signal.an.error.".(byte-code."
0960	c3 72 19 18 09 c4 59 85 0d 00 09 c5 58 85 5c 22 00 c6 08 c7 5c 22 09 c4 5a 5c 5c 89 10 88 72 89	.r....Y.....X.\"....\"..Z\\...r.
0980	11 88 82 04 00 88 0a 09 3d 86 2c 00 c8 c9 21 88 08 2a 87 22 20 5b 6e 75 6d 20 63 68 61 72 20 74	........=.,...!..*.".[num.char.t
09a0	65 72 6d 2d 63 68 61 72 20 30 20 34 38 20 35 37 20 2a 20 31 30 20 65 72 72 6f 72 20 22 49 6e 76	erm-char.0.48.57.*.10.error."Inv
09c0	61 6c 69 64 20 64 61 74 61 20 66 6f 72 6d 61 74 20 69 6e 20 6d 6f 75 73 65 20 63 6f 6d 6d 61 6e	alid.data.format.in.mouse.comman
09e0	64 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 6d 6f 76 65 2d 70 6f 69 6e 74 2d 74	d"].5))..(defun.sup-move-point-t
0a00	6f 2d 78 2d 79 20 28 78 20 79 29 20 22 5c 0a 50 6f 73 69 74 69 6f 6e 20 63 75 72 73 6f 72 20 69	o-x-y.(x.y)."\.Position.cursor.i
0a20	6e 20 77 69 6e 64 6f 77 20 63 6f 6f 72 64 69 6e 61 74 65 73 2e 0a 58 20 61 6e 64 20 59 20 61 72	n.window.coordinates..X.and.Y.ar
0a40	65 20 30 2d 62 61 73 65 64 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e	e.0-based.character.positions.in
0a60	20 74 68 65 20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 88 c3 09	.the.window.".(byte-code."..!...
0a80	21 87 22 20 5b 79 20 78 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e 65 20 6d 6f 76	!.".[y.x.move-to-window-line.mov
0aa0	65 2d 74 6f 2d 63 6f 6c 75 6d 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 70 6f 73	e-to-column].3))..(defun.sup-pos
0ac0	2d 74 6f 2d 77 69 6e 64 6f 77 20 28 78 20 79 29 20 22 5c 0a 46 69 6e 64 20 77 69 6e 64 6f 77 20	-to-window.(x.y)."\.Find.window.
0ae0	63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 73 63 72 65 65 6e 20 63 6f 6f 72 64 69 6e 61	corresponding.to.screen.coordina
0b00	74 65 73 2e 0a 58 20 61 6e 64 20 59 20 61 72 65 20 30 2d 62 61 73 65 64 20 63 68 61 72 61 63 74	tes..X.and.Y.are.0-based.charact
0b20	65 72 20 70 6f 73 69 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 73 63 72 65 65 6e 2e 22 20 28 62 79	er.positions.on.the.screen.".(by
0b40	74 65 2d 63 6f 64 65 20 22 c5 20 c2 19 18 09 c6 20 3d 3f 85 2a 00 0b c7 08 38 57 86 2a 00 0b c8	te-code."........=?.*....8W.*...
0b60	08 38 59 86 2a 00 0c c9 08 38 57 86 2a 00 0c ca 08 38 59 85 3c 00 cb 09 21 89 11 88 c5 09 21 89	.8Y.*....8W.*....8Y.<...!.....!.
0b80	10 88 82 05 00 88 09 86 43 00 c6 20 2a 87 22 20 5b 65 64 67 65 73 20 77 69 6e 64 6f 77 20 6e 69	........C...*.".[edges.window.ni
0ba0	6c 20 79 20 78 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64	l.y.x.window-edges.selected-wind
0bc0	6f 77 20 31 20 33 20 30 20 32 20 6e 65 78 74 2d 77 69 6e 64 6f 77 5d 20 37 29 29 0a	ow.1.3.0.2.next-window].7)).