blob: 0ddc9351f9613f30475eee38df38058e1df206d1 (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 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 31 30 5c 33 30 30 5c	"\300\301!\210\300\302!\210\300\
01c0	33 30 33 21 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 69 64 65 72 2d 63 6c 69 65 6e 74 20	303!\207".[require.cider-client.
01e0	63 69 64 65 72 2d 63 6f 6d 6d 6f 6e 20 74 68 69 6e 67 61 74 70 74 5d 20 32 29 0a 23 40 31 32 39	cider-common.thingatpt].2).#@129
0200	20 46 69 6e 64 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 56 41 52 2c 20 6f 70 74	.Find.the.definition.of.VAR,.opt
0220	69 6f 6e 61 6c 6c 79 20 61 74 20 61 20 73 70 65 63 69 66 69 63 20 4c 49 4e 45 2e 0a 0a 44 69 73	ionally.at.a.specific.LINE...Dis
0240	70 6c 61 79 20 74 68 65 20 72 65 73 75 6c 74 73 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20	play.the.results.in.a.different.
0260	77 69 6e 64 6f 77 2e 0a 0a 28 66 6e 20 56 41 52 20 26 6f 70 74 69 6f 6e 61 6c 20 4c 49 4e 45 29	window...(fn.VAR.&optional.LINE)
0280	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 2d 66 69 6e 64 2d 76 61 72 2d 6f 74 68	..(defalias.'cider--find-var-oth
02a0	65 72 2d 77 69 6e 64 6f 77 20 23 5b 35 31 33 20 22 5c 33 30 30 02 21 5c 32 31 31 5c 32 30 33 19	er-window.#[513."\300.!\211\203.
02c0	00 01 5c 32 30 33 12 00 5c 33 30 31 01 5c 33 30 32 04 23 5c 32 36 32 01 5c 33 30 33 01 5c 33 30	..\203..\301.\302.#\262.\303.\30
02e0	34 5c 22 5c 32 30 32 1d 00 5c 33 30 35 5c 33 30 36 04 5c 22 5c 32 30 37 22 20 5b 63 69 64 65 72	4\"\202..\305\306.\"\207".[cider
0300	2d 76 61 72 2d 69 6e 66 6f 20 6e 72 65 70 6c 2d 64 69 63 74 2d 70 75 74 20 22 6c 69 6e 65 22 20	-var-info.nrepl-dict-put."line".
0320	63 69 64 65 72 2d 2d 6a 75 6d 70 2d 74 6f 2d 6c 6f 63 2d 66 72 6f 6d 2d 69 6e 66 6f 20 74 20 75	cider--jump-to-loc-from-info.t.u
0340	73 65 72 2d 65 72 72 6f 72 20 22 53 79 6d 62 6f 6c 20 60 25 73 27 20 6e 6f 74 20 72 65 73 6f 6c	ser-error."Symbol.`%s'.not.resol
0360	76 65 64 22 5d 20 37 20 28 23 24 20 2e 20 35 31 33 29 5d 29 0a 23 40 38 35 20 46 69 6e 64 20 74	ved"].7.(#$...513)]).#@85.Find.t
0380	68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 56 41 52 2c 20 6f 70 74 69 6f 6e 61 6c 6c 79	he.definition.of.VAR,.optionally
03a0	20 61 74 20 61 20 73 70 65 63 69 66 69 63 20 4c 49 4e 45 2e 0a 0a 28 66 6e 20 56 41 52 20 26 6f	.at.a.specific.LINE...(fn.VAR.&o
03c0	70 74 69 6f 6e 61 6c 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d	ptional.LINE)..(defalias.'cider-
03e0	2d 66 69 6e 64 2d 76 61 72 20 23 5b 35 31 33 20 22 5c 33 30 30 02 21 5c 32 31 31 5c 32 30 33 18	-find-var.#[513."\300.!\211\203.
0400	00 01 5c 32 30 33 12 00 5c 33 30 31 01 5c 33 30 32 04 23 5c 32 36 32 01 5c 33 30 33 01 21 5c 32	..\203..\301.\302.#\262.\303.!\2
0420	30 32 1c 00 5c 33 30 34 5c 33 30 35 04 5c 22 5c 32 30 37 22 20 5b 63 69 64 65 72 2d 76 61 72 2d	02..\304\305.\"\207".[cider-var-
0440	69 6e 66 6f 20 6e 72 65 70 6c 2d 64 69 63 74 2d 70 75 74 20 22 6c 69 6e 65 22 20 63 69 64 65 72	info.nrepl-dict-put."line".cider
0460	2d 2d 6a 75 6d 70 2d 74 6f 2d 6c 6f 63 2d 66 72 6f 6d 2d 69 6e 66 6f 20 75 73 65 72 2d 65 72 72	--jump-to-loc-from-info.user-err
0480	6f 72 20 22 53 79 6d 62 6f 6c 20 60 25 73 27 20 6e 6f 74 20 72 65 73 6f 6c 76 65 64 22 5d 20 37	or."Symbol.`%s'.not.resolved"].7
04a0	20 28 23 24 20 2e 20 38 39 30 29 5d 29 0a 23 40 33 35 31 20 46 69 6e 64 20 64 65 66 69 6e 69 74	.(#$...890)]).#@351.Find.definit
04c0	69 6f 6e 20 66 6f 72 20 56 41 52 20 61 74 20 4c 49 4e 45 2e 0a 50 72 6f 6d 70 74 20 61 63 63 6f	ion.for.VAR.at.LINE..Prompt.acco
04e0	72 64 69 6e 67 20 74 6f 20 70 72 65 66 69 78 20 41 52 47 20 61 6e 64 20 60 63 69 64 65 72 2d 70	rding.to.prefix.ARG.and.`cider-p
0500	72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27 2e 0a 41 20 73 69 6e 67 6c 65 20 6f 72 20 64	rompt-for-symbol'..A.single.or.d
0520	6f 75 62 6c 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 6e 76 65 72 74 73 20 74 68	ouble.prefix.argument.inverts.th
0540	65 20 6d 65 61 6e 69 6e 67 20 6f 66 0a 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73	e.meaning.of.`cider-prompt-for-s
0560	79 6d 62 6f 6c 27 2e 20 20 41 20 70 72 65 66 69 78 20 6f 66 20 60 2d 60 20 6f 72 20 61 20 64 6f	ymbol'...A.prefix.of.`-`.or.a.do
0580	75 62 6c 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 63 61 75 73 65 73 0a 74 68 65 20	uble.prefix.argument.causes.the.
05a0	72 65 73 75 6c 74 73 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 61 20 64 69 66	results.to.be.displayed.in.a.dif
05c0	66 65 72 65 6e 74 20 77 69 6e 64 6f 77 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75	ferent.window...The.default.valu
05e0	65 20 69 73 0a 74 68 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f	e.is.thing.at.point...(fn.&optio
0600	6e 61 6c 20 41 52 47 20 56 41 52 20 4c 49 4e 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69	nal.ARG.VAR.LINE)..(defalias.'ci
0620	64 65 72 2d 66 69 6e 64 2d 76 61 72 20 23 5b 37 36 38 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31	der-find-var.#[768."\300\301!\21
0640	30 01 5c 32 30 33 0d 00 5c 33 30 32 02 02 5c 22 5c 32 30 37 5c 33 30 33 03 21 5c 33 30 34 5c 33	0.\203..\302..\"\207\303.!\304\3
0660	30 35 05 21 5c 32 30 33 1b 00 5c 33 30 36 5c 32 30 32 1c 00 5c 33 30 32 5c 22 5c 32 30 37 22 20	05.!\203..\306\202..\302\"\207".
0680	5b 63 69 64 65 72 2d 65 6e 73 75 72 65 2d 6f 70 2d 73 75 70 70 6f 72 74 65 64 20 22 69 6e 66 6f	[cider-ensure-op-supported."info
06a0	22 20 63 69 64 65 72 2d 2d 66 69 6e 64 2d 76 61 72 20 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66	".cider--find-var.cider-prompt-f
06c0	6f 72 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 22 53 79 6d 62 6f 6c 22 20 63 69 64 65	or-symbol-function."Symbol".cide
06e0	72 2d 2d 6f 70 65 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 2d 70 20 63 69 64 65 72 2d 2d 66 69	r--open-other-window-p.cider--fi
0700	6e 64 2d 76 61 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 5d 20 37 20 28 23 24 20 2e 20 31 32 30	nd-var-other-window].7.(#$...120
0720	34 29 20 22 50 22 5d 29 0a 23 40 32 30 39 20 46 69 6e 64 20 74 68 65 20 53 59 4d 42 4f 4c 2d 46	4)."P"]).#@209.Find.the.SYMBOL-F
0740	49 4c 45 20 61 74 20 70 6f 69 6e 74 2e 0a 43 41 4c 4c 42 41 43 4b 20 75 70 6f 6e 20 66 61 69 6c	ILE.at.point..CALLBACK.upon.fail
0760	75 72 65 20 74 6f 20 69 6e 76 6f 6b 65 20 70 72 6f 6d 70 74 20 69 66 20 6e 6f 74 20 70 72 6f 6d	ure.to.invoke.prompt.if.not.prom
0780	70 74 65 64 20 70 72 65 76 69 6f 75 73 6c 79 2e 0a 53 68 6f 77 20 72 65 73 75 6c 74 73 20 69 6e	pted.previously..Show.results.in
07a0	20 61 20 64 69 66 66 65 72 65 6e 74 20 77 69 6e 64 6f 77 20 69 66 20 4f 54 48 45 52 2d 57 49 4e	.a.different.window.if.OTHER-WIN
07c0	44 4f 57 20 69 73 20 74 72 75 65 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 2d 46 49 4c 45 20 43 41	DOW.is.true...(fn.SYMBOL-FILE.CA
07e0	4c 4c 42 41 43 4b 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 54 48 45 52 2d 57 49 4e 44 4f 57 29 1f 0a	LLBACK.&optional.OTHER-WINDOW)..
0800	28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 2d 66 69 6e 64 2d 64 77 69 6d 20 23 5b 37 37	(defalias.'cider--find-dwim.#[77
0820	30 20 22 5c 33 30 31 03 21 5c 32 31 31 5c 32 30 33 0e 00 5c 33 30 32 01 03 5c 22 5c 32 30 32 44	0."\301.!\211\203..\302..\"\202D
0840	00 5c 33 30 33 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 04 21 5c 32 31 31 5c 32 30 35 1c 00 5c 33	.\303\304!\210\305.!\211\205..\3
0860	30 36 01 21 5c 32 31 31 5c 32 30 33 29 00 5c 33 30 37 01 5c 33 31 30 06 06 23 5c 32 30 32 42 00	06.!\211\203).\307.\310..#\202B.
0880	5c 33 31 31 08 21 5c 32 30 33 37 00 5c 33 31 32 5c 33 31 33 06 07 5c 22 5c 32 30 32 42 00 08 3f	\311.!\2037.\312\313..\"\202B..?
08a0	5c 32 30 35 3d 00 5c 33 31 34 18 5c 33 31 35 05 21 29 5c 32 36 36 5c 32 30 32 5c 32 30 37 22 20	\205=.\314.\315.!)\266\202\207".
08c0	5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 63 69 64 65 72 2d 76 61 72 2d 69 6e	[current-prefix-arg.cider-var-in
08e0	66 6f 20 63 69 64 65 72 2d 2d 6a 75 6d 70 2d 74 6f 2d 6c 6f 63 2d 66 72 6f 6d 2d 69 6e 66 6f 20	fo.cider--jump-to-loc-from-info.
0900	63 69 64 65 72 2d 65 6e 73 75 72 65 2d 6f 70 2d 73 75 70 70 6f 72 74 65 64 20 22 72 65 73 6f 75	cider-ensure-op-supported."resou
0920	72 63 65 22 20 63 69 64 65 72 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 3a 72 65 73 6f 75 72 63 65	rce".cider-sync-request:resource
0940	20 63 69 64 65 72 2d 66 69 6e 64 2d 66 69 6c 65 20 63 69 64 65 72 2d 6a 75 6d 70 2d 74 6f 20 30	.cider-find-file.cider-jump-to.0
0960	20 63 69 64 65 72 2d 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 2d 70 20 65 72 72 6f	.cider--prompt-for-symbol-p.erro
0980	72 20 22 52 65 73 6f 75 72 63 65 20 6f 72 20 76 61 72 20 25 73 20 6e 6f 74 20 72 65 73 6f 6c 76	r."Resource.or.var.%s.not.resolv
09a0	65 64 22 20 28 34 29 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 5d 20 31 30 20 28	ed".(4).call-interactively].10.(
09c0	23 24 20 2e 20 31 38 33 39 29 5d 29 0a 23 40 38 36 20 47 65 74 20 69 6e 74 65 72 61 63 74 69 76	#$...1839)]).#@86.Get.interactiv
09e0	65 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 6a 75 6d 70 2d 74 6f 20 66 75 6e 63 74 69 6f 6e	e.arguments.for.jump-to.function
0a00	73 20 75 73 69 6e 67 20 50 52 4f 4d 50 54 20 61 73 20 6e 65 65 64 65 64 2e 0a 0a 28 66 6e 20 50	s.using.PROMPT.as.needed...(fn.P
0a20	52 4f 4d 50 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 2d 66 69 6e 64 2d 64	ROMPT)..(defalias.'cider--find-d
0a40	77 69 6d 2d 69 6e 74 65 72 61 63 74 69 76 65 20 23 5b 32 35 37 20 22 5c 33 30 31 08 21 5c 32 30	wim-interactive.#[257."\301.!\20
0a60	33 0e 00 5c 33 30 32 01 5c 33 30 33 5c 33 30 34 21 5c 22 43 5c 32 30 37 5c 33 30 33 5c 33 30 34	3..\302.\303\304!\"C\207\303\304
0a80	21 5c 32 30 36 15 00 5c 33 30 35 43 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69	!\206..\305C\207".[current-prefi
0aa0	78 2d 61 72 67 20 63 69 64 65 72 2d 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 2d 70	x-arg.cider--prompt-for-symbol-p
0ac0	20 63 69 64 65 72 2d 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 74 68 69 6e	.cider-read-from-minibuffer.thin
0ae0	67 2d 61 74 2d 70 6f 69 6e 74 20 66 69 6c 65 6e 61 6d 65 20 22 22 5d 20 35 20 28 23 24 20 2e 20	g-at-point.filename.""].5.(#$...
0b00	32 35 31 34 29 5d 29 0a 23 40 38 30 20 4a 75 6d 70 20 74 6f 20 53 59 4d 42 4f 4c 2d 46 49 4c 45	2514)]).#@80.Jump.to.SYMBOL-FILE
0b20	20 61 74 20 70 6f 69 6e 74 2c 20 70 6c 61 63 65 20 72 65 73 75 6c 74 73 20 69 6e 20 6f 74 68 65	.at.point,.place.results.in.othe
0b40	72 20 77 69 6e 64 6f 77 2e 0a 0a 28 66 6e 20 53 59 4d 42 4f 4c 2d 46 49 4c 45 29 1f 0a 28 64 65	r.window...(fn.SYMBOL-FILE)..(de
0b60	66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 66 69 6e 64 2d 64 77 69 6d 2d 6f 74 68 65 72 2d 77 69	falias.'cider-find-dwim-other-wi
0b80	6e 64 6f 77 20 23 5b 32 35 37 20 22 5c 33 30 30 01 5c 33 30 31 5c 33 30 32 23 5c 32 30 37 22 20	ndow.#[257."\300.\301\302#\207".
0ba0	5b 63 69 64 65 72 2d 2d 66 69 6e 64 2d 64 77 69 6d 20 63 69 64 65 72 2d 66 69 6e 64 2d 64 77 69	[cider--find-dwim.cider-find-dwi
0bc0	6d 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 74 5d 20 35 20 28 23 24 20 2e 20 32 38 32 39 29 20	m-other-window.t].5.(#$...2829).
0be0	28 63 69 64 65 72 2d 2d 66 69 6e 64 2d 64 77 69 6d 2d 69 6e 74 65 72 61 63 74 69 76 65 20 22 4a	(cider--find-dwim-interactive."J
0c00	75 6d 70 20 74 6f 3a 20 22 29 5d 29 0a 23 40 35 34 32 20 46 69 6e 64 20 61 6e 64 20 64 69 73 70	ump.to:.")]).#@542.Find.and.disp
0c20	6c 61 79 20 74 68 65 20 53 59 4d 42 4f 4c 2d 46 49 4c 45 20 61 74 20 70 6f 69 6e 74 2e 0a 53 59	lay.the.SYMBOL-FILE.at.point..SY
0c40	4d 42 4f 4c 2d 46 49 4c 45 20 63 6f 75 6c 64 20 62 65 20 61 20 76 61 72 20 6f 72 20 61 20 72 65	MBOL-FILE.could.be.a.var.or.a.re
0c60	73 6f 75 72 63 65 2e 20 20 49 66 20 74 68 69 6e 67 20 61 74 20 70 6f 69 6e 74 20 69 73 20 65 6d	source...If.thing.at.point.is.em
0c80	70 74 79 20 74 68 65 6e 0a 73 68 6f 77 20 64 69 72 65 64 20 6f 6e 20 70 72 6f 6a 65 63 74 2e 20	pty.then.show.dired.on.project..
0ca0	20 49 66 20 76 61 72 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 74 72 79 20 74 6f 20 6a 75 6d	.If.var.is.not.found,.try.to.jum
0cc0	70 20 74 6f 20 72 65 73 6f 75 72 63 65 20 6f 66 20 74 68 65 0a 73 61 6d 65 20 6e 61 6d 65 2e 20	p.to.resource.of.the.same.name..
0ce0	20 57 68 65 6e 20 63 61 6c 6c 65 64 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 61 20 70 72	.When.called.interactively,.a.pr
0d00	6f 6d 70 74 20 69 73 20 67 69 76 65 6e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 0a 76	ompt.is.given.according.to.the.v
0d20	61 72 69 61 62 6c 65 20 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c	ariable.`cider-prompt-for-symbol
0d40	27 2e 20 20 41 20 73 69 6e 67 6c 65 20 6f 72 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78 20 61 72	'...A.single.or.double.prefix.ar
0d60	67 75 6d 65 6e 74 0a 69 6e 76 65 72 74 73 20 74 68 65 20 6d 65 61 6e 69 6e 67 2e 20 20 41 20 70	gument.inverts.the.meaning...A.p
0d80	72 65 66 69 78 20 6f 66 20 60 2d 27 20 6f 72 20 61 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78 20	refix.of.`-'.or.a.double.prefix.
0da0	61 72 67 75 6d 65 6e 74 20 63 61 75 73 65 73 0a 74 68 65 20 72 65 73 75 6c 74 73 20 74 6f 20 62	argument.causes.the.results.to.b
0dc0	65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 77 69 6e 64 6f	e.displayed.in.a.different.windo
0de0	77 2e 20 20 41 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 74 68 69 6e 67 0a 61 74 20	w...A.default.value.of.thing.at.
0e00	70 6f 69 6e 74 20 69 73 20 67 69 76 65 6e 20 77 68 65 6e 20 70 72 6f 6d 70 74 65 64 2e 0a 0a 28	point.is.given.when.prompted...(
0e20	66 6e 20 53 59 4d 42 4f 4c 2d 46 49 4c 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65	fn.SYMBOL-FILE)..(defalias.'cide
0e40	72 2d 66 69 6e 64 2d 64 77 69 6d 20 23 5b 32 35 37 20 22 5c 33 30 31 01 5c 33 30 32 5c 33 30 33	r-find-dwim.#[257."\301.\302\303
0e60	08 21 23 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 63 69 64	.!#\207".[current-prefix-arg.cid
0e80	65 72 2d 2d 66 69 6e 64 2d 64 77 69 6d 20 63 69 64 65 72 2d 66 69 6e 64 2d 64 77 69 6d 20 63 69	er--find-dwim.cider-find-dwim.ci
0ea0	64 65 72 2d 2d 6f 70 65 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 2d 70 5d 20 36 20 28 23 24 20	der--open-other-window-p].6.(#$.
0ec0	2e 20 33 30 39 31 29 20 28 63 69 64 65 72 2d 2d 66 69 6e 64 2d 64 77 69 6d 2d 69 6e 74 65 72 61	..3091).(cider--find-dwim-intera
0ee0	63 74 69 76 65 20 22 4a 75 6d 70 20 74 6f 3a 20 22 29 5d 29 0a 23 40 33 34 31 20 46 69 6e 64 20	ctive."Jump.to:.")]).#@341.Find.
0f00	74 68 65 20 72 65 73 6f 75 72 63 65 20 61 74 20 50 41 54 48 2e 0a 50 72 6f 6d 70 74 20 66 6f 72	the.resource.at.PATH..Prompt.for
0f20	20 69 6e 70 75 74 20 61 73 20 69 6e 64 69 63 61 74 65 64 20 62 79 20 74 68 65 20 76 61 72 69 61	.input.as.indicated.by.the.varia
0f40	62 6c 65 20 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27 2e 0a 41	ble.`cider-prompt-for-symbol'..A
0f60	20 73 69 6e 67 6c 65 20 6f 72 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e	.single.or.double.prefix.argumen
0f80	74 20 69 6e 76 65 72 74 73 20 74 68 65 20 6d 65 61 6e 69 6e 67 20 6f 66 0a 60 63 69 64 65 72 2d	t.inverts.the.meaning.of.`cider-
0fa0	70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27 2e 20 20 41 20 70 72 65 66 69 78 20 61 72	prompt-for-symbol'...A.prefix.ar
0fc0	67 75 6d 65 6e 74 20 6f 66 20 60 2d 60 20 6f 72 20 61 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78	gument.of.`-`.or.a.double.prefix
0fe0	0a 61 72 67 75 6d 65 6e 74 20 63 61 75 73 65 73 20 74 68 65 20 72 65 73 75 6c 74 73 20 74 6f 20	.argument.causes.the.results.to.
1000	62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 20 20 54	be.displayed.in.other.window...T
1020	68 65 20 64 65 66 61 75 6c 74 0a 76 61 6c 75 65 20 69 73 20 74 68 69 6e 67 20 61 74 20 70 6f 69	he.default.value.is.thing.at.poi
1040	6e 74 2e 0a 0a 28 66 6e 20 50 41 54 48 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72	nt...(fn.PATH)..(defalias.'cider
1060	2d 66 69 6e 64 2d 72 65 73 6f 75 72 63 65 20 23 5b 32 35 37 20 22 5c 33 30 31 5c 33 30 32 21 5c	-find-resource.#[257."\301\302!\
1080	32 31 30 5c 32 31 31 47 5c 33 30 33 55 5c 32 30 33 0f 00 5c 33 30 34 5c 33 30 35 21 5c 32 31 30	210\211G\303U\203..\304\305!\210
10a0	5c 33 30 36 01 21 5c 32 31 31 5c 32 30 35 19 00 5c 33 30 37 01 21 5c 32 31 31 5c 32 30 33 27 00	\306.!\211\205..\307.!\211\203'.
10c0	5c 33 31 30 01 5c 33 31 31 5c 33 31 32 08 21 23 5c 32 30 32 3c 00 5c 33 31 33 08 21 5c 32 30 33	\310.\311\312.!#\202<.\313.!\203
10e0	34 00 5c 33 30 34 5c 33 31 34 04 5c 22 5c 32 30 32 3c 00 5c 33 31 35 08 21 18 5c 33 31 36 5c 33	4.\304\314.\"\202<.\315.!.\316\3
1100	31 37 21 29 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 63 69	17!)\207".[current-prefix-arg.ci
1120	64 65 72 2d 65 6e 73 75 72 65 2d 6f 70 2d 73 75 70 70 6f 72 74 65 64 20 22 72 65 73 6f 75 72 63	der-ensure-op-supported."resourc
1140	65 22 20 30 20 65 72 72 6f 72 20 22 43 61 6e 6e 6f 74 20 66 69 6e 64 20 72 65 73 6f 75 72 63 65	e".0.error."Cannot.find.resource
1160	20 66 6f 72 20 65 6d 70 74 79 20 70 61 74 68 22 20 63 69 64 65 72 2d 73 79 6e 63 2d 72 65 71 75	.for.empty.path".cider-sync-requ
1180	65 73 74 3a 72 65 73 6f 75 72 63 65 20 63 69 64 65 72 2d 66 69 6e 64 2d 66 69 6c 65 20 63 69 64	est:resource.cider-find-file.cid
11a0	65 72 2d 6a 75 6d 70 2d 74 6f 20 6e 69 6c 20 63 69 64 65 72 2d 2d 6f 70 65 6e 2d 6f 74 68 65 72	er-jump-to.nil.cider--open-other
11c0	2d 77 69 6e 64 6f 77 2d 70 20 63 69 64 65 72 2d 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62	-window-p.cider--prompt-for-symb
11e0	6f 6c 2d 70 20 22 43 61 6e 6e 6f 74 20 66 69 6e 64 20 72 65 73 6f 75 72 63 65 20 25 73 22 20 63	ol-p."Cannot.find.resource.%s".c
1200	69 64 65 72 2d 2d 69 6e 76 65 72 74 2d 70 72 65 66 69 78 2d 61 72 67 20 63 61 6c 6c 2d 69 6e 74	ider--invert-prefix-arg.call-int
1220	65 72 61 63 74 69 76 65 6c 79 20 63 69 64 65 72 2d 66 69 6e 64 2d 72 65 73 6f 75 72 63 65 5d 20	eractively.cider-find-resource].
1240	38 20 28 23 24 20 2e 20 33 38 33 35 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 08 21	8.(#$...3835).(byte-code."\301.!
1260	5c 32 30 33 13 00 5c 33 30 32 5c 33 30 33 5c 33 30 34 20 5c 33 30 35 5c 32 31 31 5c 33 30 36 5c	\203..\302\303\304.\305\211\306\
1280	33 30 37 21 25 5c 32 30 32 1a 00 5c 33 30 36 5c 33 30 37 21 5c 32 30 36 1a 00 5c 33 31 30 43 5c	307!%\202..\306\307!\206..\310C\
12a0	32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 63 69 64 65 72 2d 2d	207".[current-prefix-arg.cider--
12c0	70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 2d 70 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72	prompt-for-symbol-p.completing-r
12e0	65 61 64 20 22 52 65 73 6f 75 72 63 65 3a 20 22 20 63 69 64 65 72 2d 73 79 6e 63 2d 72 65 71 75	ead."Resource:.".cider-sync-requ
1300	65 73 74 3a 72 65 73 6f 75 72 63 65 73 2d 6c 69 73 74 20 6e 69 6c 20 74 68 69 6e 67 2d 61 74 2d	est:resources-list.nil.thing-at-
1320	70 6f 69 6e 74 20 66 69 6c 65 6e 61 6d 65 20 22 22 5d 20 37 29 5d 29 0a 23 40 31 33 38 20 49 6e	point.filename.""].7)]).#@138.In
1340	76 65 72 74 20 74 68 65 20 65 66 66 65 63 74 20 6f 66 20 70 72 65 66 69 78 20 76 61 6c 75 65 20	vert.the.effect.of.prefix.value.
1360	41 52 47 20 6f 6e 20 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27	ARG.on.`cider-prompt-for-symbol'
1380	2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 70 72 65 73 65 72 76 65 73 20 74 68 65 20 60 6f	..This.function.preserves.the.`o
13a0	74 68 65 72 2d 77 69 6e 64 6f 77 27 20 6d 65 61 6e 69 6e 67 20 6f 66 20 41 52 47 2e 0a 0a 28 66	ther-window'.meaning.of.ARG...(f
13c0	6e 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 2d 69 6e 76 65 72 74	n.ARG)..(defalias.'cider--invert
13e0	2d 70 72 65 66 69 78 2d 61 72 67 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 5c 33 30	-prefix-arg.#[257."\300.!\211\30
1400	31 3d 5c 32 30 33 0d 00 5c 33 30 32 5c 32 30 32 5c 22 00 5c 32 31 31 5c 33 30 32 3d 5c 32 30 33	1=\203..\302\202\".\211\302=\203
1420	17 00 5c 33 30 31 5c 32 30 32 5c 22 00 5c 32 31 31 5c 33 30 33 3d 5c 32 30 33 21 00 5c 33 30 34	..\301\202\".\211\303=\203!.\304
1440	5c 32 30 32 5c 22 00 5c 33 30 33 5c 32 30 37 22 20 5b 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63	\202\".\303\207".[prefix-numeric
1460	2d 76 61 6c 75 65 20 31 36 20 2d 31 20 34 20 6e 69 6c 5d 20 34 20 28 23 24 20 2e 20 34 39 32 36	-value.16.-1.4.nil].4.(#$...4926
1480	29 5d 29 0a 23 40 37 38 20 54 65 73 74 20 70 72 65 66 69 78 20 76 61 6c 75 65 20 41 52 47 20 66	)]).#@78.Test.prefix.value.ARG.f
14a0	6f 72 20 69 74 73 20 65 66 66 65 63 74 20 6f 6e 20 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66	or.its.effect.on.`cider-prompt-f
14c0	6f 72 2d 73 79 6d 62 6f 6c 60 2e 0a 0a 28 66 6e 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73	or-symbol`...(fn.ARG)..(defalias
14e0	20 27 63 69 64 65 72 2d 2d 70 72 65 66 69 78 2d 69 6e 76 65 72 74 2d 70 72 6f 6d 70 74 2d 70 20	.'cider--prefix-invert-prompt-p.
1500	23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 5c 33 30 31 3d 5c 32 30 34 0f 00 5c 32 31 31	#[257."\300.!\211\301=\204..\211
1520	5c 33 30 32 3d 5c 32 30 35 10 00 5c 33 30 33 5c 32 30 37 22 20 5b 70 72 65 66 69 78 2d 6e 75 6d	\302=\205..\303\207".[prefix-num
1540	65 72 69 63 2d 76 61 6c 75 65 20 31 36 20 34 20 74 5d 20 34 20 28 23 24 20 2e 20 35 32 35 37 29	eric-value.16.4.t].4.(#$...5257)
1560	5d 29 0a 23 40 32 30 39 20 43 68 65 63 6b 20 69 66 20 63 69 64 65 72 20 73 68 6f 75 6c 64 20 70	]).#@209.Check.if.cider.should.p
1580	72 6f 6d 70 74 20 66 6f 72 20 73 79 6d 62 6f 6c 2e 0a 54 65 73 74 73 20 61 67 61 69 6e 73 74 73	rompt.for.symbol..Tests.againsts
15a0	20 50 52 45 46 49 58 20 61 6e 64 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 60 63 69 64 65 72 2d	.PREFIX.and.the.value.of.`cider-
15c0	70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27 2e 0a 49 6e 76 65 72 74 20 6d 65 61 6e 69	prompt-for-symbol'..Invert.meani
15e0	6e 67 20 6f 66 20 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27 20	ng.of.`cider-prompt-for-symbol'.
1600	69 66 20 50 52 45 46 49 58 20 69 6e 64 69 63 61 74 65 73 20 69 74 20 73 68 6f 75 6c 64 20 62 65	if.PREFIX.indicates.it.should.be
1620	2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 52 45 46 49 58 29 1f 0a 28 64 65 66 61 6c	...(fn.&optional.PREFIX)..(defal
1640	69 61 73 20 27 63 69 64 65 72 2d 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 2d 70 20	ias.'cider--prompt-for-symbol-p.
1660	23 5b 32 35 36 20 22 5c 33 30 31 01 21 5c 32 30 33 09 00 08 3f 5c 32 30 37 08 5c 32 30 37 22 20	#[256."\301.!\203...?\207.\207".
1680	5b 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 20 63 69 64 65 72 2d 2d	[cider-prompt-for-symbol.cider--
16a0	70 72 65 66 69 78 2d 69 6e 76 65 72 74 2d 70 72 6f 6d 70 74 2d 70 5d 20 33 20 28 23 24 20 2e 20	prefix-invert-prompt-p].3.(#$...
16c0	35 34 38 31 29 5d 29 0a 23 40 31 34 33 20 46 69 6e 64 20 74 68 65 20 66 69 6c 65 20 63 6f 6e 74	5481)]).#@143.Find.the.file.cont
16e0	61 69 6e 69 6e 67 20 4e 53 27 73 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 4f 70 74 69 6f 6e 61 6c	aining.NS's.definition..Optional
1700	6c 79 20 6f 70 65 6e 20 69 74 20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 77 69 6e 64 6f 77	ly.open.it.in.a.different.window
1720	20 69 66 20 4f 54 48 45 52 2d 57 49 4e 44 4f 57 20 69 73 20 74 72 75 74 68 79 2e 0a 0a 28 66 6e	.if.OTHER-WINDOW.is.truthy...(fn
1740	20 4e 53 20 26 6f 70 74 69 6f 6e 61 6c 20 4f 54 48 45 52 2d 57 49 4e 44 4f 57 29 1f 0a 28 64 65	.NS.&optional.OTHER-WINDOW)..(de
1760	66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 2d 66 69 6e 64 2d 6e 73 20 23 5b 35 31 33 20 22 5c 33	falias.'cider--find-ns.#[513."\3
1780	30 30 02 21 5c 32 31 31 5c 32 30 33 11 00 5c 33 30 31 5c 33 30 32 02 21 5c 33 30 33 04 23 5c 32	00.!\211\203..\301\302.!\303.#\2
17a0	30 32 15 00 5c 33 30 34 5c 33 30 35 04 5c 22 5c 32 30 37 22 20 5b 63 69 64 65 72 2d 73 79 6e 63	02..\304\305.\"\207".[cider-sync
17c0	2d 72 65 71 75 65 73 74 3a 6e 73 2d 70 61 74 68 20 63 69 64 65 72 2d 6a 75 6d 70 2d 74 6f 20 63	-request:ns-path.cider-jump-to.c
17e0	69 64 65 72 2d 66 69 6e 64 2d 66 69 6c 65 20 6e 69 6c 20 75 73 65 72 2d 65 72 72 6f 72 20 22 43	ider-find-file.nil.user-error."C
1800	61 6e 27 74 20 66 69 6e 64 20 6e 61 6d 65 73 70 61 63 65 20 60 25 73 27 22 5d 20 37 20 28 23 24	an't.find.namespace.`%s'"].7.(#$
1820	20 2e 20 35 38 33 38 29 5d 29 0a 23 40 31 35 39 20 46 69 6e 64 20 74 68 65 20 66 69 6c 65 20 63	...5838)]).#@159.Find.the.file.c
1840	6f 6e 74 61 69 6e 69 6e 67 20 4e 53 2e 0a 41 20 70 72 65 66 69 78 20 41 52 47 20 6f 66 20 60 2d	ontaining.NS..A.prefix.ARG.of.`-
1860	60 20 6f 72 20 61 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 63 61	`.or.a.double.prefix.argument.ca
1880	75 73 65 73 0a 74 68 65 20 72 65 73 75 6c 74 73 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65 64	uses.the.results.to.be.displayed
18a0	20 69 6e 20 61 20 64 69 66 66 65 72 65 6e 74 20 77 69 6e 64 6f 77 2e 0a 0a 28 66 6e 20 26 6f 70	.in.a.different.window...(fn.&op
18c0	74 69 6f 6e 61 6c 20 41 52 47 20 4e 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72	tional.ARG.NS)..(defalias.'cider
18e0	2d 66 69 6e 64 2d 6e 73 20 23 5b 35 31 32 20 22 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 5c 33 30	-find-ns.#[512."\300.\210\301\30
1900	32 21 5c 32 31 30 5c 32 31 31 5c 32 30 33 0f 00 5c 33 30 33 01 21 5c 32 30 37 5c 33 30 34 20 5c	2!\210\211\203..\303.!\207\304.\
1920	33 30 35 5c 33 30 36 02 5c 22 5c 33 30 33 01 5c 33 30 37 06 06 21 5c 22 5c 32 30 37 22 20 5b 63	305\306.\"\303.\307..!\"\207".[c
1940	69 64 65 72 2d 65 6e 73 75 72 65 2d 63 6f 6e 6e 65 63 74 65 64 20 63 69 64 65 72 2d 65 6e 73 75	ider-ensure-connected.cider-ensu
1960	72 65 2d 6f 70 2d 73 75 70 70 6f 72 74 65 64 20 22 6e 73 2d 70 61 74 68 22 20 63 69 64 65 72 2d	re-op-supported."ns-path".cider-
1980	2d 66 69 6e 64 2d 6e 73 20 63 69 64 65 72 2d 73 79 6e 63 2d 72 65 71 75 65 73 74 3a 6e 73 2d 6c	-find-ns.cider-sync-request:ns-l
19a0	69 73 74 20 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 46 69 6e 64 20 6e 61 6d 65 73 70	ist.completing-read."Find.namesp
19c0	61 63 65 3a 20 22 20 63 69 64 65 72 2d 2d 6f 70 65 6e 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 2d	ace:.".cider--open-other-window-
19e0	70 5d 20 38 20 28 23 24 20 2e 20 36 31 39 33 29 20 22 50 22 5d 29 0a 23 40 35 36 32 20 46 69 6e	p].8.(#$...6193)."P"]).#@562.Fin
1a00	64 20 74 68 65 20 6e 61 6d 65 73 70 61 63 65 20 6f 66 20 74 68 65 20 6b 65 79 77 6f 72 64 20 61	d.the.namespace.of.the.keyword.a
1a20	74 20 70 6f 69 6e 74 20 61 6e 64 20 69 74 73 20 66 69 72 73 74 20 6f 63 63 75 72 72 65 6e 63 65	t.point.and.its.first.occurrence
1a40	20 74 68 65 72 65 2e 0a 0a 46 6f 72 20 69 6e 73 74 61 6e 63 65 20 2d 20 69 66 20 74 68 65 20 6b	.there...For.instance.-.if.the.k
1a60	65 79 77 6f 72 64 20 61 74 20 70 6f 69 6e 74 20 69 73 20 22 3a 63 69 64 65 72 2e 64 65 6d 6f 2f	eyword.at.point.is.":cider.demo/
1a80	6b 65 79 77 6f 72 64 22 2c 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 0a 77 6f 75 6c 64 20 66 69 6e	keyword",.this.command.would.fin
1aa0	64 20 74 68 65 20 6e 61 6d 65 73 70 61 63 65 20 22 63 69 64 65 72 2e 64 65 6d 6f 22 20 61 6e 64	d.the.namespace."cider.demo".and
1ac0	20 61 66 74 65 72 77 61 72 64 73 20 66 69 6e 64 20 74 68 65 20 66 69 72 73 74 20 6d 65 6e 74 69	.afterwards.find.the.first.menti
1ae0	6f 6e 0a 6f 66 20 22 3a 3a 6b 65 79 77 6f 72 64 22 20 74 68 65 72 65 2e 0a 0a 50 72 6f 6d 70 74	on.of."::keyword".there...Prompt
1b00	20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 70 72 65 66 69 78 20 41 52 47 20 61 6e 64 20 60 63 69	.according.to.prefix.ARG.and.`ci
1b20	64 65 72 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 27 2e 0a 41 20 73 69 6e 67 6c 65	der-prompt-for-symbol'..A.single
1b40	20 6f 72 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 69 6e 76 65 72	.or.double.prefix.argument.inver
1b60	74 73 20 74 68 65 20 6d 65 61 6e 69 6e 67 20 6f 66 0a 60 63 69 64 65 72 2d 70 72 6f 6d 70 74 2d	ts.the.meaning.of.`cider-prompt-
1b80	66 6f 72 2d 73 79 6d 62 6f 6c 27 2e 20 20 41 20 70 72 65 66 69 78 20 6f 66 20 60 2d 60 20 6f 72	for-symbol'...A.prefix.of.`-`.or
1ba0	20 61 20 64 6f 75 62 6c 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 63 61 75 73 65 73	.a.double.prefix.argument.causes
1bc0	0a 74 68 65 20 72 65 73 75 6c 74 73 20 74 6f 20 62 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 20	.the.results.to.be.displayed.in.
1be0	61 20 64 69 66 66 65 72 65 6e 74 20 77 69 6e 64 6f 77 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74	a.different.window...The.default
1c00	20 76 61 6c 75 65 20 69 73 0a 74 68 69 6e 67 20 61 74 20 70 6f 69 6e 74 2e 0a 0a 28 66 6e 20 26	.value.is.thing.at.point...(fn.&
1c20	6f 70 74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d	optional.ARG)..(defalias.'cider-
1c40	66 69 6e 64 2d 6b 65 79 77 6f 72 64 20 23 5b 32 35 36 20 22 5c 33 30 31 20 5c 32 31 30 5c 33 30	find-keyword.#[256."\301.\210\30
1c60	32 5c 33 30 33 21 08 5c 32 30 34 0e 00 01 5c 32 30 33 1a 00 5c 33 30 34 5c 33 30 35 5c 33 30 36	2\303!.\204...\203..\304\305\306
1c80	03 5c 22 5c 33 30 37 5c 32 31 31 04 24 5c 32 30 32 1b 00 5c 32 31 31 5c 32 36 32 01 5c 33 31 30	.\"\307\211.$\202..\211\262.\310
1ca0	5c 33 31 31 02 5c 22 5c 32 30 35 28 00 5c 33 31 32 5c 33 31 33 02 5c 22 5c 32 31 31 5c 32 30 33	\311.\"\205(.\312\313.\"\211\203
1cc0	34 00 5c 33 31 34 5c 33 31 35 20 02 5c 22 5c 32 30 32 36 00 5c 33 31 35 20 5c 33 31 36 5c 33 31	4.\314\315..\"\2026.\315.\316\31
1ce0	37 5c 33 32 30 5c 33 32 31 06 06 23 50 02 5c 32 30 33 50 00 01 5c 33 31 35 20 5c 32 33 30 5c 32	7\320\321..#P.\203P..\315.\230\2
1d00	30 33 50 00 5c 33 32 32 5c 33 32 33 04 5c 33 31 35 20 23 5c 32 31 30 5c 33 32 34 02 06 06 5c 22	03P.\322\323.\315.#\210\324...\"
1d20	5c 32 31 30 5c 33 32 35 01 5c 33 30 37 5c 33 32 36 23 5c 32 30 37 22 20 5b 63 69 64 65 72 2d 70	\210\325.\307\326#\207".[cider-p
1d40	72 6f 6d 70 74 2d 66 6f 72 2d 73 79 6d 62 6f 6c 20 63 69 64 65 72 2d 65 6e 73 75 72 65 2d 63 6f	rompt-for-symbol.cider-ensure-co
1d60	6e 6e 65 63 74 65 64 20 63 69 64 65 72 2d 73 79 6d 62 6f 6c 2d 61 74 2d 70 6f 69 6e 74 20 6c 6f	nnected.cider-symbol-at-point.lo
1d80	6f 6b 2d 62 61 63 6b 20 72 65 61 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 4b 65 79 77	ok-back.read-string.format."Keyw
1da0	6f 72 64 20 28 64 65 66 61 75 6c 74 20 25 73 29 3a 20 22 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d	ord.(default.%s):.".nil.string-m
1dc0	61 74 63 68 20 22 5e 3a 2b 5c 5c 28 2e 2b 5c 5c 29 2f 2e 2b 24 22 20 6d 61 74 63 68 2d 73 74 72	atch."^:+\\(.+\\)/.+$".match-str
1de0	69 6e 67 20 31 20 63 69 64 65 72 2d 72 65 73 6f 6c 76 65 2d 61 6c 69 61 73 20 63 69 64 65 72 2d	ing.1.cider-resolve-alias.cider-
1e00	63 75 72 72 65 6e 74 2d 6e 73 20 22 3a 3a 22 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69	current-ns."::".replace-regexp-i
1e20	6e 2d 73 74 72 69 6e 67 20 22 5e 3a 2b 5c 5c 28 2e 2b 2f 5c 5c 29 3f 22 20 22 22 20 65 72 72 6f	n-string."^:+\\(.+/\\)?"."".erro
1e40	72 20 22 43 6f 75 6c 64 20 6e 6f 74 20 72 65 73 6f 6c 76 65 20 61 6c 69 61 73 20 60 25 73 27 20	r."Could.not.resolve.alias.`%s'.
1e60	69 6e 20 60 25 73 27 22 20 63 69 64 65 72 2d 2d 66 69 6e 64 2d 6e 73 20 73 65 61 72 63 68 2d 66	in.`%s'".cider--find-ns.search-f
1e80	6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 6e 6f 65 72 72 6f 72 5d 20 39 20 28 23 24 20 2e 20 36	orward-regexp.noerror].9.(#$...6
1ea0	36 35 33 29 20 22 50 22 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 63 69 64 65 72 2d 66 69 6e 64 29	653)."P"]).(provide.'cider-find)
1ec0	0a	.