blob: 1b5fe2e25324ea19578aa953efab5f8750b57eae (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 72 65 71 75 69 72 65 20 27 63	;;;;;;;;;;;;;;;;;;...(require.'c
01a0	6c 2d 6c 69 62 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f	l-lib).(defvar.haskell-sort-impo
01c0	72 74 73 2d 72 65 67 65 78 70 20 22 5e 69 6d 70 6f 72 74 5b 20 5d 2b 5c 5c 28 71 75 61 6c 69 66	rts-regexp."^import[.]+\\(qualif
01e0	69 65 64 20 5c 5c 29 3f 5b 20 5d 2a 5c 5c 28 5c 22 5b 5e 5c 22 5d 2a 5c 22 20 5c 5c 29 3f 5b 20	ied.\\)?[.]*\\(\"[^\"]*\".\\)?[.
0200	5d 2a 5c 5c 28 5b 41 2d 5a 61 2d 7a 30 2d 39 5f 2e 27 5d 2a 2e 2a 5c 5c 29 22 29 0a 23 40 32 30	]*\\([A-Za-z0-9_.']*.*\\)").#@20
0220	33 20 53 6f 72 74 20 74 68 65 20 69 6d 70 6f 72 74 20 6c 69 73 74 20 61 74 20 70 6f 69 6e 74 2e	3.Sort.the.import.list.at.point.
0240	20 49 74 20 73 6f 72 74 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 67 72 6f 75 70 0a 69 2e 65 2e	.It.sorts.the.current.group.i.e.
0260	20 61 6e 20 69 6d 70 6f 72 74 20 6c 69 73 74 20 73 65 70 61 72 61 74 65 64 20 62 79 20 62 6c 61	.an.import.list.separated.by.bla
0280	6e 6b 20 6c 69 6e 65 73 20 6f 6e 20 65 69 74 68 65 72 20 73 69 64 65 2e 0a 0a 49 66 20 74 68 65	nk.lines.on.either.side...If.the
02a0	20 72 65 67 69 6f 6e 20 69 73 20 61 63 74 69 76 65 2c 20 69 74 20 77 69 6c 6c 20 72 65 73 74 72	.region.is.active,.it.will.restr
02c0	69 63 74 20 74 68 65 20 69 6d 70 6f 72 74 73 20 74 6f 20 73 6f 72 74 0a 77 69 74 68 69 6e 20 74	ict.the.imports.to.sort.within.t
02e0	68 61 74 20 72 65 67 69 6f 6e 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d	hat.region...(defalias.'haskell-
0300	73 6f 72 74 2d 69 6d 70 6f 72 74 73 20 23 5b 30 20 22 5c 33 30 30 20 5c 32 30 35 52 00 5c 33 30	sort-imports.#[0."\300.\205R.\30
0320	31 20 5c 33 30 32 01 40 02 41 5c 22 60 02 40 5a 5c 33 30 33 20 5c 32 30 33 20 00 5c 33 30 34 20	1.\302.@.A\"`.@Z\303.\203..\304.
0340	62 5c 32 31 30 5c 33 30 35 20 5c 32 31 30 5c 32 30 32 23 00 5c 33 30 36 20 5c 32 31 30 60 5c 33	b\210\305.\210\202#.\306.\210`\3
0360	30 37 20 5c 33 31 30 5c 33 31 31 02 21 5c 33 31 32 5c 22 01 01 5c 32 33 32 5c 32 30 34 3b 00 02	07.\310\311.!\312\"..\232\204;..
0380	60 7c 5c 32 31 30 5c 33 31 33 5c 33 31 34 02 5c 22 5c 32 31 30 02 62 5c 32 31 30 5c 33 31 35 05	`|\210\313\314.\"\210.b\210\315.
03a0	5c 33 31 36 5c 33 31 37 5c 33 32 30 24 5c 32 30 35 4e 00 04 47 5b 75 5c 32 31 30 03 75 5c 32 36	\316\317\320$\205N..G[u\210.u\26
03c0	36 5c 32 30 33 5c 32 36 36 5c 32 30 33 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 6f 72 74	6\203\266\203\207".[haskell-sort
03e0	2d 69 6d 70 6f 72 74 73 2d 61 74 2d 69 6d 70 6f 72 74 20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d	-imports-at-import.haskell-sort-
0400	69 6d 70 6f 72 74 73 2d 64 65 63 6c 2d 70 6f 69 6e 74 73 20 62 75 66 66 65 72 2d 73 75 62 73 74	imports-decl-points.buffer-subst
0420	72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 72 65 67 69 6f 6e 2d 61 63 74 69 76 65	ring-no-properties.region-active
0440	2d 70 20 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74	-p.region-beginning.haskell-sort
0460	2d 69 6d 70 6f 72 74 73 2d 67 6f 74 6f 2d 69 6d 70 6f 72 74 2d 73 74 61 72 74 20 68 61 73 6b 65	-imports-goto-import-start.haske
0480	6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 67 6f 74 6f 2d 67 72 6f 75 70 2d 73 74 61 72 74	ll-sort-imports-goto-group-start
04a0	20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 63 6f 6c 6c 65 63 74 2d 69 6d	.haskell-sort-imports-collect-im
04c0	70 6f 72 74 73 20 73 6f 72 74 20 63 6c 2d 63 6f 70 79 2d 6c 69 73 74 20 23 5b 35 31 34 20 22 5c	ports.sort.cl-copy-list.#[514."\
04e0	33 30 30 02 21 5c 33 30 30 02 21 5c 32 33 31 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 6f	300.!\300.!\231\207".[haskell-so
0500	72 74 2d 69 6d 70 6f 72 74 73 2d 6e 6f 72 6d 61 6c 69 7a 65 5d 20 35 20 22 5c 6e 5c 6e 28 66 6e	rt-imports-normalize].5."\n\n(fn
0520	20 41 20 42 29 22 5d 20 6d 61 70 63 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 36 31	.A.B)"].mapc.#[257."\211\300\261
0540	02 5c 32 30 37 22 20 5b 22 5c 6e 22 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 49 4d 50 4f 52 54 29	.\207".["\n"].3."\n\n(fn.IMPORT)
0560	22 5d 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6e 69 6c 20 74 20 31 5d 20 31 31 20 28 23	"].search-forward.nil.t.1].11.(#
0580	24 20 2e 20 35 34 36 29 20 6e 69 6c 5d 29 0a 23 40 36 39 20 4e 6f 72 6d 61 6c 69 7a 65 20 61 6e	$...546).nil]).#@69.Normalize.an
05a0	20 69 6d 70 6f 72 74 2c 20 69 66 20 70 6f 73 73 69 62 6c 65 2c 20 73 6f 20 74 68 61 74 20 69 74	.import,.if.possible,.so.that.it
05c0	20 63 61 6e 20 62 65 20 73 6f 72 74 65 64 2e 0a 0a 28 66 6e 20 49 29 1f 0a 28 64 65 66 61 6c 69	.can.be.sorted...(fn.I)..(defali
05e0	61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 6e 6f 72 6d 61 6c 69	as.'haskell-sort-imports-normali
0600	7a 65 20 23 5b 32 35 37 20 22 5c 33 30 31 08 02 5c 22 5c 32 30 33 5c 66 00 5c 33 30 32 5c 33 30	ze.#[257."\301..\"\203\f.\302\30
0620	33 02 5c 22 5c 32 30 37 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f	3.\"\207\207".[haskell-sort-impo
0640	72 74 73 2d 72 65 67 65 78 70 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 6d 61 74 63 68 2d 73 74	rts-regexp.string-match.match-st
0660	72 69 6e 67 20 33 5d 20 34 20 28 23 24 20 2e 20 31 34 32 38 29 5d 29 0a 28 64 65 66 61 6c 69 61	ring.3].4.(#$...1428)]).(defalia
0680	73 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 63 6f 6c 6c 65 63 74 2d	s.'haskell-sort-imports-collect-
06a0	69 6d 70 6f 72 74 73 20 23 5b 30 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 21 5c 32 30 33 1e 00	imports.#[0."\300\301\302!\203..
06c0	5c 33 30 33 20 5c 33 30 34 01 40 02 41 5c 22 01 41 54 64 5e 62 5c 32 31 30 5c 32 31 31 03 42 5c	\303.\304.@.A\".ATd^b\210\211.B\
06e0	32 36 36 5c 32 30 33 5c 32 30 32 01 00 5c 33 30 35 5c 33 30 36 5c 33 30 30 5c 33 30 37 04 21 5c	266\203\202..\305\306\300\307.!\
0700	22 21 5c 32 30 37 22 20 5b 6e 69 6c 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 69 6d 70 6f 72 74 22	"!\207".[nil.looking-at."import"
0720	20 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 64 65 63 6c 2d 70 6f 69 6e 74	.haskell-sort-imports-decl-point
0740	73 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73	s.buffer-substring-no-properties
0760	20 72 65 76 65 72 73 65 20 64 65 6c 71 20 64 65 6c 65 74 65 2d 64 75 70 73 5d 20 36 5d 29 0a 23	.reverse.delq.delete-dups].6]).#
0780	40 33 38 20 47 6f 20 74 6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 69 6d 70 6f 72	@38.Go.to.the.start.of.the.impor
07a0	74 20 67 72 6f 75 70 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72	t.group...(defalias.'haskell-sor
07c0	74 2d 69 6d 70 6f 72 74 73 2d 67 6f 74 6f 2d 67 72 6f 75 70 2d 73 74 61 72 74 20 23 5b 30 20 22	t-imports-goto-group-start.#[0."
07e0	5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 24 5c 32 30 33 11 00 5c 33 30 35 5c	\300\301\302\303\304$\203..\305\
0800	33 30 36 20 5c 5c 62 5c 32 30 36 23 00 5c 33 30 37 5c 33 31 30 5c 33 30 32 5c 33 30 33 5c 33 30	306.\\b\206#.\307\310\302\303\30
0820	34 24 5c 32 30 33 21 00 5c 33 30 36 20 54 62 5c 32 30 36 23 00 65 62 5c 32 30 37 22 20 5b 73 65	4$\203!.\306.Tb\206#.eb\207".[se
0840	61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5c 6e 5c 6e 22 20 6e 69 6c 20 74 20 31 20 32 20 6c	arch-backward."\n\n".nil.t.1.2.l
0860	69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64	ine-end-position.search-backward
0880	2d 72 65 67 65 78 70 20 22 5e 6d 6f 64 75 6c 65 20 22 5d 20 35 20 28 23 24 20 2e 20 31 39 32 34	-regexp."^module."].5.(#$...1924
08a0	29 5d 29 0a 23 40 32 32 20 41 72 65 20 77 65 20 61 74 20 61 6e 20 69 6d 70 6f 72 74 3f 1f 0a 28	)]).#@22.Are.we.at.an.import?..(
08c0	64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 61	defalias.'haskell-sort-imports-a
08e0	74 2d 69 6d 70 6f 72 74 20 23 5b 30 20 22 5c 32 31 32 5c 33 30 30 20 5c 32 31 30 5c 33 30 31 5c	t-import.#[0."\212\300.\210\301\
0900	33 30 32 21 29 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73	302!)\207".[haskell-sort-imports
0920	2d 67 6f 74 6f 2d 69 6d 70 6f 72 74 2d 73 74 61 72 74 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 69	-goto-import-start.looking-at."i
0940	6d 70 6f 72 74 22 5d 20 32 20 28 23 24 20 2e 20 32 32 31 37 29 5d 29 0a 23 40 33 32 20 47 6f 20	mport"].2.(#$...2217)]).#@32.Go.
0960	74 6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 69 6d 70 6f 72 74 2e 1f 0a 28 64 65	to.the.start.of.the.import...(de
0980	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 67 6f 74	falias.'haskell-sort-imports-got
09a0	6f 2d 69 6d 70 6f 72 74 2d 73 74 61 72 74 20 23 5b 30 20 22 5c 33 30 30 20 40 62 5c 32 30 37 22	o-import-start.#[0."\300.@b\207"
09c0	20 5b 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 64 65 63 6c 2d 70 6f 69 6e	.[haskell-sort-imports-decl-poin
09e0	74 73 5d 20 31 20 28 23 24 20 2e 20 32 33 39 37 29 5d 29 0a 23 40 33 36 20 47 65 74 20 74 68 65	ts].1.(#$...2397)]).#@36.Get.the
0a00	20 70 6f 69 6e 74 73 20 6f 66 20 74 68 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 1f 0a 28 64 65	.points.of.the.declaration...(de
0a20	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 2d 64 65 63	falias.'haskell-sort-imports-dec
0a40	6c 2d 70 6f 69 6e 74 73 20 23 5b 30 20 22 5c 32 31 32 5c 33 30 30 20 62 5c 32 31 30 5c 33 30 31	l-points.#[0."\212\300.b\210\301
0a60	5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 24 5c 32 31 30 5c 33 30 36 5c 33 30 37 21 5c 32	\302\303\304\305$\210\306\307!\2
0a80	30 34 1c 00 5c 33 30 36 5c 33 31 30 21 5c 32 30 34 1c 00 60 5c 32 30 36 1d 00 5c 33 31 31 60 54	04..\306\310!\204..`\206..\311`T
0aa0	62 5c 32 31 30 5c 33 31 32 5c 33 31 33 5c 33 30 33 5c 33 30 34 5c 33 30 35 24 5c 32 30 33 38 00	b\210\312\313\303\304\305$\2038.
0ac0	5c 33 31 34 75 5c 32 31 30 5c 33 30 31 5c 33 31 35 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33	\314u\210\301\315\303\304#\210\3
0ae0	30 30 20 5c 32 30 36 47 00 5c 33 31 32 5c 33 31 36 5c 33 30 33 5c 33 30 34 5c 33 30 35 24 5c 32	00.\206G.\312\316\303\304\305$\2
0b00	30 33 46 00 60 53 5c 32 30 36 47 00 64 01 01 42 5c 32 36 36 5c 32 30 32 29 5c 32 30 37 22 20 5b	03F.`S\206G.d..B\266\202)\207".[
0b20	6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72	line-end-position.search-backwar
0b40	64 2d 72 65 67 65 78 70 20 22 5e 5b 5e 20 5c 6e 5d 22 20 6e 69 6c 20 74 20 31 20 6c 6f 6f 6b 69	d-regexp."^[^.\n]".nil.t.1.looki
0b60	6e 67 2d 61 74 20 22 5e 2d 7d 24 22 20 22 5e 7b 2d 24 22 20 30 20 73 65 61 72 63 68 2d 66 6f 72	ng-at."^-}$"."^{-$".0.search-for
0b80	77 61 72 64 2d 72 65 67 65 78 70 20 22 5b 5c 6e 5d 2b 5b 5e 20 5c 6e 5d 22 20 2d 31 20 22 5b 5e	ward-regexp."[\n]+[^.\n]".-1."[^
0ba0	5c 6e 20 5d 22 20 22 5c 6e 22 5d 20 36 20 28 23 24 20 2e 20 32 35 35 33 29 5d 29 0a 28 70 72 6f	\n.]"."\n"].6.(#$...2553)]).(pro
0bc0	76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 73 6f 72 74 2d 69 6d 70 6f 72 74 73 29 0a	vide.'haskell-sort-imports).