blob: 215de12082133e0326c882b3bb547b61c2daa20c (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 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 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 63 6f 6e	ptimizations...;;;.This.file.con
0060	74 61 69 6e 73 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73	tains.utf-8.non-ASCII.characters
0080	2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 61 64 65 64 20 69 6e	,.;;;.and.so.cannot.be.loaded.in
00a0	74 6f 20 45 6d 61 63 73 20 32 32 20 6f 72 20 65 61 72 6c 69 65 72 2e 0a 28 61 6e 64 20 28 62 6f	to.Emacs.22.or.earlier..(and.(bo
00c0	75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 3c 20 28 61 72	undp.'emacs-version)......(<.(ar
00e0	65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61	ef.emacs-version.(1-.(length.ema
0100	63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	cs-version))).?A)......(string-l
0120	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 32 33 22 29 0a 20 20 20 20 20 28 65	essp.emacs-version."23")......(e
0140	72 72 6f 72 20 22 60 25 73 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63	rror."`%s'.was.compiled.for.Emac
0160	73 20 32 33 20 6f 72 20 6c 61 74 65 72 22 20 23 24 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	s.23.or.later".#$))..;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 23 40 31 32 33 20 50 72 65 64 65	;;;;;;;;;;;;;;;;;;...#@123.Prede
01a0	66 69 6e 65 64 20 61 6c 69 73 74 20 6f 66 20 73 70 69 6e 6e 65 72 73 2e 0a 45 61 63 68 20 63 61	fined.alist.of.spinners..Each.ca
01c0	72 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74 68 65 20 73 70	r.is.a.symbol.identifying.the.sp
01e0	69 6e 6e 65 72 2c 20 61 6e 64 20 65 61 63 68 20 63 64 72 20 69 73 20 61 0a 76 65 63 74 6f 72 2c	inner,.and.each.cdr.is.a.vector,
0200	20 74 68 65 20 73 70 69 6e 6e 65 72 20 69 74 73 65 6c 66 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20	.the.spinner.itself...(defconst.
0220	73 70 69 6e 6e 65 72 2d 74 79 70 65 73 20 27 28 28 33 2d 6c 69 6e 65 2d 63 6c 6f 63 6b 20 2e 20	spinner-types.'((3-line-clock...
0240	5b 22 e2 94 a4 22 20 22 e2 94 98 22 20 22 e2 94 b4 22 20 22 e2 94 94 22 20 22 e2 94 9c 22 20 22	["..."."..."."..."."..."."..."."
0260	e2 94 8c 22 20 22 e2 94 ac 22 20 22 e2 94 90 22 5d 29 20 28 32 2d 6c 69 6e 65 2d 63 6c 6f 63 6b	..."."..."."..."]).(2-line-clock
0280	20 2e 20 5b 22 e2 94 98 22 20 22 e2 94 94 22 20 22 e2 94 8c 22 20 22 e2 94 90 22 5d 29 20 28 66	...["..."."..."."..."."..."]).(f
02a0	6c 69 70 70 69 6e 67 2d 6c 69 6e 65 20 2e 20 5b 22 5f 22 20 22 5c 5c 22 20 22 7c 22 20 22 2f 22	lipping-line...["_"."\\"."|"."/"
02c0	5d 29 20 28 72 6f 74 61 74 69 6e 67 2d 6c 69 6e 65 20 2e 20 5b 22 2d 22 20 22 5c 5c 22 20 22 7c	]).(rotating-line...["-"."\\"."|
02e0	22 20 22 2f 22 5d 29 20 28 70 72 6f 67 72 65 73 73 2d 62 61 72 20 2e 20 5b 22 5b 20 20 20 20 5d	"."/"]).(progress-bar...["[....]
0300	22 20 22 5b 3d 20 20 20 5d 22 20 22 5b 3d 3d 20 20 5d 22 20 22 5b 3d 3d 3d 20 5d 22 20 22 5b 3d	"."[=...]"."[==..]"."[===.]"."[=
0320	3d 3d 3d 5d 22 20 22 5b 20 3d 3d 3d 5d 22 20 22 5b 20 20 3d 3d 5d 22 20 22 5b 20 20 20 3d 5d 22	===]"."[.===]"."[..==]"."[...=]"
0340	5d 29 20 28 70 72 6f 67 72 65 73 73 2d 62 61 72 2d 66 69 6c 6c 65 64 20 2e 20 5b 22 7c 20 20 20	]).(progress-bar-filled...["|...
0360	20 7c 22 20 22 7c e2 96 88 20 20 20 7c 22 20 22 7c e2 96 88 e2 96 88 20 20 7c 22 20 22 7c e2 96	.|"."|......|"."|........|"."|..
0380	88 e2 96 88 e2 96 88 20 7c 22 20 22 7c e2 96 88 e2 96 88 e2 96 88 e2 96 88 7c 22 20 22 7c 20 e2	........|"."|............|"."|..
03a0	96 88 e2 96 88 e2 96 88 7c 22 20 22 7c 20 20 e2 96 88 e2 96 88 7c 22 20 22 7c 20 20 20 e2 96 88	........|"."|........|"."|......
03c0	7c 22 5d 29 20 28 76 65 72 74 69 63 61 6c 2d 62 72 65 61 74 68 69 6e 67 20 2e 20 5b 22 e2 96 81	|"]).(vertical-breathing...["...
03e0	22 20 22 e2 96 82 22 20 22 e2 96 83 22 20 22 e2 96 84 22 20 22 e2 96 85 22 20 22 e2 96 86 22 20	"."..."."..."."..."."..."."...".
0400	22 e2 96 87 22 20 22 e2 96 88 22 20 22 e2 96 87 22 20 22 e2 96 86 22 20 22 e2 96 85 22 20 22 e2	"..."."..."."..."."..."."...".".
0420	96 84 22 20 22 e2 96 83 22 20 22 e2 96 82 22 20 22 e2 96 81 22 20 22 20 22 5d 29 20 28 76 65 72	.."."..."."..."."..."."."]).(ver
0440	74 69 63 61 6c 2d 72 69 73 69 6e 67 20 2e 20 5b 22 e2 96 81 22 20 22 e2 96 84 22 20 22 e2 96 88	tical-rising...["..."."..."."...
0460	22 20 22 e2 96 80 22 20 22 e2 96 94 22 5d 29 20 28 68 6f 72 69 7a 6f 6e 74 61 6c 2d 62 72 65 61	"."..."."..."]).(horizontal-brea
0480	74 68 69 6e 67 20 2e 20 5b 22 20 22 20 22 e2 96 8f 22 20 22 e2 96 8e 22 20 22 e2 96 8d 22 20 22	thing...["."."..."."..."."..."."
04a0	e2 96 8c 22 20 22 e2 96 8b 22 20 22 e2 96 8a 22 20 22 e2 96 89 22 20 22 e2 96 89 22 20 22 e2 96	..."."..."."..."."..."."..."."..
04c0	8a 22 20 22 e2 96 8b 22 20 22 e2 96 8c 22 20 22 e2 96 8d 22 20 22 e2 96 8e 22 20 22 e2 96 8f 22	."."..."."..."."..."."..."."..."
04e0	5d 29 20 28 68 6f 72 69 7a 6f 6e 74 61 6c 2d 62 72 65 61 74 68 69 6e 67 2d 6c 6f 6e 67 20 2e 20	]).(horizontal-breathing-long...
0500	5b 22 20 20 22 20 22 e2 96 8e 20 22 20 22 e2 96 8c 20 22 20 22 e2 96 8a 20 22 20 22 e2 96 88 20	[".."."...."."...."."...."."....
0520	22 20 22 e2 96 88 e2 96 8e 22 20 22 e2 96 88 e2 96 8c 22 20 22 e2 96 88 e2 96 8a 22 20 22 e2 96	"."......"."......"."......"."..
0540	88 e2 96 88 22 20 22 e2 96 88 e2 96 8a 22 20 22 e2 96 88 e2 96 8c 22 20 22 e2 96 88 e2 96 8e 22	...."."......"."......"."......"
0560	20 22 e2 96 88 20 22 20 22 e2 96 8a 20 22 20 22 e2 96 8b 20 22 20 22 e2 96 8c 20 22 20 22 e2 96	."...."."...."."...."."...."."..
0580	8d 20 22 20 22 e2 96 8e 20 22 20 22 e2 96 8f 20 22 5d 29 20 28 68 6f 72 69 7a 6f 6e 74 61 6c 2d	.."."...."."...."]).(horizontal-
05a0	6d 6f 76 69 6e 67 20 2e 20 5b 22 20 20 22 20 22 e2 96 8c 20 22 20 22 e2 96 88 20 22 20 22 e2 96	moving...[".."."...."."...."."..
05c0	90 e2 96 8c 22 20 22 20 e2 96 88 22 20 22 20 e2 96 90 22 5d 29 20 28 6d 69 6e 69 62 6f 78 20 2e	...."."...."."...."]).(minibox..
05e0	20 5b 22 e2 96 96 22 20 22 e2 96 98 22 20 22 e2 96 9d 22 20 22 e2 96 97 22 5d 29 20 28 74 72 69	.["..."."..."."..."."..."]).(tri
0600	61 6e 67 6c 65 20 2e 20 5b 22 e2 97 a2 22 20 22 e2 97 a3 22 20 22 e2 97 a4 22 20 22 e2 97 a5 22	angle...["..."."..."."..."."..."
0620	5d 29 20 28 62 6f 78 2d 69 6e 2d 62 6f 78 20 2e 20 5b 22 e2 97 b0 22 20 22 e2 97 b3 22 20 22 e2	]).(box-in-box...["..."."...".".
0640	97 b2 22 20 22 e2 97 b1 22 5d 29 20 28 62 6f 78 2d 69 6e 2d 63 69 72 63 6c 65 20 2e 20 5b 22 e2	.."."..."]).(box-in-circle...[".
0660	97 b4 22 20 22 e2 97 b7 22 20 22 e2 97 b6 22 20 22 e2 97 b5 22 5d 29 20 28 68 61 6c 66 2d 63 69	.."."..."."..."."..."]).(half-ci
0680	72 63 6c 65 20 2e 20 5b 22 e2 97 90 22 20 22 e2 97 93 22 20 22 e2 97 91 22 20 22 e2 97 92 22 5d	rcle...["..."."..."."..."."..."]
06a0	29 20 28 6d 6f 6f 6e 20 2e 20 5b 22 f0 9f 8c 91 22 20 22 f0 9f 8c 98 22 20 22 f0 9f 8c 96 22 20	).(moon...["...."."...."."....".
06c0	22 f0 9f 8c 95 22 20 22 f0 9f 8c 94 22 20 22 f0 9f 8c 92 22 5d 29 29 20 28 23 24 20 2e 20 34 31	"...."."...."."...."])).(#$...41
06e0	31 29 29 0a 23 40 32 36 32 20 52 65 74 75 72 6e 20 61 20 76 65 63 74 6f 72 20 6f 66 20 73 74 72	1)).#@262.Return.a.vector.of.str
0700	69 6e 67 73 20 6f 66 20 74 68 65 20 67 69 76 65 6e 20 57 49 44 54 48 2e 0a 54 68 65 20 76 65 63	ings.of.the.given.WIDTH..The.vec
0720	74 6f 72 20 69 73 20 61 20 76 61 6c 69 64 20 73 70 69 6e 6e 65 72 20 74 79 70 65 20 61 6e 64 20	tor.is.a.valid.spinner.type.and.
0740	69 73 20 73 69 6d 69 6c 61 72 20 74 6f 20 74 68 65 0a 60 70 72 6f 67 72 65 73 73 2d 62 61 72 27	is.similar.to.the.`progress-bar'
0760	20 73 70 69 6e 6e 65 72 2c 20 65 78 63 65 70 74 20 77 69 74 68 6f 75 74 20 74 68 65 20 73 6f 72	.spinner,.except.without.the.sor
0780	72 6f 75 6e 64 69 6e 67 20 62 72 61 63 6b 65 74 73 2e 0a 43 48 41 52 20 69 73 20 74 68 65 20 63	rounding.brackets..CHAR.is.the.c
07a0	68 61 72 61 63 74 65 72 20 74 6f 20 75 73 65 20 66 6f 72 20 74 68 65 20 6d 6f 76 69 6e 67 20 62	haracter.to.use.for.the.moving.b
07c0	61 72 20 28 64 65 66 61 75 6c 74 73 20 74 6f 20 3d 29 2e 0a 0a 28 66 6e 20 57 49 44 54 48 20 26	ar.(defaults.to.=)...(fn.WIDTH.&
07e0	6f 70 74 69 6f 6e 61 6c 20 43 48 41 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e	optional.CHAR)..(defalias.'spinn
0800	65 72 2d 6d 61 6b 65 2d 70 72 6f 67 72 65 73 73 2d 62 61 72 20 23 5b 35 31 33 20 22 5c 33 30 30	er-make-progress-bar.#[513."\300
0820	02 53 5c 33 30 31 5c 22 5c 33 30 30 5c 33 30 32 03 5c 32 30 36 5c 66 00 5c 33 30 33 5c 22 5c 33	.S\301\"\300\302.\206\f.\303\"\3
0840	30 30 04 5c 33 30 31 5c 22 51 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33	00.\301\"Q\304\305\306\307\310\3
0860	31 31 5c 33 31 32 5c 33 30 35 06 5c 6e 06 09 5c 22 5c 33 31 33 5c 22 5c 33 31 34 5c 33 31 35 25	11\312\305.\n..\"\313\"\314\315%
0880	5c 33 31 36 06 07 5c 33 31 37 5c 5c 5c 33 32 30 5c 33 32 31 23 5c 22 5c 22 5c 32 30 37 22 20 5b	\316..\317\\\320\321#\"\"\207".[
08a0	6d 61 6b 65 2d 73 74 72 69 6e 67 20 33 32 20 34 20 36 31 20 61 70 70 6c 79 20 76 65 63 74 6f 72	make-string.32.4.61.apply.vector
08c0	20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31	.mapcar.make-byte-code.257."\301
08e0	01 5c 32 31 31 5c 33 30 30 5c 5c 4f 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 5b 5d 20 35 20 22	.\211\300\\O\207".vconcat.[].5."
0900	5c 6e 5c 6e 28 66 6e 20 4e 29 22 20 6e 75 6d 62 65 72 2d 73 65 71 75 65 6e 63 65 20 33 20 30 20	\n\n(fn.N)".number-sequence.3.0.
0920	2d 31 5d 20 31 33 20 28 23 24 20 2e 20 31 37 37 30 29 5d 29 0a 23 40 36 32 20 53 70 69 6e 6e 65	-1].13.(#$...1770)]).#@62.Spinne
0940	72 20 63 75 72 65 6e 74 6c 79 20 62 65 69 6e 67 20 64 69 73 70 6c 61 79 65 64 20 6f 6e 20 74 68	r.curently.being.displayed.on.th
0960	65 20 60 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 27 2e 1f 0a 28 64 65 66 76 61 72 20	e.`mode-line-process'...(defvar.
0980	73 70 69 6e 6e 65 72 2d 63 75 72 72 65 6e 74 20 6e 69 6c 20 28 23 24 20 2e 20 32 33 36 32 29 29	spinner-current.nil.(#$...2362))
09a0	0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 27 73 70	.(make-variable-buffer-local.'sp
09c0	69 6e 6e 65 72 2d 63 75 72 72 65 6e 74 29 0a 23 40 36 31 20 43 6f 6e 73 74 72 75 63 74 20 75 73	inner-current).#@61.Construct.us
09e0	65 64 20 74 6f 20 64 69 73 70 6c 61 79 20 61 20 73 70 69 6e 6e 65 72 20 69 6e 20 60 6d 6f 64 65	ed.to.display.a.spinner.in.`mode
0a00	2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 27 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 73 70 69 6e 6e	-line-process'...(defconst.spinn
0a20	65 72 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 63 6f 6e 73 74 72 75 63 74 20 27 28 3a 65 76 61 6c 20	er--mode-line-construct.'(:eval.
0a40	28 73 70 69 6e 6e 65 72 2d 70 72 69 6e 74 20 73 70 69 6e 6e 65 72 2d 63 75 72 72 65 6e 74 29 29	(spinner-print.spinner-current))
0a60	20 28 23 24 20 2e 20 32 35 31 36 29 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 6d 6f 64	.(#$...2516)).(put.'spinner--mod
0a80	65 2d 6c 69 6e 65 2d 63 6f 6e 73 74 72 75 63 74 20 27 72 69 73 6b 79 2d 6c 6f 63 61 6c 2d 76 61	e-line-construct.'risky-local-va
0aa0	72 69 61 62 6c 65 20 74 29 0a 23 40 39 39 20 44 65 66 61 75 6c 74 20 73 70 65 65 64 20 61 74 20	riable.t).#@99.Default.speed.at.
0ac0	77 68 69 63 68 20 73 70 69 6e 6e 65 72 73 20 73 70 69 6e 2c 20 69 6e 20 66 72 61 6d 65 73 20 70	which.spinners.spin,.in.frames.p
0ae0	65 72 20 73 65 63 6f 6e 64 2e 0a 45 61 63 68 20 73 70 69 6e 6e 65 72 20 63 61 6e 20 6f 76 65 72	er.second..Each.spinner.can.over
0b00	72 69 64 65 20 74 68 69 73 20 76 61 6c 75 65 2e 1f 0a 28 64 65 66 76 61 72 20 73 70 69 6e 6e 65	ride.this.value...(defvar.spinne
0b20	72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 31 30 20 28 23 24 20 2e 20 32 37 33	r-frames-per-second.10.(#$...273
0b40	35 29 29 0a 23 40 36 36 33 20 52 65 74 75 72 6e 20 61 20 76 65 63 74 6f 72 20 6f 66 20 66 72 61	5)).#@663.Return.a.vector.of.fra
0b60	6d 65 73 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 54 59 50 45 2e 0a 54 68 65 20 6c	mes.corresponding.to.TYPE..The.l
0b80	69 73 74 20 6f 66 20 70 6f 73 73 69 62 6c 65 20 62 75 69 6c 74 2d 69 6e 20 73 70 69 6e 6e 65 72	ist.of.possible.built-in.spinner
0ba0	20 74 79 70 65 73 20 69 73 20 67 69 76 65 6e 20 62 79 20 74 68 65 0a 60 73 70 69 6e 6e 65 72 2d	.types.is.given.by.the.`spinner-
0bc0	74 79 70 65 73 27 20 76 61 72 69 61 62 6c 65 2c 20 62 75 74 20 79 6f 75 20 63 61 6e 20 61 6c 73	types'.variable,.but.you.can.als
0be0	6f 20 75 73 65 20 79 6f 75 72 20 6f 77 6e 20 28 73 65 65 0a 62 65 6c 6f 77 29 2e 0a 0a 49 66 20	o.use.your.own.(see.below)...If.
0c00	54 59 50 45 20 69 73 20 6e 69 6c 2c 20 74 68 65 20 66 72 61 6d 65 73 20 6f 66 20 74 68 69 73 20	TYPE.is.nil,.the.frames.of.this.
0c20	73 70 69 6e 6e 65 72 20 61 72 65 20 67 69 76 65 6e 20 62 79 20 74 68 65 20 66 69 72 73 74 0a 65	spinner.are.given.by.the.first.e
0c40	6c 65 6d 65 6e 74 20 6f 66 20 60 73 70 69 6e 6e 65 72 2d 74 79 70 65 73 27 2e 0a 49 66 20 54 59	lement.of.`spinner-types'..If.TY
0c60	50 45 20 69 73 20 61 20 73 79 6d 62 6f 6c 2c 20 69 74 20 73 70 65 63 69 66 69 65 73 20 61 6e 20	PE.is.a.symbol,.it.specifies.an.
0c80	65 6c 65 6d 65 6e 74 20 6f 66 20 60 73 70 69 6e 6e 65 72 2d 74 79 70 65 73 27 2e 0a 49 66 20 54	element.of.`spinner-types'..If.T
0ca0	59 50 45 20 69 73 20 60 72 61 6e 64 6f 6d 27 2c 20 75 73 65 20 61 20 72 61 6e 64 6f 6d 20 65 6c	YPE.is.`random',.use.a.random.el
0cc0	65 6d 65 6e 74 20 6f 66 20 60 73 70 69 6e 6e 65 72 2d 74 79 70 65 73 27 2e 0a 49 66 20 54 59 50	ement.of.`spinner-types'..If.TYP
0ce0	45 20 69 73 20 61 20 6c 69 73 74 2c 20 69 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74	E.is.a.list,.it.should.be.a.list
0d00	20 6f 66 20 73 79 6d 62 6f 6c 73 2c 20 61 6e 64 20 61 20 72 61 6e 64 6f 6d 0a 6f 6e 65 20 69 73	.of.symbols,.and.a.random.one.is
0d20	20 63 68 6f 73 65 6e 20 61 73 20 74 68 65 20 73 70 69 6e 6e 65 72 20 74 79 70 65 2e 0a 49 66 20	.chosen.as.the.spinner.type..If.
0d40	54 59 50 45 20 69 73 20 61 20 76 65 63 74 6f 72 2c 20 69 74 20 73 68 6f 75 6c 64 20 62 65 20 61	TYPE.is.a.vector,.it.should.be.a
0d60	20 76 65 63 74 6f 72 20 6f 66 20 73 74 72 69 6e 67 73 20 61 6e 64 20 74 68 65 73 65 0a 61 72 65	.vector.of.strings.and.these.are
0d80	20 75 73 65 64 20 61 73 20 74 68 65 20 73 70 69 6e 6e 65 72 27 73 20 66 72 61 6d 65 73 2e 20 20	.used.as.the.spinner's.frames...
0da0	54 68 69 73 20 61 6c 6c 6f 77 73 20 79 6f 75 20 74 6f 20 6d 61 6b 65 20 79 6f 75 72 0a 6f 77 6e	This.allows.you.to.make.your.own
0dc0	20 73 70 69 6e 6e 65 72 20 61 6e 69 6d 61 74 69 6f 6e 73 2e 0a 0a 28 66 6e 20 54 59 50 45 29 1f	.spinner.animations...(fn.TYPE).
0de0	0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61	.(defalias.'spinner--type-to-fra
0e00	6d 65 73 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30 33 07 00 5c 32 30 37 5c 32 31 31 5c	mes.#[257."\301.!\203..\207\211\
0e20	32 30 34 0f 00 08 40 41 5c 32 30 37 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33 1d 00 08 5c 33 30 32	204...@A\207\211\302=\203...\302
0e40	08 47 21 5c 32 33 34 41 5c 32 30 37 5c 32 31 31 3c 5c 32 30 33 2c 00 5c 32 31 31 5c 33 30 32 02	.G!\234A\207\211<\203,.\211\302.
0e60	47 21 5c 32 33 34 08 5c 32 33 36 41 5c 32 30 37 5c 32 31 31 39 5c 32 30 33 36 00 5c 32 31 31 08	G!\234.\236A\207\2119\2036.\211.
0e80	5c 32 33 36 41 5c 32 30 37 5c 33 30 33 5c 33 30 34 02 5c 22 5c 32 30 37 22 20 5b 73 70 69 6e 6e	\236A\207\303\304.\"\207".[spinn
0ea0	65 72 2d 74 79 70 65 73 20 76 65 63 74 6f 72 70 20 72 61 6e 64 6f 6d 20 65 72 72 6f 72 20 22 55	er-types.vectorp.random.error."U
0ec0	6e 6b 6e 6f 77 6e 20 73 70 69 6e 6e 65 72 20 74 79 70 65 3a 20 25 73 22 5d 20 34 20 28 23 24 20	nknown.spinner.type:.%s"].4.(#$.
0ee0	2e 20 32 38 39 30 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 70 2d 2d	..2890)]).(defalias.'spinner-p--
0f00	63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32	cmacro.#[514."\300\301\302\303\2
0f20	31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78	11\211..&.\207".[cl--defsubst-ex
0f40	70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 70 20	pand.(cl-x).(cl-block.spinner-p.
0f60	28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72	(declare.(side-effect-free.error
0f80	2d 66 72 65 65 29 29 20 28 61 6e 64 20 28 76 65 63 74 6f 72 70 20 63 6c 2d 78 29 20 28 3e 3d 20	-free)).(and.(vectorp.cl-x).(>=.
0fa0	28 6c 65 6e 67 74 68 20 63 6c 2d 78 29 20 38 29 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d	(length.cl-x).8).(memq.(aref.cl-
0fc0	78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 20 74 29 29	x.0).cl-struct-spinner-tags).t))
0fe0	20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c	.nil].9."\n\n(fn.CL-WHOLE-ARG.CL
1000	2d 58 29 22 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 70 20 27 63 6f 6d 70 69 6c 65 72	-X)"]).(put.'spinner-p.'compiler
1020	2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 70 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61	-macro.'spinner-p--cmacro).(defa
1040	6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 70 20 23 5b 32 35 37 20 22 5c 33 30 31 01 21 5c 32 30	lias.'spinner-p.#[257."\301.!\20
1060	35 16 00 5c 32 31 31 47 5c 33 30 32 59 5c 32 30 35 16 00 5c 32 31 31 5c 33 30 33 48 08 3e 5c 32	5..\211G\302Y\205..\211\303H.>\2
1080	30 35 16 00 5c 33 30 34 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72	05..\304\207".[cl-struct-spinner
10a0	2d 74 61 67 73 20 76 65 63 74 6f 72 70 20 38 20 30 20 74 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20	-tags.vectorp.8.0.t].3."\n\n(fn.
10c0	43 4c 2d 58 29 22 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 5c 33 30	CL-X)"]).(byte-code."\300\301\30
10e0	32 5c 33 30 33 23 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 31 23 5c 32 30 37 22	2\303#\210\304\305\306\301#\207"
1100	20 5b 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 73 70 69 6e 6e 65 72 2d 70 20 73 69 64 65 2d 65 66	.[function-put.spinner-p.side-ef
1120	66 65 63 74 2d 66 72 65 65 20 65 72 72 6f 72 2d 66 72 65 65 20 70 75 74 20 73 70 69 6e 6e 65 72	fect-free.error-free.put.spinner
1140	20 63 6c 2d 64 65 66 74 79 70 65 2d 73 61 74 69 73 66 69 65 73 5d 20 34 29 0a 28 64 65 66 61 6c	.cl-deftype-satisfies].4).(defal
1160	69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 2d 2d 63 6d 61 63 72 6f 20 23 5b 35	ias.'spinner--frames--cmacro.#[5
1180	31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06	14."\300\301\302\303\211\211..&.
11a0	5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78	\207".[cl--defsubst-expand.(cl-x
11c0	29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 20 28 64 65 63	).(cl-block.spinner--frames.(dec
11e0	6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28	lare.(side-effect-free.t)).(or.(
1200	61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63	and.(memq.(aref.cl-x.0).cl-struc
1220	74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d	t-spinner-tags)).(signal.'wrong-
1240	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d	type-argument.(list.'spinner.cl-
1260	78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 31 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e	x))).(aref.cl-x.1)).nil].9."\n\n
1280	28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27	(fn.CL-WHOLE-ARG.CL-X)"]).(put.'
12a0	73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20	spinner--frames.'compiler-macro.
12c0	27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c	'spinner--frames--cmacro).(defal
12e0	69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d 65 73 20 23 5b 32 35 37 20 22 5c 32 31 31	ias.'spinner--frames.#[257."\211
1300	5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31	\301H.>\204..\302\303\304.D\"\21
1320	30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e	0\211\305H\207".[cl-struct-spinn
1340	65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75	er-tags.0.signal.wrong-type-argu
1360	6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 31 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29	ment.spinner.1].5."\n\n(fn.CL-X)
1380	22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 66 72 61 6d	"]).(function-put.'spinner--fram
13a0	65 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61	es.'side-effect-free.t).(defalia
13c0	73 20 27 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31	s.'spinner--counter--cmacro.#[51
13e0	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c	4."\300\301\302\303\211\211..&.\
1400	32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29	207".[cl--defsubst-expand.(cl-x)
1420	20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 20 28 64 65 63	.(cl-block.spinner--counter.(dec
1440	6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28	lare.(side-effect-free.t)).(or.(
1460	61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63	and.(memq.(aref.cl-x.0).cl-struc
1480	74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d	t-spinner-tags)).(signal.'wrong-
14a0	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d	type-argument.(list.'spinner.cl-
14c0	78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 32 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e	x))).(aref.cl-x.2)).nil].9."\n\n
14e0	28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27	(fn.CL-WHOLE-ARG.CL-X)"]).(put.'
1500	73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f	spinner--counter.'compiler-macro
1520	20 27 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66	.'spinner--counter--cmacro).(def
1540	61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 63 6f 75 6e 74 65 72 20 23 5b 32 35 37 20 22 5c	alias.'spinner--counter.#[257."\
1560	32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22	211\301H.>\204..\302\303\304.D\"
1580	5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70	\210\211\305H\207".[cl-struct-sp
15a0	69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61	inner-tags.0.signal.wrong-type-a
15c0	72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 32 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c	rgument.spinner.2].5."\n\n(fn.CL
15e0	2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 63	-X)"]).(function-put.'spinner--c
1600	6f 75 6e 74 65 72 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a 28 64 65 66	ounter.'side-effect-free.t).(def
1620	61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 66 70 73 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31	alias.'spinner--fps--cmacro.#[51
1640	34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c	4."\300\301\302\303\211\211..&.\
1660	32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29	207".[cl--defsubst-expand.(cl-x)
1680	20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 66 70 73 20 28 64 65 63 6c 61 72 65	.(cl-block.spinner--fps.(declare
16a0	20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20	.(side-effect-free.t)).(or.(and.
16c0	28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70	(memq.(aref.cl-x.0).cl-struct-sp
16e0	69 6e 6e 65 72 2d 74 61 67 73 29 29 20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65	inner-tags)).(signal.'wrong-type
1700	2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29	-argument.(list.'spinner.cl-x)))
1720	20 28 61 72 65 66 20 63 6c 2d 78 20 33 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20	.(aref.cl-x.3)).nil].9."\n\n(fn.
1740	43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 73 70 69 6e	CL-WHOLE-ARG.CL-X)"]).(put.'spin
1760	6e 65 72 2d 2d 66 70 73 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65	ner--fps.'compiler-macro.'spinne
1780	72 2d 2d 66 70 73 2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e	r--fps--cmacro).(defalias.'spinn
17a0	65 72 2d 2d 66 70 73 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00	er--fps.#[257."\211\301H.>\204..
17c0	5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30	\302\303\304.D\"\210\211\305H\20
17e0	37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67	7".[cl-struct-spinner-tags.0.sig
1800	6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20	nal.wrong-type-argument.spinner.
1820	33 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e	3].5."\n\n(fn.CL-X)"]).(function
1840	2d 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 66 70 73 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d	-put.'spinner--fps.'side-effect-
1860	66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65	free.t).(defalias.'spinner--time
1880	72 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	r--cmacro.#[514."\300\301\302\30
18a0	33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74	3\211\211..&.\207".[cl--defsubst
18c0	2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72	-expand.(cl-x).(cl-block.spinner
18e0	2d 2d 74 69 6d 65 72 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	--timer.(declare.(side-effect-fr
1900	65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78	ee.t)).(or.(and.(memq.(aref.cl-x
1920	20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 29 20 28 73 69	.0).cl-struct-spinner-tags)).(si
1940	67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20	gnal.'wrong-type-argument.(list.
1960	27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 34 29 29 20	'spinner.cl-x))).(aref.cl-x.4)).
1980	6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d	nil].9."\n\n(fn.CL-WHOLE-ARG.CL-
19a0	58 29 22 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 20 27 63 6f 6d 70	X)"]).(put.'spinner--timer.'comp
19c0	69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 2d 2d 63 6d 61 63	iler-macro.'spinner--timer--cmac
19e0	72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 20 23 5b	ro).(defalias.'spinner--timer.#[
1a00	32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33	257."\211\301H.>\204..\302\303\3
1a20	30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72	04.D\"\210\211\305H\207".[cl-str
1a40	75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d	uct-spinner-tags.0.signal.wrong-
1a60	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 34 5d 20 35 20 22 5c 6e 5c 6e	type-argument.spinner.4].5."\n\n
1a80	28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 70 69 6e	(fn.CL-X)"]).(function-put.'spin
1aa0	6e 65 72 2d 2d 74 69 6d 65 72 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a	ner--timer.'side-effect-free.t).
1ac0	28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 2d 2d 63 6d	(defalias.'spinner--active-p--cm
1ae0	61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31	acro.#[514."\300\301\302\303\211
1b00	5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78 70 61	\211..&.\207".[cl--defsubst-expa
1b20	6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72 2d 2d 61 63 74	nd.(cl-x).(cl-block.spinner--act
1b40	69 76 65 2d 70 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65	ive-p.(declare.(side-effect-free
1b60	20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78 20 30	.t)).(or.(and.(memq.(aref.cl-x.0
1b80	29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 29 20 28 73 69 67 6e	).cl-struct-spinner-tags)).(sign
1ba0	61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20 27 73	al.'wrong-type-argument.(list.'s
1bc0	70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 35 29 29 20 6e 69	pinner.cl-x))).(aref.cl-x.5)).ni
1be0	6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d 58 29	l].9."\n\n(fn.CL-WHOLE-ARG.CL-X)
1c00	22 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 20 27 63 6f 6d	"]).(put.'spinner--active-p.'com
1c20	70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 2d 2d	piler-macro.'spinner--active-p--
1c40	63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69	cmacro).(defalias.'spinner--acti
1c60	76 65 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30	ve-p.#[257."\211\301H.>\204..\30
1c80	32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20	2\303\304.D\"\210\211\305H\207".
1ca0	5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c	[cl-struct-spinner-tags.0.signal
1cc0	20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 35 5d 20	.wrong-type-argument.spinner.5].
1ce0	35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75	5."\n\n(fn.CL-X)"]).(function-pu
1d00	74 20 27 73 70 69 6e 6e 65 72 2d 2d 61 63 74 69 76 65 2d 70 20 27 73 69 64 65 2d 65 66 66 65 63	t.'spinner--active-p.'side-effec
1d20	74 2d 66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75	t-free.t).(defalias.'spinner--bu
1d40	66 66 65 72 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	ffer--cmacro.#[514."\300\301\302
1d60	5c 33 30 33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75	\303\211\211..&.\207".[cl--defsu
1d80	62 73 74 2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e	bst-expand.(cl-x).(cl-block.spin
1da0	6e 65 72 2d 2d 62 75 66 66 65 72 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63	ner--buffer.(declare.(side-effec
1dc0	74 2d 66 72 65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20	t-free.t)).(or.(and.(memq.(aref.
1de0	63 6c 2d 78 20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 29	cl-x.0).cl-struct-spinner-tags))
1e00	20 28 73 69 67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c	.(signal.'wrong-type-argument.(l
1e20	69 73 74 20 27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20	ist.'spinner.cl-x))).(aref.cl-x.
1e40	36 29 29 20 6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47	6)).nil].9."\n\n(fn.CL-WHOLE-ARG
1e60	20 43 4c 2d 58 29 22 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66 65 72 20	.CL-X)"]).(put.'spinner--buffer.
1e80	27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66 65 72	'compiler-macro.'spinner--buffer
1ea0	2d 2d 63 6d 61 63 72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75	--cmacro).(defalias.'spinner--bu
1ec0	66 66 65 72 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30	ffer.#[257."\211\301H.>\204..\30
1ee0	32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20	2\303\304.D\"\210\211\305H\207".
1f00	5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c	[cl-struct-spinner-tags.0.signal
1f20	20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 36 5d 20	.wrong-type-argument.spinner.6].
1f40	35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75	5."\n\n(fn.CL-X)"]).(function-pu
1f60	74 20 27 73 70 69 6e 6e 65 72 2d 2d 62 75 66 66 65 72 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d	t.'spinner--buffer.'side-effect-
1f80	66 72 65 65 20 74 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61	free.t).(defalias.'spinner--dela
1fa0	79 2d 2d 63 6d 61 63 72 6f 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30	y--cmacro.#[514."\300\301\302\30
1fc0	33 5c 32 31 31 5c 32 31 31 06 06 26 06 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74	3\211\211..&.\207".[cl--defsubst
1fe0	2d 65 78 70 61 6e 64 20 28 63 6c 2d 78 29 20 28 63 6c 2d 62 6c 6f 63 6b 20 73 70 69 6e 6e 65 72	-expand.(cl-x).(cl-block.spinner
2000	2d 2d 64 65 6c 61 79 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72	--delay.(declare.(side-effect-fr
2020	65 65 20 74 29 29 20 28 6f 72 20 28 61 6e 64 20 28 6d 65 6d 71 20 28 61 72 65 66 20 63 6c 2d 78	ee.t)).(or.(and.(memq.(aref.cl-x
2040	20 30 29 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 29 29 20 28 73 69	.0).cl-struct-spinner-tags)).(si
2060	67 6e 61 6c 20 27 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 28 6c 69 73 74 20	gnal.'wrong-type-argument.(list.
2080	27 73 70 69 6e 6e 65 72 20 63 6c 2d 78 29 29 29 20 28 61 72 65 66 20 63 6c 2d 78 20 37 29 29 20	'spinner.cl-x))).(aref.cl-x.7)).
20a0	6e 69 6c 5d 20 39 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d 57 48 4f 4c 45 2d 41 52 47 20 43 4c 2d	nil].9."\n\n(fn.CL-WHOLE-ARG.CL-
20c0	58 29 22 5d 29 0a 28 70 75 74 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 20 27 63 6f 6d 70	X)"]).(put.'spinner--delay.'comp
20e0	69 6c 65 72 2d 6d 61 63 72 6f 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 2d 2d 63 6d 61 63	iler-macro.'spinner--delay--cmac
2100	72 6f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 64 65 6c 61 79 20 23 5b	ro).(defalias.'spinner--delay.#[
2120	32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33	257."\211\301H.>\204..\302\303\3
2140	30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72	04.D\"\210\211\305H\207".[cl-str
2160	75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d	uct-spinner-tags.0.signal.wrong-
2180	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 37 5d 20 35 20 22 5c 6e 5c 6e	type-argument.spinner.7].5."\n\n
21a0	28 66 6e 20 43 4c 2d 58 29 22 5d 29 0a 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 20 27 73 70 69 6e	(fn.CL-X)"]).(function-put.'spin
21c0	6e 65 72 2d 2d 64 65 6c 61 79 20 27 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 0a	ner--delay.'side-effect-free.t).
21e0	28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 73 70 69 6e 6e 65 72 2d 2d 63 6d 61 63 72 6f 20	(defalias.'make-spinner--cmacro.
2200	23 5b 31 32 38 31 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 32 31 31 5c 32 31 31	#[1281."\300\301\302\303\211\211
2220	06 09 06 09 06 09 06 09 26 09 5c 32 30 37 22 20 5b 63 6c 2d 2d 64 65 66 73 75 62 73 74 2d 65 78	........&.\207".[cl--defsubst-ex
2240	70 61 6e 64 20 28 74 79 70 65 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 66 72 61 6d 65 73 2d 70	pand.(type.buffer-local.frames-p
2260	65 72 2d 73 65 63 6f 6e 64 20 64 65 6c 61 79 2d 62 65 66 6f 72 65 2d 73 74 61 72 74 29 20 28 63	er-second.delay-before-start).(c
2280	6c 2d 62 6c 6f 63 6b 20 6d 61 6b 65 2d 73 70 69 6e 6e 65 72 20 22 43 6f 6e 73 74 72 75 63 74 6f	l-block.make-spinner."Constructo
22a0	72 20 66 6f 72 20 6f 62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 73 70 69 6e 6e 65 72 27 2e	r.for.objects.of.type.`spinner'.
22c0	22 20 28 76 65 63 74 6f 72 20 27 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 20 28 73 70	".(vector.'cl-struct-spinner.(sp
22e0	69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61 6d 65 73 20 74 79 70 65 29 20 30 20 28 6f	inner--type-to-frames.type).0.(o
2300	72 20 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 73 70 69 6e 6e 65 72 2d 66 72 61 6d	r.frames-per-second.spinner-fram
2320	65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 20 28 74 69 6d 65 72 2d 63 72 65 61 74 65 29 20 6e 69	es-per-second).(timer-create).ni
2340	6c 20 28 77 68 65 6e 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 69 66 20 28 62 75 66 66 65 72	l.(when.buffer-local.(if.(buffer
2360	70 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 29 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 63 75	p.buffer-local).buffer-local.(cu
2380	72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 20 28 6f 72 20 64 65 6c 61 79 2d 62 65 66 6f 72 65	rrent-buffer))).(or.delay-before
23a0	2d 73 74 61 72 74 20 30 29 29 29 20 6e 69 6c 5d 20 31 35 20 22 5c 6e 5c 6e 28 66 6e 20 43 4c 2d	-start.0))).nil].15."\n\n(fn.CL-
23c0	57 48 4f 4c 45 2d 41 52 47 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 20 42 55 46 46 45 52 2d	WHOLE-ARG.&optional.TYPE.BUFFER-
23e0	4c 4f 43 41 4c 20 46 52 41 4d 45 53 2d 50 45 52 2d 53 45 43 4f 4e 44 20 44 45 4c 41 59 2d 42 45	LOCAL.FRAMES-PER-SECOND.DELAY-BE
2400	46 4f 52 45 2d 53 54 41 52 54 29 22 5d 29 0a 28 70 75 74 20 27 6d 61 6b 65 2d 73 70 69 6e 6e 65	FORE-START)"]).(put.'make-spinne
2420	72 20 27 63 6f 6d 70 69 6c 65 72 2d 6d 61 63 72 6f 20 27 6d 61 6b 65 2d 73 70 69 6e 6e 65 72 2d	r.'compiler-macro.'make-spinner-
2440	2d 63 6d 61 63 72 6f 29 0a 23 40 31 31 35 20 43 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 6f	-cmacro).#@115.Constructor.for.o
2460	62 6a 65 63 74 73 20 6f 66 20 74 79 70 65 20 60 73 70 69 6e 6e 65 72 27 2e 0a 0a 28 66 6e 20 26	bjects.of.type.`spinner'...(fn.&
2480	6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 20 42 55 46 46 45 52 2d 4c 4f 43 41 4c 20 46 52 41 4d 45	optional.TYPE.BUFFER-LOCAL.FRAME
24a0	53 2d 50 45 52 2d 53 45 43 4f 4e 44 20 44 45 4c 41 59 2d 42 45 46 4f 52 45 2d 53 54 41 52 54 29	S-PER-SECOND.DELAY-BEFORE-START)
24c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6d 61 6b 65 2d 73 70 69 6e 6e 65 72 20 23 5b 31 30 32 34	..(defalias.'make-spinner.#[1024
24e0	20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 21 5c 33 30 34 05 5c 32 30 36 5c 66 00 08 5c 33	."\301\302\303..!\304.\206\f..\3
2500	30 31 5c 33 30 35 5c 33 30 36 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32	01\305\306\211\211\211\211\211\2
2520	31 31 5c 32 31 31 26 09 5c 33 30 36 06 09 5c 32 30 35 2b 00 5c 33 30 37 06 5c 6e 21 5c 32 30 33	11\211&.\306..\205+.\307.\n!\203
2540	2a 00 06 09 5c 32 30 32 2b 00 70 06 08 5c 32 30 36 31 00 5c 33 30 34 26 08 5c 32 30 37 22 20 5b	*...\202+.p..\2061.\304&.\207".[
2560	73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 76 65 63 74 6f 72	spinner-frames-per-second.vector
2580	20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 20 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65	.cl-struct-spinner.spinner--type
25a0	2d 74 6f 2d 66 72 61 6d 65 73 20 30 20 74 20 6e 69 6c 20 62 75 66 66 65 72 70 5d 20 31 39 20 28	-to-frames.0.t.nil.bufferp].19.(
25c0	23 24 20 2e 20 39 32 39 35 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	#$...9295)]).(byte-code."\300\30
25e0	31 5c 33 30 32 5c 33 30 33 5c 33 30 32 5c 32 31 31 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30	1\302\303\302\211\304\305\306\30
2600	37 26 09 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 64 65 66 69 6e 65 20 73 70 69 6e 6e	7&.\207".[cl-struct-define.spinn
2620	65 72 20 6e 69 6c 20 63 6c 2d 73 74 72 75 63 74 75 72 65 2d 6f 62 6a 65 63 74 20 28 28 63 6c 2d	er.nil.cl-structure-object.((cl-
2640	74 61 67 2d 73 6c 6f 74 29 20 28 66 72 61 6d 65 73 20 28 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65	tag-slot).(frames.(spinner--type
2660	2d 74 6f 2d 66 72 61 6d 65 73 20 74 79 70 65 29 29 20 28 63 6f 75 6e 74 65 72 20 30 29 20 28 66	-to-frames.type)).(counter.0).(f
2680	70 73 20 28 6f 72 20 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 73 70 69 6e 6e 65 72	ps.(or.frames-per-second.spinner
26a0	2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 29 29 20 28 74 69 6d 65 72 20 28 74 69 6d	-frames-per-second)).(timer.(tim
26c0	65 72 2d 63 72 65 61 74 65 29 29 20 28 61 63 74 69 76 65 2d 70 20 6e 69 6c 29 20 28 62 75 66 66	er-create)).(active-p.nil).(buff
26e0	65 72 20 28 77 68 65 6e 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 69 66 20 28 62 75 66 66 65	er.(when.buffer-local.(if.(buffe
2700	72 70 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 29 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 63	rp.buffer-local).buffer-local.(c
2720	75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 20 28 64 65 6c 61 79 20 28 6f 72 20 64 65 6c	urrent-buffer)))).(delay.(or.del
2740	61 79 2d 62 65 66 6f 72 65 2d 73 74 61 72 74 20 30 29 29 29 20 63 6c 2d 73 74 72 75 63 74 2d 73	ay-before-start.0))).cl-struct-s
2760	70 69 6e 6e 65 72 2d 74 61 67 73 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 20 74 5d	pinner-tags.cl-struct-spinner.t]
2780	20 31 30 29 0a 23 40 39 31 35 20 43 72 65 61 74 65 20 61 20 73 70 69 6e 6e 65 72 20 6f 66 20 74	.10).#@915.Create.a.spinner.of.t
27a0	68 65 20 67 69 76 65 6e 20 54 59 50 45 2e 0a 54 68 65 20 70 6f 73 73 69 62 6c 65 20 54 59 50 45	he.given.TYPE..The.possible.TYPE
27c0	73 20 61 72 65 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 60 73 70 69 6e 6e 65 72 2d 2d 74 79 70	s.are.described.in.`spinner--typ
27e0	65 2d 74 6f 2d 66 72 61 6d 65 73 27 2e 0a 0a 46 50 53 2c 20 69 66 20 67 69 76 65 6e 2c 20 69 73	e-to-frames'...FPS,.if.given,.is
2800	20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 64 65 73 69 72 65 64 20 66 72 61 6d 65 73 20 70 65	.the.number.of.desired.frames.pe
2820	72 20 73 65 63 6f 6e 64 2e 0a 44 65 66 61 75 6c 74 20 69 73 20 60 73 70 69 6e 6e 65 72 2d 66 72	r.second..Default.is.`spinner-fr
2840	61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 27 2e 0a 0a 49 66 20 42 55 46 46 45 52 2d 4c 4f 43	ames-per-second'...If.BUFFER-LOC
2860	41 4c 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 73 70 69 6e 6e 65 72 20 77 69 6c 6c 20	AL.is.non-nil,.the.spinner.will.
2880	62 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 64 65 61 63 74 69 76 61 74 65 64 20 69 66 20	be.automatically.deactivated.if.
28a0	74 68 65 20 62 75 66 66 65 72 20 69 73 20 6b 69 6c 6c 65 64 2e 20 20 49 66 20 42 55 46 46 45 52	the.buffer.is.killed...If.BUFFER
28c0	2d 4c 4f 43 41 4c 20 69 73 20 61 0a 62 75 66 66 65 72 2c 20 75 73 65 20 74 68 61 74 20 69 6e 73	-LOCAL.is.a.buffer,.use.that.ins
28e0	74 65 61 64 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 0a 57 68 65 6e 20 73 74	tead.of.current.buffer...When.st
2900	61 72 74 65 64 2c 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 70 72 6f 70	arted,.in.order.to.function.prop
2920	65 72 6c 79 2c 20 74 68 65 20 73 70 69 6e 6e 65 72 20 72 75 6e 73 20 61 0a 74 69 6d 65 72 20 77	erly,.the.spinner.runs.a.timer.w
2940	68 69 63 68 20 70 65 72 69 6f 64 69 63 61 6c 6c 79 20 63 61 6c 6c 73 20 60 66 6f 72 63 65 2d 6d	hich.periodically.calls.`force-m
2960	6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 27 20 69 6e 20 74 68 65 0a 63 75 72 65 6e 74 20 62	ode-line-update'.in.the.curent.b
2980	75 66 66 65 72 2e 20 20 49 66 20 42 55 46 46 45 52 2d 4c 4f 43 41 4c 20 77 61 73 20 73 65 74 20	uffer...If.BUFFER-LOCAL.was.set.
29a0	61 74 20 63 72 65 61 74 69 6f 6e 20 74 69 6d 65 2c 20 74 68 65 6e 0a 60 66 6f 72 63 65 2d 6d 6f	at.creation.time,.then.`force-mo
29c0	64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 27 20 69 73 20 63 61 6c 6c 65 64 20 69 6e 20 74 68 61	de-line-update'.is.called.in.tha
29e0	74 20 62 75 66 66 65 72 20 69 6e 73 74 65 61 64 2e 20 20 57 68 65 6e 0a 74 68 65 20 73 70 69 6e	t.buffer.instead...When.the.spin
2a00	6e 65 72 20 69 73 20 73 74 6f 70 70 65 64 2c 20 74 68 65 20 74 69 6d 65 72 20 69 73 20 64 65 61	ner.is.stopped,.the.timer.is.dea
2a20	63 74 69 76 61 74 65 64 2e 0a 0a 44 45 4c 41 59 2c 20 69 66 20 67 69 76 65 6e 2c 20 69 73 20 74	ctivated...DELAY,.if.given,.is.t
2a40	68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 61 66 74	he.number.of.seconds.to.wait.aft
2a60	65 72 20 73 74 61 72 74 69 6e 67 0a 74 68 65 20 73 70 69 6e 6e 65 72 20 62 65 66 6f 72 65 20 61	er.starting.the.spinner.before.a
2a80	63 74 75 61 6c 6c 79 20 64 69 73 70 6c 61 79 69 6e 67 20 69 74 2e 20 49 74 20 69 73 20 73 61 66	ctually.displaying.it..It.is.saf
2aa0	65 20 74 6f 20 63 61 6e 63 65 6c 0a 74 68 65 20 73 70 69 6e 6e 65 72 20 62 65 66 6f 72 65 20 74	e.to.cancel.the.spinner.before.t
2ac0	68 69 73 20 74 69 6d 65 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 69 74 20 77 6f 6e 27 74	his.time,.in.which.case.it.won't
2ae0	20 64 69 73 70 6c 61 79 20 61 74 0a 61 6c 6c 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20	.display.at.all...(fn.&optional.
2b00	54 59 50 45 20 42 55 46 46 45 52 2d 4c 4f 43 41 4c 20 46 50 53 20 44 45 4c 41 59 29 1f 0a 28 64	TYPE.BUFFER-LOCAL.FPS.DELAY)..(d
2b20	65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 63 72 65 61 74 65 20 23 5b 31 30 32 34 20 22	efalias.'spinner-create.#[1024."
2b40	5c 33 30 31 5c 33 30 32 5c 33 30 33 06 06 21 5c 33 30 34 05 5c 32 30 36 5c 66 00 08 5c 33 30 31	\301\302\303..!\304.\206\f..\301
2b60	5c 33 30 35 5c 33 30 36 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31	\305\306\211\211\211\211\211\211
2b80	5c 32 31 31 26 09 5c 33 30 36 06 09 5c 32 30 35 2b 00 5c 33 30 37 06 5c 6e 21 5c 32 30 33 2a 00	\211&.\306..\205+.\307.\n!\203*.
2ba0	06 09 5c 32 30 32 2b 00 70 06 08 5c 32 30 36 31 00 5c 33 30 34 26 08 5c 32 30 37 22 20 5b 73 70	..\202+.p..\2061.\304&.\207".[sp
2bc0	69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65 63 6f 6e 64 20 76 65 63 74 6f 72 20 63	inner-frames-per-second.vector.c
2be0	6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 20 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74	l-struct-spinner.spinner--type-t
2c00	6f 2d 66 72 61 6d 65 73 20 30 20 74 20 6e 69 6c 20 62 75 66 66 65 72 70 5d 20 31 39 20 28 23 24	o-frames.0.t.nil.bufferp].19.(#$
2c20	20 2e 20 31 30 31 32 33 29 5d 29 0a 23 40 31 38 34 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e	...10123)]).#@184.Return.a.strin
2c40	67 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 72 61 6d 65 20 6f 66 20 53 50 49 4e 4e 45	g.of.the.current.frame.of.SPINNE
2c60	52 2e 0a 49 66 20 53 50 49 4e 4e 45 52 20 69 73 20 6e 69 6c 2c 20 6a 75 73 74 20 72 65 74 75 72	R..If.SPINNER.is.nil,.just.retur
2c80	6e 20 6e 69 6c 2e 0a 44 65 73 69 67 6e 65 64 20 74 6f 20 62 65 20 75 73 65 64 20 69 6e 20 74 68	n.nil..Designed.to.be.used.in.th
2ca0	65 20 6d 6f 64 65 2d 6c 69 6e 65 20 77 69 74 68 3a 0a 20 20 20 20 28 3a 65 76 61 6c 20 28 73 70	e.mode-line.with:.....(:eval.(sp
2cc0	69 6e 6e 65 72 2d 70 72 69 6e 74 20 73 6f 6d 65 2d 73 70 69 6e 6e 65 72 29 29 0a 0a 28 66 6e 20	inner-print.some-spinner))..(fn.
2ce0	53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 70 72 69	SPINNER)..(defalias.'spinner-pri
2d00	6e 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30 35 47 00 5c 32 31 31 5c 33 30 31 48 08 3e 5c	nt.#[257."\211\205G.\211\301H.>\
2d20	32 30 34 13 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30	204..\302\303\304.D\"\210\211\30
2d40	35 48 5c 32 30 35 47 00 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 28 00 5c 33 30 32 5c 33 30	5H\205G.\211\301H.>\204(.\302\30
2d60	33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 36 48 5c 32 31 31 5c 33 30 31 59 5c	3\304.D\"\210\211\306H\211\301Y\
2d80	32 30 35 45 00 01 5c 33 30 31 48 08 3e 5c 32 30 34 40 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04	205E..\301H.>\204@.\302\303\304.
2da0	44 5c 22 5c 32 31 30 01 5c 33 30 37 48 01 5c 32 33 34 5c 32 36 32 01 5c 32 30 37 22 20 5b 63 6c	D\"\210.\307H.\234\262.\207".[cl
2dc0	2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72	-struct-spinner-tags.0.signal.wr
2de0	6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 35 20 32 20 31 5d	ong-type-argument.spinner.5.2.1]
2e00	20 36 20 28 23 24 20 2e 20 31 31 33 31 34 29 5d 29 0a 23 40 31 34 32 20 46 75 6e 63 74 69 6f 6e	.6.(#$...11314)]).#@142.Function
2e20	20 63 61 6c 6c 65 64 20 74 6f 20 75 70 64 61 74 65 20 53 50 49 4e 4e 45 52 2e 0a 49 66 20 53 50	.called.to.update.SPINNER..If.SP
2e40	49 4e 4e 45 52 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 61 63 74 69 76 65 2c 20 6f 72 20 69 66	INNER.is.no.longer.active,.or.if
2e60	20 69 74 73 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6b 69 6c 6c 65 64 2c 0a 73 74 6f	.its.buffer.has.been.killed,.sto
2e80	70 20 74 68 65 20 53 50 49 4e 4e 45 52 27 73 20 74 69 6d 65 72 2e 0a 0a 28 66 6e 20 53 50 49 4e	p.the.SPINNER's.timer...(fn.SPIN
2ea0	4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 2d	NER)..(defalias.'spinner--timer-
2ec0	66 75 6e 63 74 69 6f 6e 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f	function.#[257."\211\301H.>\204.
2ee0	00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 01 5c	.\302\303\304.D\"\210\211\305H.\
2f00	33 30 31 48 08 3e 5c 32 30 34 21 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30	301H.>\204!.\302\303\304.D\"\210
2f20	01 5c 33 30 36 48 5c 32 30 33 31 00 5c 32 31 31 5c 32 30 33 37 00 5c 33 30 37 01 21 5c 32 30 34	.\306H\2031.\211\2037.\307.!\204
2f40	37 00 5c 33 31 30 02 21 5c 32 30 32 6f 00 01 5c 33 30 31 48 08 3e 5c 32 30 34 46 00 5c 33 30 32	7.\310.!\202o..\301H.>\204F.\302
2f60	5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 32 31 31 5c 33 31 31 5c 33 31 32 5c 33 31	\303\304.D\"\210.\211\311\312\31
2f80	33 5c 33 31 34 5c 33 31 35 5c 33 31 36 06 09 21 5c 33 31 37 5c 22 5c 33 30 35 5c 33 32 30 25 03	3\314\315\316..!\317\"\305\320%.
2fa0	5c 33 31 31 48 21 49 5c 32 36 36 02 5c 33 30 37 01 21 5c 32 30 33 6d 00 72 5c 32 31 31 71 5c 32	\311H!I\266.\307.!\203m.r\211q\2
2fc0	31 30 5c 33 32 31 20 29 5c 32 30 32 6f 00 5c 33 32 31 20 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72	10\321.)\202o.\321.\207".[cl-str
2fe0	75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d	uct-spinner-tags.0.signal.wrong-
3000	74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 36 20 35 20 62 75 66 66 65 72	type-argument.spinner.6.5.buffer
3020	2d 6c 69 76 65 2d 70 20 73 70 69 6e 6e 65 72 2d 73 74 6f 70 20 32 20 6d 61 6b 65 2d 62 79 74 65	-live-p.spinner-stop.2.make-byte
3040	2d 63 6f 64 65 20 32 35 37 20 22 5c 32 31 31 5c 33 30 32 57 5c 32 30 33 09 00 5c 32 31 31 54 5c	-code.257."\211\302W\203..\211T\
3060	32 30 37 5c 32 31 31 54 5c 33 30 30 5c 33 30 32 48 09 3e 5c 32 30 34 1a 00 5c 33 30 33 5c 33 30	207\211T\300\302H.>\204..\303\30
3080	34 5c 33 30 35 5c 33 30 30 44 5c 22 5c 32 31 30 5c 33 30 30 5c 33 30 36 48 47 5c 32 34 36 5c 32	4\305\300D\"\210\300\306HG\246\2
30a0	30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70	07".vconcat.vector.[cl-struct-sp
30c0	69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61	inner-tags.0.signal.wrong-type-a
30e0	72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 31 5d 20 22 5c 6e 5c 6e 28 66 6e 20 58 29 22 20	rgument.spinner.1]."\n\n(fn.X)".
3100	66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 31 31 20 28 23 24 20 2e	force-mode-line-update].11.(#$..
3120	20 31 31 38 30 30 29 5d 29 0a 23 40 34 30 20 53 74 61 72 74 20 61 20 53 50 49 4e 4e 45 52 27 73	.11800)]).#@40.Start.a.SPINNER's
3140	20 74 69 6d 65 72 2e 0a 0a 28 66 6e 20 53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73	.timer...(fn.SPINNER)..(defalias
3160	20 27 73 70 69 6e 6e 65 72 2d 2d 73 74 61 72 74 2d 74 69 6d 65 72 20 23 5b 32 35 37 20 22 5c 32	.'spinner--start-timer.#[257."\2
3180	31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c	11\301H.>\204..\302\303\304.D\"\
31a0	32 31 30 5c 32 31 31 5c 33 30 35 48 5c 33 30 36 01 21 5c 32 30 33 1c 00 5c 33 30 37 01 21 5c 32	210\211\305H\306.!\203..\307.!\2
31c0	31 30 01 5c 33 30 31 48 08 3e 5c 32 30 34 2b 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22	10.\301H.>\204+.\302\303\304.D\"
31e0	5c 32 31 30 01 5c 32 31 31 5c 33 31 30 5c 33 31 31 49 5c 32 36 36 02 5c 33 31 32 31 4e 00 01 5c	\210.\211\310\311I\266.\3121N..\
3200	33 30 31 48 08 3e 5c 32 30 34 45 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30	301H.>\204E.\302\303\304.D\"\210
3220	01 5c 33 31 33 48 5c 33 30 31 56 30 5c 32 30 32 50 00 5c 32 31 30 5c 33 31 34 5c 32 30 34 57 00	.\313H\301V0\202P.\210\314\204W.
3240	5c 33 31 35 5c 33 31 36 21 5c 32 31 30 01 5c 33 30 31 48 08 3e 5c 32 30 34 66 00 5c 33 30 32 5c	\315\316!\210.\301H.>\204f.\302\
3260	33 30 33 5c 33 30 34 04 44 5c 22 5c 32 31 30 01 5c 32 31 31 5c 33 31 37 5c 33 32 30 05 5c 33 30	303\304.D\"\210.\211\317\320.\30
3280	31 48 08 3e 5c 32 30 34 7a 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 08 44 5c 22 5c 32 31 30 05	1H.>\204z.\302\303\304..D\"\210.
32a0	5c 33 32 31 48 5c 32 30 36 5c 32 30 31 00 5c 33 30 31 06 06 5c 33 30 31 48 08 3e 5c 32 30 34 5c	\321H\206\201.\301..\301H.>\204\
32c0	32 32 32 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 06 09 44 5c 22 5c 32 31 30 06 06 5c 33 31 33 48	222.\302\303\304..D\"\210..\313H
32e0	5f 5b 21 49 5c 32 36 36 02 5c 33 32 32 02 5c 33 30 31 48 08 3e 5c 32 30 34 5c 32 35 34 00 5c 33	_[!I\266.\322.\301H.>\204\254.\3
3300	30 32 5c 33 30 33 5c 33 30 34 05 44 5c 22 5c 32 31 30 02 5c 33 31 33 48 5c 32 34 35 5c 33 32 33	02\303\304.D\"\210.\313H\245\323
3320	5c 33 32 34 20 02 5c 22 03 5c 33 30 31 48 08 3e 5c 32 30 34 5c 33 30 35 00 5c 33 30 32 5c 33 30	\324..\".\301H.>\204\305.\302\30
3340	33 5c 33 30 34 06 06 44 5c 22 5c 32 31 30 03 5c 33 30 35 48 5c 33 32 35 01 03 05 23 5c 32 31 30	3\304..D\"\210.\305H\325...#\210
3360	5c 33 32 36 01 5c 33 32 37 06 07 43 23 5c 32 31 30 5c 33 33 30 01 21 5c 32 31 30 5c 33 33 31 5c	\326.\327..C#\210\330.!\210\331\
3380	33 30 31 5c 33 33 32 5c 33 33 33 5c 33 33 34 06 09 21 5c 33 33 35 5c 22 5c 33 31 37 24 5c 32 36	301\332\333\334..!\335\"\317$\26
33a0	36 5c 32 30 33 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61	6\203\207".[cl-struct-spinner-ta
33c0	67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20	gs.0.signal.wrong-type-argument.
33e0	73 70 69 6e 6e 65 72 20 34 20 74 69 6d 65 72 70 20 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 35 20	spinner.4.timerp.cancel-timer.5.
3400	74 20 28 65 72 72 6f 72 29 20 33 20 6e 69 6c 20 65 72 72 6f 72 20 22 41 20 73 70 69 6e 6e 65 72	t.(error).3.nil.error."A.spinner
3420	27 73 20 46 50 53 20 6d 75 73 74 20 62 65 20 61 20 70 6f 73 69 74 69 76 65 20 6e 75 6d 62 65 72	's.FPS.must.be.a.positive.number
3440	22 20 32 20 72 6f 75 6e 64 20 37 20 31 2e 30 20 74 69 6d 65 72 2d 6e 65 78 74 2d 69 6e 74 65 67	".2.round.7.1.0.timer-next-integ
3460	72 61 6c 2d 6d 75 6c 74 69 70 6c 65 2d 6f 66 2d 74 69 6d 65 20 63 75 72 72 65 6e 74 2d 74 69 6d	ral-multiple-of-time.current-tim
3480	65 20 74 69 6d 65 72 2d 73 65 74 2d 74 69 6d 65 20 74 69 6d 65 72 2d 73 65 74 2d 66 75 6e 63 74	e.timer-set-time.timer-set-funct
34a0	69 6f 6e 20 73 70 69 6e 6e 65 72 2d 2d 74 69 6d 65 72 2d 66 75 6e 63 74 69 6f 6e 20 74 69 6d 65	ion.spinner--timer-function.time
34c0	72 2d 61 63 74 69 76 61 74 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c	r-activate.make-byte-code."\301\
34e0	33 30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 70 69 6e 6e 65	300!\207".vconcat.vector.[spinne
3500	72 2d 73 74 6f 70 5d 5d 20 31 31 20 28 23 24 20 2e 20 31 32 35 39 31 29 5d 29 0a 23 40 31 31 32	r-stop]].11.(#$...12591)]).#@112
3520	39 20 53 74 61 72 74 20 61 20 6d 6f 64 65 2d 6c 69 6e 65 20 73 70 69 6e 6e 65 72 20 6f 66 20 67	9.Start.a.mode-line.spinner.of.g
3540	69 76 65 6e 20 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54 2e 0a 49 66 20 54 59 50 45 2d 4f 52 2d	iven.TYPE-OR-OBJECT..If.TYPE-OR-
3560	4f 42 4a 45 43 54 20 69 73 20 61 6e 20 6f 62 6a 65 63 74 20 63 72 65 61 74 65 64 20 77 69 74 68	OBJECT.is.an.object.created.with
3580	20 60 6d 61 6b 65 2d 73 70 69 6e 6e 65 72 27 2c 0a 73 69 6d 70 6c 79 20 61 63 74 69 76 61 74 65	.`make-spinner',.simply.activate
35a0	20 69 74 2e 20 20 54 68 69 73 20 6d 65 74 68 6f 64 20 69 73 20 64 65 73 69 67 6e 65 64 20 66 6f	.it...This.method.is.designed.fo
35c0	72 20 6d 69 6e 6f 72 20 6d 6f 64 65 73 2c 20 73 6f 0a 74 68 65 79 20 63 61 6e 20 75 73 65 20 74	r.minor.modes,.so.they.can.use.t
35e0	68 65 20 73 70 69 6e 6e 65 72 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 65 69 72 20 6c 69 67 68	he.spinner.as.part.of.their.ligh
3600	74 65 72 20 62 79 20 64 6f 69 6e 67 3a 0a 20 20 20 20 5c 3d 27 28 3a 65 76 61 6c 20 28 73 70 69	ter.by.doing:.....\='(:eval.(spi
3620	6e 6e 65 72 2d 70 72 69 6e 74 20 54 48 45 2d 53 50 49 4e 4e 45 52 29 29 0a 54 6f 20 73 74 6f 70	nner-print.THE-SPINNER)).To.stop
3640	20 74 68 69 73 20 73 70 69 6e 6e 65 72 2c 20 63 61 6c 6c 20 60 73 70 69 6e 6e 65 72 2d 73 74 6f	.this.spinner,.call.`spinner-sto
3660	70 27 20 6f 6e 20 69 74 2e 0a 0a 49 66 20 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54 20 69 73 20	p'.on.it...If.TYPE-OR-OBJECT.is.
3680	61 6e 79 74 68 69 6e 67 20 65 6c 73 65 2c 20 61 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 73 70	anything.else,.a.buffer-local.sp
36a0	69 6e 6e 65 72 20 69 73 0a 63 72 65 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 74 79 70 65 2c	inner.is.created.with.this.type,
36c0	20 61 6e 64 20 69 74 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 74 68 65 0a 60 6d 6f 64	.and.it.is.displayed.in.the.`mod
36e0	65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 27 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 69 74	e-line-process'.of.the.buffer.it
3700	20 77 61 73 20 63 72 65 61 74 65 64 20 69 74 2e 20 20 42 6f 74 68 0a 54 59 50 45 2d 4f 52 2d 4f	.was.created.it...Both.TYPE-OR-O
3720	42 4a 45 43 54 20 61 6e 64 20 46 50 53 20 61 72 65 20 70 61 73 73 65 64 20 74 6f 20 60 6d 61 6b	BJECT.and.FPS.are.passed.to.`mak
3740	65 2d 73 70 69 6e 6e 65 72 27 20 28 77 68 69 63 68 20 73 65 65 29 2e 0a 54 6f 20 73 74 6f 70 20	e-spinner'.(which.see)..To.stop.
3760	74 68 69 73 20 73 70 69 6e 6e 65 72 2c 20 63 61 6c 6c 20 60 73 70 69 6e 6e 65 72 2d 73 74 6f 70	this.spinner,.call.`spinner-stop
3780	27 20 69 6e 20 74 68 65 20 73 61 6d 65 20 62 75 66 66 65 72 2e 0a 0a 45 69 74 68 65 72 20 77 61	'.in.the.same.buffer...Either.wa
37a0	79 2c 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 20 66 75 6e 63 74 69 6f	y,.the.return.value.is.a.functio
37c0	6e 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 63 61 6c 6c 65 64 0a 61 6e 79 77 68 65 72 65 20 74	n.which.can.be.called.anywhere.t
37e0	6f 20 73 74 6f 70 20 74 68 69 73 20 73 70 69 6e 6e 65 72 2e 20 20 59 6f 75 20 63 61 6e 20 61 6c	o.stop.this.spinner...You.can.al
3800	73 6f 20 63 61 6c 6c 20 60 73 70 69 6e 6e 65 72 2d 73 74 6f 70 27 0a 69 6e 20 74 68 65 20 73 61	so.call.`spinner-stop'.in.the.sa
3820	6d 65 20 62 75 66 66 65 72 20 77 68 65 72 65 20 74 68 65 20 73 70 69 6e 6e 65 72 20 77 61 73 20	me.buffer.where.the.spinner.was.
3840	63 72 65 61 74 65 64 2e 0a 0a 46 50 53 2c 20 69 66 20 67 69 76 65 6e 2c 20 69 73 20 74 68 65 20	created...FPS,.if.given,.is.the.
3860	6e 75 6d 62 65 72 20 6f 66 20 64 65 73 69 72 65 64 20 66 72 61 6d 65 73 20 70 65 72 20 73 65 63	number.of.desired.frames.per.sec
3880	6f 6e 64 2e 0a 44 65 66 61 75 6c 74 20 69 73 20 60 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d	ond..Default.is.`spinner-frames-
38a0	70 65 72 2d 73 65 63 6f 6e 64 27 2e 0a 0a 44 45 4c 41 59 2c 20 69 66 20 67 69 76 65 6e 2c 20 69	per-second'...DELAY,.if.given,.i
38c0	73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20	s.the.number.of.seconds.to.wait.
38e0	75 6e 74 69 6c 20 61 63 74 75 61 6c 6c 79 0a 64 69 73 70 6c 61 79 69 6e 67 20 74 68 65 20 73 70	until.actually.displaying.the.sp
3900	69 6e 6e 65 72 2e 20 49 74 20 69 73 20 73 61 66 65 20 74 6f 20 63 61 6e 63 65 6c 20 74 68 65 20	inner..It.is.safe.to.cancel.the.
3920	73 70 69 6e 6e 65 72 20 62 65 66 6f 72 65 0a 74 68 69 73 20 74 69 6d 65 2c 20 69 6e 20 77 68 69	spinner.before.this.time,.in.whi
3940	63 68 20 63 61 73 65 20 69 74 20 77 6f 6e 27 74 20 64 69 73 70 6c 61 79 20 61 74 20 61 6c 6c 2e	ch.case.it.won't.display.at.all.
3960	0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 54 59 50 45 2d 4f 52 2d 4f 42 4a 45 43 54 20 46	..(fn.&optional.TYPE-OR-OBJECT.F
3980	50 53 20 44 45 4c 41 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 73 74	PS.DELAY)..(defalias.'spinner-st
39a0	61 72 74 20 23 5b 37 36 38 20 22 5c 33 30 34 03 21 5c 32 30 33 15 00 02 47 5c 33 30 35 59 5c 32	art.#[768."\304.!\203...G\305Y\2
39c0	30 33 15 00 02 5c 33 30 36 48 08 3e 5c 32 30 34 5c 32 30 37 00 5c 33 30 34 09 21 5c 32 30 33 46	03...\306H.>\204\207.\304.!\203F
39e0	00 09 47 5c 33 30 35 59 5c 32 30 33 46 00 09 5c 33 30 36 48 08 3e 5c 32 30 33 46 00 09 5c 33 30	..G\305Y\203F..\306H.>\203F..\30
3a00	36 48 08 3e 5c 32 30 34 39 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 09 44 5c 22 5c 32 31 30 09 5c	6H.>\2049.\307\310\311.D\"\210.\
3a20	32 31 31 5c 33 31 32 5c 33 31 33 06 06 21 49 5c 32 36 36 02 5c 32 30 32 76 00 5c 33 31 34 5c 33	211\312\313..!I\266.\202v.\314\3
3a40	31 35 5c 33 31 33 05 21 5c 33 30 36 05 5c 32 30 36 51 00 5c 6e 5c 33 31 34 5c 33 31 36 5c 33 31	15\313.!\306.\206Q.\n\314\316\31
3a60	37 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 26 09 5c	7\211\211\211\211\211\211\211&.\
3a80	33 31 37 70 5c 32 30 35 6d 00 5c 33 32 30 70 21 5c 32 30 33 6c 00 70 5c 32 30 32 6d 00 70 06 08	317p\205m.\320p!\203l.p\202m.p..
3aa0	5c 32 30 36 73 00 5c 33 30 36 26 08 11 09 5c 32 36 32 03 5c 33 32 31 0b 3e 5c 32 30 34 5c 32 30	\206s.\306&...\262.\321.>\204\20
3ac0	37 00 0b 5c 32 30 36 5c 32 30 34 00 5c 33 32 32 5c 33 32 31 44 13 01 5c 32 30 33 5c 32 34 31 00	7..\206\204.\322\321D..\203\241.
3ae0	02 5c 33 30 36 48 08 3e 5c 32 30 34 5c 32 33 32 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 05 44 5c	.\306H.>\204\232.\307\310\311.D\
3b00	22 5c 32 31 30 02 5c 32 31 31 5c 33 32 33 04 49 5c 32 36 36 02 5c 32 31 31 5c 32 30 33 5c 32 37	"\210.\211\323.I\266.\211\203\27
3b20	33 00 02 5c 33 30 36 48 08 3e 5c 32 30 34 5c 32 36 34 00 5c 33 30 37 5c 33 31 30 5c 33 31 31 05	3..\306H.>\204\264.\307\310\311.
3b40	44 5c 22 5c 32 31 30 02 5c 32 31 31 5c 33 32 34 03 49 5c 32 36 36 02 5c 33 32 35 03 21 5c 32 30	D\"\210.\211\324.I\266.\325.!\20
3b60	37 22 20 5b 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 73 70 69 6e 6e	7".[cl-struct-spinner-tags.spinn
3b80	65 72 2d 63 75 72 72 65 6e 74 20 73 70 69 6e 6e 65 72 2d 66 72 61 6d 65 73 2d 70 65 72 2d 73 65	er-current.spinner-frames-per-se
3ba0	63 6f 6e 64 20 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 76 65 63 74 6f 72 70 20 38	cond.mode-line-process.vectorp.8
3bc0	20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70	.0.signal.wrong-type-argument.sp
3be0	69 6e 6e 65 72 20 31 20 73 70 69 6e 6e 65 72 2d 2d 74 79 70 65 2d 74 6f 2d 66 72 61 6d 65 73 20	inner.1.spinner--type-to-frames.
3c00	76 65 63 74 6f 72 20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 20 74 20 6e 69 6c 20 62	vector.cl-struct-spinner.t.nil.b
3c20	75 66 66 65 72 70 20 73 70 69 6e 6e 65 72 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 63 6f 6e 73 74 72	ufferp.spinner--mode-line-constr
3c40	75 63 74 20 22 22 20 33 20 37 20 73 70 69 6e 6e 65 72 2d 2d 73 74 61 72 74 2d 74 69 6d 65 72 5d	uct."".3.7.spinner--start-timer]
3c60	20 31 38 20 28 23 24 20 2e 20 31 33 36 30 32 29 5d 29 0a 23 40 38 30 20 4c 69 6b 65 20 60 73 70	.18.(#$...13602)]).#@80.Like.`sp
3c80	69 6e 6e 65 72 2d 70 72 69 6e 74 27 2c 20 62 75 74 20 61 6c 73 6f 20 73 74 61 72 74 20 53 50 49	inner-print',.but.also.start.SPI
3ca0	4e 4e 45 52 20 69 66 20 69 74 27 73 20 6e 6f 74 20 61 63 74 69 76 65 2e 0a 0a 28 66 6e 20 53 50	NNER.if.it's.not.active...(fn.SP
3cc0	49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 73 74 61 72 74	INNER)..(defalias.'spinner-start
3ce0	2d 70 72 69 6e 74 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 31 48 08 3e 5c 32 30 34 0f 00 5c	-print.#[257."\211\301H.>\204..\
3d00	33 30 32 5c 33 30 33 5c 33 30 34 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 30 35 48 5c 32 30 34	302\303\304.D\"\210\211\305H\204
3d20	19 00 5c 33 30 36 01 21 5c 32 31 30 5c 33 30 37 01 21 5c 32 30 37 22 20 5b 63 6c 2d 73 74 72 75	..\306.!\210\307.!\207".[cl-stru
3d40	63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74	ct-spinner-tags.0.signal.wrong-t
3d60	79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73 70 69 6e 6e 65 72 20 35 20 73 70 69 6e 6e 65 72 2d 73	ype-argument.spinner.5.spinner-s
3d80	74 61 72 74 20 73 70 69 6e 6e 65 72 2d 70 72 69 6e 74 5d 20 35 20 28 23 24 20 2e 20 31 35 34 38	tart.spinner-print].5.(#$...1548
3da0	30 29 5d 29 0a 23 40 31 36 30 20 53 74 6f 70 20 53 50 49 4e 4e 45 52 2c 20 64 65 66 61 75 6c 74	0)]).#@160.Stop.SPINNER,.default
3dc0	69 6e 67 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 73 70 69 6e	ing.to.the.current.buffer's.spin
3de0	6e 65 72 2e 0a 49 74 20 69 73 20 61 6c 77 61 79 73 20 73 61 66 65 20 74 6f 20 63 61 6c 6c 20 74	ner..It.is.always.safe.to.call.t
3e00	68 69 73 20 66 75 6e 63 74 69 6f 6e 2c 20 65 76 65 6e 20 69 66 20 74 68 65 72 65 20 69 73 20 6e	his.function,.even.if.there.is.n
3e20	6f 0a 61 63 74 69 76 65 20 73 70 69 6e 6e 65 72 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c	o.active.spinner...(fn.&optional
3e40	20 53 50 49 4e 4e 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 73 70 69 6e 6e 65 72 2d 73 74	.SPINNER)..(defalias.'spinner-st
3e60	6f 70 20 23 5b 32 35 36 20 22 5c 32 31 31 5c 32 30 36 05 00 08 5c 33 30 32 01 21 5c 32 30 35 4f	op.#[256."\211\206...\302.!\205O
3e80	00 5c 32 31 31 47 5c 33 30 33 59 5c 32 30 35 4f 00 5c 32 31 31 5c 33 30 34 48 09 3e 5c 32 30 35	.\211G\303Y\205O.\211\304H.>\205
3ea0	4f 00 5c 32 31 31 5c 33 30 34 48 09 3e 5c 32 30 34 29 00 5c 33 30 35 5c 33 30 36 5c 33 30 37 03	O.\211\304H.>\204).\305\306\307.
3ec0	44 5c 22 5c 32 31 30 5c 32 31 31 5c 33 31 30 48 5c 33 31 31 01 21 5c 32 30 33 36 00 5c 33 31 32	D\"\210\211\310H\311.!\2036.\312
3ee0	01 21 5c 32 31 30 5c 32 31 30 5c 32 31 31 5c 33 30 34 48 09 3e 5c 32 30 34 46 00 5c 33 30 35 5c	.!\210\210\211\304H.>\204F.\305\
3f00	33 30 36 5c 33 30 37 03 44 5c 22 5c 32 31 30 5c 32 31 31 5c 32 31 31 5c 33 31 33 5c 33 31 34 49	306\307.D\"\210\211\211\313\314I
3f20	5c 32 36 36 02 5c 33 31 35 20 5c 32 30 37 22 20 5b 73 70 69 6e 6e 65 72 2d 63 75 72 72 65 6e 74	\266.\315.\207".[spinner-current
3f40	20 63 6c 2d 73 74 72 75 63 74 2d 73 70 69 6e 6e 65 72 2d 74 61 67 73 20 76 65 63 74 6f 72 70 20	.cl-struct-spinner-tags.vectorp.
3f60	38 20 30 20 73 69 67 6e 61 6c 20 77 72 6f 6e 67 2d 74 79 70 65 2d 61 72 67 75 6d 65 6e 74 20 73	8.0.signal.wrong-type-argument.s
3f80	70 69 6e 6e 65 72 20 34 20 74 69 6d 65 72 70 20 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 35 20 6e	pinner.4.timerp.cancel-timer.5.n
3fa0	69 6c 20 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 36 20 28 23 24	il.force-mode-line-update].6.(#$
3fc0	20 2e 20 31 35 37 38 37 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 73 70 69 6e 6e 65 72 29 0a	...15787)]).(provide.'spinner).