blob: f6f0788fa7cc5a054ecc793c26189f34a7a498f3 (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 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 44 44 5c 33	303!\210\304\305\306\307\310DD\3
01e0	31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 26 09 5c 32 30 37	11\312\313\314\315\316\317&.\207
0200	22 20 5b 72 65 71 75 69 72 65 20 63 69 64 65 72 2d 65 76 61 6c 20 63 6c 6f 6a 75 72 65 2d 6d 6f	".[require.cider-eval.clojure-mo
0220	64 65 20 65 61 73 79 6d 65 6e 75 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61	de.easymenu.custom-declare-varia
0240	62 6c 65 20 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 69 6e 69 74 69 61 6c 2d 6d 65 73 73 61 67	ble.cider-scratch-initial-messag
0260	65 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37	e.funcall.function.#[0."\300\207
0280	22 20 5b 23 31 3d 22 3b 3b 20 54 68 69 73 20 62 75 66 66 65 72 20 69 73 20 66 6f 72 20 43 6c 6f	".[#1=";;.This.buffer.is.for.Clo
02a0	6a 75 72 65 20 65 78 70 65 72 69 6d 65 6e 74 73 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6f 6e 2e	jure.experiments.and.evaluation.
02c0	5c 6e 5c 6e 3b 3b 20 50 72 65 73 73 20 43 2d 6a 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68 65	\n\n;;.Press.C-j.to.evaluate.the
02e0	20 6c 61 73 74 20 65 78 70 72 65 73 73 69 6f 6e 2e 5c 6e 5c 6e 22 5d 20 31 20 23 31 23 5d 20 22	.last.expression.\n\n"].1.#1#]."
0300	54 68 65 20 69 6e 69 74 69 61 6c 20 6d 65 73 73 61 67 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e	The.initial.message.displayed.in
0320	20 6e 65 77 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 73 2e 22 20 3a 74 79 70 65 20 73 74 72	.new.scratch.buffers.".:type.str
0340	69 6e 67 20 3a 67 72 6f 75 70 20 63 69 64 65 72 20 3a 70 61 63 6b 61 67 65 2d 76 65 72 73 69 6f	ing.:group.cider.:package-versio
0360	6e 20 28 63 69 64 65 72 20 2e 20 22 30 2e 31 38 2e 30 22 29 5d 20 31 30 29 0a 28 64 65 66 76 61	n.(cider..."0.18.0")].10).(defva
0380	72 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65	r.cider-clojure-interaction-mode
03a0	2d 6d 61 70 20 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 20 5c 33 30 32 01 08 5c 22 5c 32	-map.(byte-code."\301.\302..\"\2
03c0	31 30 5c 33 30 33 01 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 33 01 5c 33 30 36 5c 33 30	10\303.\304\305#\210\303.\306\30
03e0	35 23 5c 32 31 30 5c 33 30 37 5c 33 31 30 21 5c 32 31 30 5c 33 31 31 5c 33 31 32 02 5c 33 31 33	5#\210\307\310!\210\311\312.\313
0400	5c 33 31 34 24 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 63 6c 6f 6a 75 72 65 2d 6d 6f 64 65	\314$\210\211\207".[clojure-mode
0420	2d 6d 61 70 20 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 73 65 74 2d 6b 65 79 6d	-map.make-sparse-keymap.set-keym
0440	61 70 2d 70 61 72 65 6e 74 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 5c 6e 22 20 63 69 64 65 72 2d	ap-parent.define-key."\n".cider-
0460	65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 20 5b 72 65 6d 61 70 20 70 61 72 65	eval-print-last-sexp.[remap.pare
0480	64 69 74 2d 6e 65 77 6c 69 6e 65 5d 20 28 6c 61 6d 62 64 61 20 28 23 31 3d 23 3a 64 65 66 2d 74	dit-newline].(lambda.(#1=#:def-t
04a0	6d 70 2d 76 61 72 29 20 28 64 65 66 76 61 72 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e	mp-var).(defvar.cider-clojure-in
04c0	74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 65 6e 75 20 23 31 23 20 23 32 3d 22 4d 65 6e 75	teraction-mode-menu.#1#.#2="Menu
04e0	20 66 6f 72 20 43 6c 6f 6a 75 72 65 20 49 6e 74 65 72 61 63 74 69 6f 6e 20 6d 6f 64 65 22 29 29	.for.Clojure.Interaction.mode"))
0500	20 6e 69 6c 20 65 61 73 79 2d 6d 65 6e 75 2d 64 6f 2d 64 65 66 69 6e 65 20 63 69 64 65 72 2d 63	.nil.easy-menu-do-define.cider-c
0520	6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 65 6e 75 20 23 32 23	lojure-interaction-mode-menu.#2#
0540	20 28 22 43 6c 6f 6a 75 72 65 20 49 6e 74 65 72 61 63 74 69 6f 6e 22 20 28 5b 22 45 76 61 6c 20	.("Clojure.Interaction".(["Eval.
0560	61 6e 64 20 70 72 69 6e 74 20 6c 61 73 74 20 73 65 78 70 22 20 23 27 63 69 64 65 72 2d 65 76 61	and.print.last.sexp".#'cider-eva
0580	6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 5d 20 22 2d 2d 22 20 5b 22 52 65 73 65 74 22	l-print-last-sexp]."--".["Reset"
05a0	20 23 27 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 72 65 73 65 74 5d 29 29 5d 20 36 29 29 0a 28	.#'cider-scratch-reset]))].6)).(
05c0	64 65 66 63 6f 6e 73 74 20 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 62 75 66 66 65 72 2d 6e 61	defconst.cider-scratch-buffer-na
05e0	6d 65 20 22 2a 63 69 64 65 72 2d 73 63 72 61 74 63 68 2a 22 29 0a 23 40 36 31 20 47 6f 20 74 6f	me."*cider-scratch*").#@61.Go.to
0600	20 74 68 65 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 20 6e 61 6d 65 64 20 60 63 69 64 65 72	.the.scratch.buffer.named.`cider
0620	2d 73 63 72 61 74 63 68 2d 62 75 66 66 65 72 2d 6e 61 6d 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61	-scratch-buffer-name'...(defalia
0640	73 20 27 63 69 64 65 72 2d 73 63 72 61 74 63 68 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 20 21	s.'cider-scratch.#[0."\300\301.!
0660	5c 32 30 37 22 20 5b 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 63 69 64 65 72 2d 73 63 72 61 74	\207".[pop-to-buffer.cider-scrat
0680	63 68 2d 66 69 6e 64 2d 6f 72 2d 63 72 65 61 74 65 2d 62 75 66 66 65 72 5d 20 32 20 28 23 24 20	ch-find-or-create-buffer].2.(#$.
06a0	2e 20 31 35 33 31 29 20 6e 69 6c 5d 29 0a 23 40 33 36 20 46 69 6e 64 20 6f 72 20 63 72 65 61 74	..1531).nil]).#@36.Find.or.creat
06c0	65 20 74 68 65 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73	e.the.scratch.buffer...(defalias
06e0	20 27 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 66 69 6e 64 2d 6f 72 2d 63 72 65 61 74 65 2d 62	.'cider-scratch-find-or-create-b
0700	75 66 66 65 72 20 23 5b 30 20 22 5c 33 30 31 08 21 5c 32 30 36 08 00 5c 33 30 32 20 5c 32 30 37	uffer.#[0."\301.!\206..\302.\207
0720	22 20 5b 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 67 65 74	".[cider-scratch-buffer-name.get
0740	2d 62 75 66 66 65 72 20 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 2d 63 72 65 61 74 65 2d 62 75	-buffer.cider-scratch--create-bu
0760	66 66 65 72 5d 20 32 20 28 23 24 20 2e 20 31 37 31 35 29 5d 29 0a 23 40 31 37 36 20 48 6f 6f 6b	ffer].2.(#$...1715)]).#@176.Hook
0780	20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 43 6c 6f 6a 75 72 65 20 49 6e 74 65	.run.after.entering.Clojure.Inte
07a0	72 61 63 74 69 6f 6e 20 6d 6f 64 65 2e 0a 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74	raction.mode..No.problems.result
07c0	20 69 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75 6e 64 2e 0a	.if.this.variable.is.not.bound..
07e0	60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e 64 73 20 69	`add-hook'.automatically.binds.i
0800	74 2e 20 20 28 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f 6f 6b 20 76	t...(This.is.true.for.all.hook.v
0820	61 72 69 61 62 6c 65 73 2e 29 1f 0a 28 64 65 66 76 61 72 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72	ariables.)..(defvar.cider-clojur
0840	65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20	e-interaction-mode-hook.nil.(#$.
0860	2e 20 31 39 31 36 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32	..1916)).(byte-code."\300\301!\2
0880	30 34 5c 66 00 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 5c 32	04\f.\302\301\303\304#\210\300\2
08a0	30 37 22 20 5b 62 6f 75 6e 64 70 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61	07".[boundp.cider-clojure-intera
08c0	63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 70 75 74 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61	ction-mode-map.put.definition-na
08e0	6d 65 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64	me.cider-clojure-interaction-mod
0900	65 5d 20 34 29 0a 28 64 65 66 76 61 72 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65	e].4).(defvar.cider-clojure-inte
0920	72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65	raction-mode-map.(make-sparse-ke
0940	79 6d 61 70 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34	ymap)).(byte-code."\300\301N\204
0960	0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 35	..\302\300\301\303\304!#\210\305
0980	5c 33 30 36 21 5c 32 30 34 1a 00 5c 33 30 32 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 31 30	\306!\204..\302\306\307\310#\210
09a0	5c 33 30 30 5c 32 30 37 22 20 5b 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63	\300\207".[cider-clojure-interac
09c0	74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61	tion-mode-map.variable-documenta
09e0	74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60 63	tion.put.purecopy."Keymap.for.`c
0a00	69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 27 2e 22	ider-clojure-interaction-mode'."
0a20	20 62 6f 75 6e 64 70 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f	.boundp.cider-clojure-interactio
0a40	6e 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e	n-mode-syntax-table.definition-n
0a60	61 6d 65 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f	ame.cider-clojure-interaction-mo
0a80	64 65 5d 20 35 29 0a 28 64 65 66 76 61 72 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74	de].5).(defvar.cider-clojure-int
0aa0	65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b 65	eraction-mode-syntax-table.(make
0ac0	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30	-syntax-table)).(byte-code."\300
0ae0	5c 33 30 31 4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21	\301N\204..\302\300\301\303\304!
0b00	23 5c 32 31 30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 63 69 64	#\210\302\305\306\307#\207".[cid
0b20	65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 73 79 6e 74	er-clojure-interaction-mode-synt
0b40	61 78 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20	ax-table.variable-documentation.
0b60	70 75 74 20 70 75 72 65 63 6f 70 79 20 22 53 79 6e 74 61 78 20 74 61 62 6c 65 20 66 6f 72 20 60	put.purecopy."Syntax.table.for.`
0b80	63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 27 2e	cider-clojure-interaction-mode'.
0ba0	22 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65	".cider-clojure-interaction-mode
0bc0	2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 63 69	-abbrev-table.definition-name.ci
0be0	64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 5d 20 35 29	der-clojure-interaction-mode].5)
0c00	0a 28 64 65 66 76 61 72 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69	.(defvar.cider-clojure-interacti
0c20	6f 6e 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 70 72 6f 67 6e 20 28 64 65 66	on-mode-abbrev-table.(progn.(def
0c40	69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 27 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d	ine-abbrev-table.'cider-clojure-
0c60	69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69	interaction-mode-abbrev-table.ni
0c80	6c 29 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64	l).cider-clojure-interaction-mod
0ca0	65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30	e-abbrev-table)).(byte-code."\30
0cc0	30 5c 33 30 31 4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34	0\301N\204..\302\300\301\303\304
0ce0	21 23 5c 32 31 30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 63 69	!#\210\302\305\306\307#\207".[ci
0d00	64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 61 62 62	der-clojure-interaction-mode-abb
0d20	72 65 76 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e	rev-table.variable-documentation
0d40	20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 41 62 62 72 65 76 20 74 61 62 6c 65 20 66 6f 72 20	.put.purecopy."Abbrev.table.for.
0d60	60 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 27	`cider-clojure-interaction-mode'
0d80	2e 22 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64	.".cider-clojure-interaction-mod
0da0	65 20 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 61 72 65 6e 74 20 63 6c 6f 6a 75 72 65 2d 6d 6f	e.derived-mode-parent.clojure-mo
0dc0	64 65 5d 20 35 29 0a 23 40 34 32 34 20 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 74 79 70 69	de].5).#@424.Major.mode.for.typi
0de0	6e 67 20 61 6e 64 20 65 76 61 6c 75 61 74 69 6e 67 20 43 6c 6f 6a 75 72 65 20 66 6f 72 6d 73 2e	ng.and.evaluating.Clojure.forms.
0e00	0a 4c 69 6b 65 20 63 6c 6f 6a 75 72 65 2d 6d 6f 64 65 20 65 78 63 65 70 74 20 74 68 61 74 20 5c	.Like.clojure-mode.except.that.\
0e20	5b 63 69 64 65 72 2d 65 76 61 6c 2d 70 72 69 6e 74 2d 6c 61 73 74 2d 73 65 78 70 5d 20 65 76 61	[cider-eval-print-last-sexp].eva
0e40	6c 73 20 74 68 65 20 4c 69 73 70 20 65 78 70 72 65 73 73 69 6f 6e 0a 62 65 66 6f 72 65 20 70 6f	ls.the.Lisp.expression.before.po
0e60	69 6e 74 2c 20 61 6e 64 20 70 72 69 6e 74 73 20 69 74 73 20 76 61 6c 75 65 20 69 6e 74 6f 20 74	int,.and.prints.its.value.into.t
0e80	68 65 20 62 75 66 66 65 72 2c 20 61 64 76 61 6e 63 69 6e 67 20 70 6f 69 6e 74 2e 0a 0a 5c 7b 63	he.buffer,.advancing.point...\{c
0ea0	69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61	ider-clojure-interaction-mode-ma
0ec0	70 7d 0a 0a 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 61 6e 79 20 68 6f 6f 6b 73 20 69 74 73	p}..In.addition.to.any.hooks.its
0ee0	20 70 61 72 65 6e 74 20 6d 6f 64 65 20 60 63 6c 6f 6a 75 72 65 2d 6d 6f 64 65 27 20 6d 69 67 68	.parent.mode.`clojure-mode'.migh
0f00	74 20 68 61 76 65 20 72 75 6e 2c 0a 74 68 69 73 20 6d 6f 64 65 20 72 75 6e 73 20 74 68 65 20 68	t.have.run,.this.mode.runs.the.h
0f20	6f 6f 6b 20 60 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d	ook.`cider-clojure-interaction-m
0f40	6f 64 65 2d 68 6f 6f 6b 27 2c 20 61 73 20 74 68 65 20 66 69 6e 61 6c 20 73 74 65 70 0a 64 75 72	ode-hook',.as.the.final.step.dur
0f60	69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	ing.initialization...(defalias.'
0f80	63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 23	cider-clojure-interaction-mode.#
0fa0	5b 30 20 22 5c 33 30 36 5c 33 30 30 21 5c 32 31 30 5c 33 30 37 18 5c 33 31 30 20 5c 32 31 30 5c	[0."\306\300!\210\307.\310.\210\
0fc0	33 31 31 11 5c 33 31 32 12 5c 33 31 30 5c 33 31 33 4e 5c 32 30 33 1b 00 5c 33 31 34 5c 33 31 31	311.\312.\310\313N\203..\314\311
0fe0	5c 33 31 33 5c 33 31 30 5c 33 31 33 4e 23 5c 32 31 30 5c 33 31 35 0b 21 5c 32 30 34 27 00 5c 33	\313\310\313N#\210\315.!\204'.\3
1000	31 36 0b 5c 33 31 37 20 5c 22 5c 32 31 30 5c 33 32 30 5c 66 21 5c 32 31 31 5c 32 30 33 35 00 5c	16.\317.\"\210\320\f!\211\2035.\
1020	32 31 31 5c 33 32 31 20 3d 5c 32 30 33 3b 00 5c 33 32 32 5c 66 5c 33 32 33 20 5c 22 5c 32 31 30	211\321.=\203;.\322\f\323.\"\210
1040	5c 32 31 30 5c 33 32 34 0d 5c 33 32 35 5c 22 5c 32 30 34 52 00 0d 0e 1d 3d 5c 32 30 34 52 00 5c	\210\324.\325\"\204R....=\204R.\
1060	33 32 36 0d 5c 33 32 35 0e 1d 43 23 5c 32 31 30 5c 33 32 37 0b 21 5c 32 31 30 5c 33 33 30 5c 66	326.\325..C#\210\327.!\210\330\f
1080	21 5c 32 31 30 0d 16 1d 5c 33 30 36 5c 33 33 31 21 5c 32 31 30 5c 33 33 32 16 19 29 5c 33 33 33	!\210...\306\331!\210\332..)\333
10a0	5c 33 33 34 21 5c 32 30 37 22 20 5b 64 65 6c 61 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 6d 61 6a	\334!\207".[delay-mode-hooks.maj
10c0	6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d	or-mode.mode-name.cider-clojure-
10e0	69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 63 69 64 65 72 2d 63 6c 6f 6a 75	interaction-mode-map.cider-cloju
1100	72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65	re-interaction-mode-syntax-table
1120	20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d	.cider-clojure-interaction-mode-
1140	61 62 62 72 65 76 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65	abbrev-table.make-local-variable
1160	20 74 20 63 6c 6f 6a 75 72 65 2d 6d 6f 64 65 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e	.t.clojure-mode.cider-clojure-in
1180	74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 22 43 6c 6f 6a 75 72 65 20 49 6e 74 65 72 61 63 74	teraction-mode."Clojure.Interact
11a0	69 6f 6e 22 20 6d 6f 64 65 2d 63 6c 61 73 73 20 70 75 74 20 6b 65 79 6d 61 70 2d 70 61 72 65 6e	ion".mode-class.put.keymap-paren
11c0	74 20 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61	t.set-keymap-parent.current-loca
11e0	6c 2d 6d 61 70 20 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20 73 74 61 6e 64 61 72 64	l-map.char-table-parent.standard
1200	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 65 74 2d 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72	-syntax-table.set-char-table-par
1220	65 6e 74 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 67 65	ent.syntax-table.abbrev-table-ge
1240	74 20 3a 70 61 72 65 6e 74 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 70 75 74 20 75 73 65 2d	t.:parents.abbrev-table-put.use-
1260	6c 6f 63 61 6c 2d 6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 65 73 6d 61	local-map.set-syntax-table.sesma
1280	6e 2d 73 79 73 74 65 6d 20 43 49 44 45 52 20 72 75 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 63 69	n-system.CIDER.run-mode-hooks.ci
12a0	64 65 72 2d 63 6c 6f 6a 75 72 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f	der-clojure-interaction-mode-hoo
12c0	6b 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 5d 20 35 20 28 23 24 20 2e 20 33 35	k.local-abbrev-table].5.(#$...35
12e0	33 33 29 20 6e 69 6c 5d 29 0a 23 40 35 32 20 49 6e 73 65 72 74 20 74 68 65 20 77 65 6c 63 6f 6d	33).nil]).#@52.Insert.the.welcom
1300	65 20 6d 65 73 73 61 67 65 20 66 6f 72 20 74 68 65 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72	e.message.for.the.scratch.buffer
1320	2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 2d 69 6e 73	...(defalias.'cider-scratch--ins
1340	65 72 74 2d 77 65 6c 63 6f 6d 65 2d 6d 65 73 73 61 67 65 20 23 5b 30 20 22 08 63 5c 32 30 37 22	ert-welcome-message.#[0.".c\207"
1360	20 5b 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 69 6e 69 74 69 61 6c 2d 6d 65 73 73 61 67 65 5d	.[cider-scratch-initial-message]
1380	20 31 20 28 23 24 20 2e 20 34 38 34 37 29 5d 29 0a 23 40 33 30 20 43 72 65 61 74 65 20 61 20 6e	.1.(#$...4847)]).#@30.Create.a.n
13a0	65 77 20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63	ew.scratch.buffer...(defalias.'c
13c0	69 64 65 72 2d 73 63 72 61 74 63 68 2d 2d 63 72 65 61 74 65 2d 62 75 66 66 65 72 20 23 5b 30 20	ider-scratch--create-buffer.#[0.
13e0	22 72 5c 33 30 31 08 21 71 5c 32 31 30 5c 33 30 32 20 5c 32 31 30 5c 33 30 33 20 5c 32 31 30 70	"r\301.!q\210\302.\210\303.\210p
1400	29 5c 32 30 37 22 20 5b 63 69 64 65 72 2d 73 63 72 61 74 63 68 2d 62 75 66 66 65 72 2d 6e 61 6d	)\207".[cider-scratch-buffer-nam
1420	65 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 63 69 64 65 72 2d 63 6c 6f 6a 75 72	e.get-buffer-create.cider-clojur
1440	65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 63 69 64 65 72 2d 73 63 72 61 74 63 68	e-interaction-mode.cider-scratch
1460	2d 2d 69 6e 73 65 72 74 2d 77 65 6c 63 6f 6d 65 2d 6d 65 73 73 61 67 65 5d 20 32 20 28 23 24 20	--insert-welcome-message].2.(#$.
1480	2e 20 35 30 31 34 29 5d 29 0a 23 40 33 35 20 52 65 73 65 74 20 74 68 65 20 63 75 72 72 65 6e 74	..5014)]).#@35.Reset.the.current
14a0	20 73 63 72 61 74 63 68 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 63 69 64	.scratch.buffer...(defalias.'cid
14c0	65 72 2d 73 63 72 61 74 63 68 2d 72 65 73 65 74 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 31 30 5c	er-scratch-reset.#[0."\300.\210\
14e0	33 30 31 20 5c 32 30 37 22 20 5b 65 72 61 73 65 2d 62 75 66 66 65 72 20 63 69 64 65 72 2d 73 63	301.\207".[erase-buffer.cider-sc
1500	72 61 74 63 68 2d 2d 69 6e 73 65 72 74 2d 77 65 6c 63 6f 6d 65 2d 6d 65 73 73 61 67 65 5d 20 31	ratch--insert-welcome-message].1
1520	20 28 23 24 20 2e 20 35 32 36 33 29 20 6e 69 6c 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 63 69 64	.(#$...5263).nil]).(provide.'cid
1540	65 72 2d 73 63 72 61 74 63 68 29 0a	er-scratch).