blob: afcbdd270f16ac0c32074fda5b4a2ff04b10d19c (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 64 65 66 76 61 72 20 68 61 73	;;;;;;;;;;;;;;;;;;...(defvar.has
01a0	6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 73 74 61 72 74 2d 70 6f 69 6e	kell-navigate-imports-start-poin
01c0	74 20 6e 69 6c 29 0a 23 40 39 33 20 43 79 63 6c 65 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 69 6d	t.nil).#@93.Cycle.the.Haskell.im
01e0	70 6f 72 74 20 6c 69 6e 65 73 20 6f 72 20 72 65 74 75 72 6e 20 74 6f 20 70 6f 69 6e 74 20 28 77	port.lines.or.return.to.point.(w
0200	69 74 68 20 70 72 65 66 69 78 20 61 72 67 29 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20	ith.prefix.arg)...(fn.&optional.
0220	52 45 54 55 52 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6e 61 76 69	RETURN)..(defalias.'haskell-navi
0240	67 61 74 65 2d 69 6d 70 6f 72 74 73 20 23 5b 32 35 36 20 22 5c 32 31 31 5c 32 30 33 07 00 5c 33	gate-imports.#[256."\211\203..\3
0260	30 30 20 5c 32 30 37 5c 33 30 31 20 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67	00.\207\301.\207".[haskell-navig
0280	61 74 65 2d 69 6d 70 6f 72 74 73 2d 72 65 74 75 72 6e 20 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67	ate-imports-return.haskell-navig
02a0	61 74 65 2d 69 6d 70 6f 72 74 73 2d 67 6f 5d 20 32 20 28 23 24 20 2e 20 34 36 30 29 20 22 50 22	ate-imports-go].2.(#$...460)."P"
02c0	5d 29 0a 23 40 36 39 20 47 6f 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 6c 69 6e 65 20 6f 66 20	]).#@69.Go.to.the.first.line.of.
02e0	61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 65 63 75 74 69 76 65 20 69 6d 70 6f 72 74 20 6c 69 6e	a.list.of.consecutive.import.lin
0300	65 73 2e 20 43 79 63 6c 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d	es..Cycles...(defalias.'haskell-
0320	6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 67 6f 20 23 5b 30 20 22 5c 33 30 31 20 5c 32	navigate-imports-go.#[0."\301.\2
0340	30 34 18 00 5c 33 30 32 20 65 5c 32 33 32 5c 32 30 34 18 00 5c 32 31 32 5c 33 30 33 79 5c 32 31	04..\302.e\232\204..\212\303y\21
0360	30 5c 33 30 31 20 29 5c 32 30 34 18 00 60 10 5c 33 30 34 20 5c 32 30 37 22 20 5b 68 61 73 6b 65	0\301.)\204..`.\304.\207".[haske
0380	6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 73 74 61 72 74 2d 70 6f 69 6e 74 20	ll-navigate-imports-start-point.
03a0	68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 6c 69 6e 65 20 6c 69	haskell-navigate-imports-line.li
03c0	6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 2d 31 20 68 61 73 6b 65 6c 6c	ne-beginning-position.-1.haskell
03e0	2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 67 6f 2d 69 6e 74 65 72 6e 61 6c 5d 20 32	-navigate-imports-go-internal].2
0400	20 28 23 24 20 2e 20 37 31 32 29 20 6e 69 6c 5d 29 0a 23 40 31 35 34 20 52 65 74 75 72 6e 20 74	.(#$...712).nil]).#@154.Return.t
0420	6f 20 74 68 65 20 6e 6f 6e 2d 69 6d 70 6f 72 74 20 70 6f 69 6e 74 20 77 65 20 77 65 72 65 20 61	o.the.non-import.point.we.were.a
0440	74 20 62 65 66 6f 72 65 20 67 6f 69 6e 67 20 74 6f 20 74 68 65 20 6d 6f 64 75 6c 65 20 6c 69 73	t.before.going.to.the.module.lis
0460	74 2e 0a 20 20 20 49 66 20 77 65 20 77 65 72 65 20 6f 72 69 67 69 6e 61 6c 6c 79 20 61 74 20 61	t.....If.we.were.originally.at.a
0480	6e 20 69 6d 70 6f 72 74 20 6c 69 73 74 2c 20 77 65 20 63 61 6e 20 6a 75 73 74 20 63 79 63 6c 65	n.import.list,.we.can.just.cycle
04a0	20 74 68 72 6f 75 67 68 20 65 61 73 69 6c 79 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	.through.easily...(defalias.'has
04c0	6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 72 65 74 75 72 6e 20 23 5b 30	kell-navigate-imports-return.#[0
04e0	20 22 08 5c 32 30 35 06 00 08 62 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61	.".\205...b\207".[haskell-naviga
0500	74 65 2d 69 6d 70 6f 72 74 73 2d 73 74 61 72 74 2d 70 6f 69 6e 74 5d 20 31 20 28 23 24 20 2e 20	te-imports-start-point].1.(#$...
0520	31 30 34 38 29 20 6e 69 6c 5d 29 0a 23 40 36 38 20 47 6f 20 74 6f 20 74 68 65 20 66 69 72 73 74	1048).nil]).#@68.Go.to.the.first
0540	20 6c 69 6e 65 20 6f 66 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 65 63 75 74 69 76 65 20 69	.line.of.a.list.of.consecutive.i
0560	6d 70 6f 72 74 20 6c 69 6e 65 73 2e 20 43 79 63 6c 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	mport.lines..Cycle...(defalias.'
0580	68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 67 6f 2d 69 6e 74 65	haskell-navigate-imports-go-inte
05a0	72 6e 61 6c 20 23 5b 30 20 22 5c 33 30 31 20 5c 32 30 33 10 00 5c 33 30 32 20 5c 32 31 30 5c 33	rnal.#[0."\301.\203..\302.\210\3
05c0	30 33 20 5c 32 30 35 46 00 5c 33 30 34 20 5c 32 30 37 5c 33 30 33 20 5c 32 31 31 5c 32 30 33 1b	03.\205F.\304.\207\303.\211\203.
05e0	00 5c 32 31 31 62 5c 32 30 32 44 00 65 62 5c 32 31 30 5c 33 30 33 20 5c 32 30 33 28 00 5c 33 30	.\211b\202D.eb\210\303.\203(.\30
0600	34 20 5c 32 30 32 44 00 08 5c 33 30 35 3d 5c 32 30 33 32 00 5c 33 30 36 5c 32 30 32 33 00 5c 33	4.\202D..\305=\2032.\306\2023.\3
0620	30 37 5c 33 31 30 01 5c 33 31 31 5c 33 31 32 5c 33 31 33 24 5c 32 30 35 42 00 5c 33 31 34 5c 33	07\310.\311\312\313$\205B.\314\3
0640	31 35 5c 33 31 31 5c 33 31 32 5c 33 31 33 24 5c 32 36 32 01 5c 32 36 32 01 5c 32 30 37 22 20 5b	15\311\312\313$\262.\262.\207".[
0660	68 61 73 6b 65 6c 6c 2d 6c 69 74 65 72 61 74 65 20 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74	haskell-literate.haskell-navigat
0680	65 2d 69 6d 70 6f 72 74 73 2d 6c 69 6e 65 20 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d	e-imports-line.haskell-navigate-
06a0	69 6d 70 6f 72 74 73 2d 67 6f 74 6f 2d 65 6e 64 20 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74	imports-goto-end.haskell-navigat
06c0	65 2d 69 6d 70 6f 72 74 73 2d 66 69 6e 64 2d 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 68 61 73 6b	e-imports-find-forward-line.hask
06e0	65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 67 6f 2d 69 6e 74 65 72 6e 61 6c	ell-navigate-imports-go-internal
0700	20 62 69 72 64 20 22 5e 3e 20 3f 6d 6f 64 75 6c 65 22 20 22 5e 6d 6f 64 75 6c 65 22 20 73 65 61	.bird."^>.?module"."^module".sea
0720	72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 6e 69 6c 20 74 20 31 20 73 65 61 72 63	rch-forward-regexp.nil.t.1.searc
0740	68 2d 66 6f 72 77 61 72 64 20 22 5c 6e 5c 6e 22 5d 20 37 20 28 23 24 20 2e 20 31 33 32 39 29 5d	h-forward."\n\n"].7.(#$...1329)]
0760	29 0a 23 40 34 33 20 53 6b 69 70 20 61 20 62 75 6e 63 68 20 6f 66 20 63 6f 6e 73 65 63 75 74 69	).#@43.Skip.a.bunch.of.consecuti
0780	76 65 20 69 6d 70 6f 72 74 20 6c 69 6e 65 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	ve.import.lines...(defalias.'has
07a0	6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 67 6f 74 6f 2d 65 6e 64 20 23	kell-navigate-imports-goto-end.#
07c0	5b 30 20 22 60 64 5c 32 33 32 5c 32 30 36 09 00 5c 33 30 30 20 3f 3f 5c 32 30 35 13 00 5c 33 30	[0."`d\232\206..\300.??\205..\30
07e0	31 79 5c 32 31 30 5c 32 30 32 00 00 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67	1y\210\202..\207".[haskell-navig
0800	61 74 65 2d 69 6d 70 6f 72 74 73 2d 6c 69 6e 65 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 31 38	ate-imports-line.nil].2.(#$...18
0820	39 35 29 5d 29 0a 23 40 35 32 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 20 77 69 74 68 20 61	95)]).#@52.Return.a.point.with.a
0840	74 20 61 6e 20 69 6d 70 6f 72 74 20 6c 69 6e 65 2c 20 6f 72 20 6e 6f 74 68 69 6e 67 2e 1f 0a 28	t.an.import.line,.or.nothing...(
0860	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72	defalias.'haskell-navigate-impor
0880	74 73 2d 66 69 6e 64 2d 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 23 5b 30 20 22 5c 32 31 32 60 64	ts-find-forward-line.#[0."\212`d
08a0	5c 32 33 32 5c 32 30 34 17 00 5c 33 30 30 20 5c 32 30 34 17 00 5c 33 30 31 20 5c 32 30 34 17 00	\232\204..\300.\204..\301.\204..
08c0	5c 33 30 32 79 5c 32 31 30 5c 32 30 32 01 00 5c 33 30 31 20 5c 32 30 35 1d 00 60 29 5c 32 30 37	\302y\210\202..\301.\205..`)\207
08e0	22 20 5b 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 61 66 74 65	".[haskell-navigate-imports-afte
0900	72 2d 69 6d 70 6f 72 74 73 2d 70 20 68 61 73 6b 65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70	r-imports-p.haskell-navigate-imp
0920	6f 72 74 73 2d 6c 69 6e 65 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 32 30 39 31 29 5d 29 0a 23	orts-line.nil].2.(#$...2091)]).#
0940	40 34 34 20 54 72 79 20 74 6f 20 6d 61 74 63 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e	@44.Try.to.match.the.current.lin
0960	65 20 61 73 20 61 20 72 65 67 65 78 70 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65	e.as.a.regexp...(defalias.'haske
0980	6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 6c 69 6e 65 20 23 5b 30 20 22 5c 33	ll-navigate-imports-line.#[0."\3
09a0	30 31 5c 33 30 32 20 5c 33 30 33 20 5c 22 08 5c 33 30 34 3d 5c 32 30 33 10 00 5c 33 30 35 5c 32	01\302.\303.\".\304=\203..\305\2
09c0	30 32 11 00 5c 33 30 36 5c 33 30 37 01 03 5c 22 5c 32 30 35 19 00 01 5c 32 30 37 22 20 5b 68 61	02..\306\307..\"\205...\207".[ha
09e0	73 6b 65 6c 6c 2d 6c 69 74 65 72 61 74 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d	skell-literate.buffer-substring-
0a00	6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73	no-properties.line-beginning-pos
0a20	69 74 69 6f 6e 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 62 69 72 64 20 22 5e 3e	ition.line-end-position.bird."^>
0a40	20 3f 69 6d 70 6f 72 74 20 22 20 22 5e 69 6d 70 6f 72 74 20 22 20 73 74 72 69 6e 67 2d 6d 61 74	.?import."."^import.".string-mat
0a60	63 68 5d 20 35 20 28 23 24 20 2e 20 32 33 37 32 29 5d 29 0a 23 40 35 36 20 41 72 65 20 77 65 20	ch].5.(#$...2372)]).#@56.Are.we.
0a80	61 66 74 65 72 20 74 68 65 20 69 6d 70 6f 72 74 73 20 6c 69 73 74 3f 20 4a 75 73 74 20 66 6f 72	after.the.imports.list?.Just.for
0aa0	20 61 20 73 70 65 65 64 20 62 6f 6f 73 74 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b	.a.speed.boost...(defalias.'hask
0ac0	65 6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 2d 61 66 74 65 72 2d 69 6d 70 6f 72	ell-navigate-imports-after-impor
0ae0	74 73 2d 70 20 23 5b 30 20 22 5c 32 31 32 5c 33 30 30 20 62 5c 32 31 30 5c 33 30 31 5c 33 30 32	ts-p.#[0."\212\300.b\210\301\302
0b00	5c 33 30 33 20 5c 33 30 34 5c 33 30 35 24 29 3f 3f 5c 32 30 37 22 20 5b 6c 69 6e 65 2d 62 65 67	\303.\304\305$)??\207".[line-beg
0b20	69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72	inning-position.search-forward-r
0b40	65 67 65 78 70 20 22 5c 5c 28 20 3d 20 5c 5c 7c 5c 5c 3c 69 6e 73 74 61 6e 63 65 5c 5c 3e 5c 5c	egexp."\\(.=.\\|\\<instance\\>\\
0b60	7c 20 3a 3a 20 5c 5c 29 22 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 74 20 31 5d	|.::.\\)".line-end-position.t.1]
0b80	20 35 20 28 23 24 20 2e 20 32 36 38 31 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65	.5.(#$...2681)]).(provide.'haske
0ba0	6c 6c 2d 6e 61 76 69 67 61 74 65 2d 69 6d 70 6f 72 74 73 29 0a	ll-navigate-imports).