blob: 2702cdab1dfd2f137b092a7c543978bf393fa7cb (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 1c 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 38 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.28.1.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c	imizations.....(byte-code."\300\
0060	33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 44 44 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31	301\302\303\304DD\305\306\307\31
0080	30 5c 33 31 31 26 07 5c 32 30 37 22 20 5b 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72	0\311&.\207".[custom-declare-var
00a0	69 61 62 6c 65 20 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 69 6e 63	iable.switch-window-mvborder-inc
00c0	72 65 6d 65 6e 74 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30	rement.funcall.function.#[0."\30
00e0	30 5c 32 30 37 22 20 5b 35 5d 20 31 20 22 22 5d 20 22 41 20 76 61 6c 75 65 20 74 6f 20 72 65 73	0\207".[5].1.""]."A.value.to.res
0100	69 7a 65 20 74 68 65 20 77 69 6e 64 6f 77 20 62 79 20 77 68 65 6e 20 6e 6f 20 70 72 65 66 69 78	ize.the.window.by.when.no.prefix
0120	20 69 73 20 73 70 65 63 69 66 69 65 64 2e 22 20 3a 74 79 70 65 20 69 6e 74 65 67 65 72 20 3a 67	.is.specified.".:type.integer.:g
0140	72 6f 75 70 20 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 5d 20 38 29 0a 23 40 31 34 20 0a 0a 28 66	roup.switch-window].8).#@14...(f
0160	6e 20 42 31 20 42 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 77 69 74 63 68 2d 77 69 6e 64	n.B1.B2)..(defalias.'switch-wind
0180	6f 77 2d 2d 78 6f 72 20 23 5b 35 31 34 20 22 01 5c 32 30 33 08 00 5c 32 31 31 5c 32 30 36 0f 00	ow--xor.#[514.".\203..\211\206..
01a0	01 3f 5c 32 30 35 0f 00 5c 32 31 31 3f 5c 32 30 37 22 20 5b 5d 20 33 20 28 23 24 20 2e 20 33 34	.?\205..\211?\207".[].3.(#$...34
01c0	38 29 5d 29 0a 23 40 31 35 34 20 47 65 6e 65 72 61 6c 20 66 75 6e 63 74 69 6f 6e 20 63 6f 76 65	8)]).#@154.General.function.cove
01e0	72 69 6e 67 20 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 6c 65 66 74	ring.switch-window-mvborder-left
0200	20 61 6e 64 20 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 72 69 67 68	.and.switch-window-mvborder-righ
0220	74 2e 0a 49 66 20 44 49 52 20 69 73 20 74 2c 20 74 68 65 6e 20 6d 6f 76 65 20 6c 65 66 74 2c 20	t..If.DIR.is.t,.then.move.left,.
0240	6f 74 68 65 72 77 69 73 65 20 6d 6f 76 65 20 72 69 67 68 74 2e 0a 0a 28 66 6e 20 41 52 47 20 44	otherwise.move.right...(fn.ARG.D
0260	49 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 2d 6d	IR)..(defalias.'switch-window--m
0280	76 62 6f 72 64 65 72 2d 6c 65 66 74 2d 6f 72 2d 72 69 67 68 74 20 23 5b 35 31 34 20 22 01 5c 32	vborder-left-or-right.#[514.".\2
02a0	30 34 07 00 08 5c 32 36 32 02 5c 33 30 31 20 40 5c 33 30 32 01 5c 33 30 33 55 03 5c 22 5c 32 30	04...\262.\301.@\302.\303U.\"\20
02c0	33 18 00 5c 33 30 34 03 5c 33 30 35 5c 22 5c 32 30 37 5c 33 30 36 03 5c 33 30 35 5c 22 5c 32 30	3..\304.\305\"\207\306.\305\"\20
02e0	37 22 20 5b 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 69 6e 63 72 65	7".[switch-window-mvborder-incre
0300	6d 65 6e 74 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d	ment.window-edges.switch-window-
0320	2d 78 6f 72 20 30 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 74 20 65 6e 6c 61 72 67 65 2d 77	-xor.0.shrink-window.t.enlarge-w
0340	69 6e 64 6f 77 5d 20 36 20 28 23 24 20 2e 20 34 35 39 29 5d 29 0a 23 40 31 34 38 20 47 65 6e 65	indow].6.(#$...459)]).#@148.Gene
0360	72 61 6c 20 66 75 6e 63 74 69 6f 6e 20 63 6f 76 65 72 69 6e 67 20 73 77 69 74 63 68 2d 77 69 6e	ral.function.covering.switch-win
0380	64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 75 70 20 61 6e 64 20 73 77 69 74 63 68 2d 77 69 6e 64 6f	dow-mvborder-up.and.switch-windo
03a0	77 2d 6d 76 62 6f 72 64 65 72 2d 64 6f 77 6e 2e 0a 49 66 20 44 49 52 20 69 73 20 74 2c 20 74 68	w-mvborder-down..If.DIR.is.t,.th
03c0	65 6e 20 6d 6f 76 65 20 75 70 2c 20 6f 74 68 65 72 77 69 73 65 20 6d 6f 76 65 20 64 6f 77 6e 2e	en.move.up,.otherwise.move.down.
03e0	0a 0a 28 66 6e 20 41 52 47 20 44 49 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 77 69 74 63	..(fn.ARG.DIR)..(defalias.'switc
0400	68 2d 77 69 6e 64 6f 77 2d 2d 6d 76 62 6f 72 64 65 72 2d 75 70 2d 6f 72 2d 64 6f 77 6e 20 23 5b	h-window--mvborder-up-or-down.#[
0420	35 31 34 20 22 01 5c 32 30 34 07 00 08 5c 32 36 32 02 5c 33 30 31 20 41 40 5c 33 30 32 01 5c 33	514.".\204...\262.\301.A@\302.\3
0440	30 33 55 03 5c 22 5c 32 30 33 19 00 5c 33 30 34 03 5c 33 30 35 5c 22 5c 32 30 37 5c 33 30 36 03	03U.\"\203..\304.\305\"\207\306.
0460	5c 33 30 35 5c 22 5c 32 30 37 22 20 5b 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72	\305\"\207".[switch-window-mvbor
0480	64 65 72 2d 69 6e 63 72 65 6d 65 6e 74 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 77 69 74 63	der-increment.window-edges.switc
04a0	68 2d 77 69 6e 64 6f 77 2d 2d 78 6f 72 20 30 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 6e 69	h-window--xor.0.shrink-window.ni
04c0	6c 20 65 6e 6c 61 72 67 65 2d 77 69 6e 64 6f 77 5d 20 36 20 28 23 24 20 2e 20 38 36 30 29 5d 29	l.enlarge-window].6.(#$...860)])
04e0	0a 23 40 31 32 20 0a 0a 28 66 6e 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 77 69	.#@12...(fn.ARG)..(defalias.'swi
0500	74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 6c 65 66 74 20 23 5b 32 35 37 20 22	tch-window-mvborder-left.#[257."
0520	5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d	\300.\301\"\207".[switch-window-
0540	2d 6d 76 62 6f 72 64 65 72 2d 6c 65 66 74 2d 6f 72 2d 72 69 67 68 74 20 74 5d 20 34 20 28 23 24	-mvborder-left-or-right.t].4.(#$
0560	20 2e 20 31 32 35 34 29 20 22 50 22 5d 29 0a 23 40 31 32 20 0a 0a 28 66 6e 20 41 52 47 29 1f 0a	...1254)."P"]).#@12...(fn.ARG)..
0580	28 64 65 66 61 6c 69 61 73 20 27 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65	(defalias.'switch-window-mvborde
05a0	72 2d 72 69 67 68 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20	r-right.#[257."\300.\301\"\207".
05c0	5b 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 2d 6d 76 62 6f 72 64 65 72 2d 6c 65 66 74 2d 6f 72	[switch-window--mvborder-left-or
05e0	2d 72 69 67 68 74 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 31 33 39 36 29 20 22 50 22 5d 29 0a	-right.nil].4.(#$...1396)."P"]).
0600	23 40 31 32 20 0a 0a 28 66 6e 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 77 69 74	#@12...(fn.ARG)..(defalias.'swit
0620	63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 75 70 20 23 5b 32 35 37 20 22 5c 33 30	ch-window-mvborder-up.#[257."\30
0640	30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 2d 6d 76	0.\301\"\207".[switch-window--mv
0660	62 6f 72 64 65 72 2d 75 70 2d 6f 72 2d 64 6f 77 6e 20 74 5d 20 34 20 28 23 24 20 2e 20 31 35 34	border-up-or-down.t].4.(#$...154
0680	31 29 20 22 50 22 5d 29 0a 23 40 31 32 20 0a 0a 28 66 6e 20 41 52 47 29 1f 0a 28 64 65 66 61 6c	1)."P"]).#@12...(fn.ARG)..(defal
06a0	69 61 73 20 27 73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 2d 64 6f 77 6e	ias.'switch-window-mvborder-down
06c0	20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 22 5c 32 30 37 22 20 5b 73 77 69 74 63 68	.#[257."\300.\301\"\207".[switch
06e0	2d 77 69 6e 64 6f 77 2d 2d 6d 76 62 6f 72 64 65 72 2d 75 70 2d 6f 72 2d 64 6f 77 6e 20 6e 69 6c	-window--mvborder-up-or-down.nil
0700	5d 20 34 20 28 23 24 20 2e 20 31 36 37 38 29 20 22 50 22 5d 29 0a 28 70 72 6f 76 69 64 65 20 27	].4.(#$...1678)."P"]).(provide.'
0720	73 77 69 74 63 68 2d 77 69 6e 64 6f 77 2d 6d 76 62 6f 72 64 65 72 29 0a	switch-window-mvborder).