blob: bb8c572f248a57a57a632e2d0f947e85fc40e4c8 (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 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33	"\300\301!\210\302\303\304\305\3
01c0	30 36 44 44 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 26 07 5c 32 31 30 5c 33	06DD\307\310\311\312\313&.\210\3
01e0	30 32 5c 33 31 34 5c 33 30 34 5c 33 30 35 5c 33 31 35 44 44 5c 33 31 36 5c 33 31 30 5c 33 31 31	02\314\304\305\315DD\316\310\311
0200	5c 33 31 32 5c 33 31 37 26 07 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 6c 2d 6c 69 62 20	\312\317&.\207".[require.cl-lib.
0220	63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d	custom-declare-variable.haskell-
0240	63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 70 72 65 66 65 72 72 65 64 20 66 75 6e 63 61 6c	complete-module-preferred.funcal
0260	6c 20 66 75 6e 63 74 69 6f 6e 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20	l.function.#[0."\300\207".[nil].
0280	31 5d 20 22 4f 76 65 72 72 69 64 65 20 6f 72 64 65 72 69 6e 67 20 6f 66 20 6d 6f 64 75 6c 65 20	1]."Override.ordering.of.module.
02a0	72 65 73 75 6c 74 73 20 62 79 20 73 70 65 63 69 66 79 69 6e 67 20 70 72 65 66 65 72 72 65 64 20	results.by.specifying.preferred.
02c0	6d 6f 64 75 6c 65 73 2e 22 20 3a 67 72 6f 75 70 20 68 61 73 6b 65 6c 6c 20 3a 74 79 70 65 20 28	modules.".:group.haskell.:type.(
02e0	72 65 70 65 61 74 20 73 74 72 69 6e 67 29 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d	repeat.string).haskell-complete-
0300	6d 6f 64 75 6c 65 2d 6d 61 78 2d 64 69 73 70 6c 61 79 20 23 5b 30 20 22 5c 33 30 30 5c 32 30 37	module-max-display.#[0."\300\207
0320	22 20 5b 31 30 5d 20 31 5d 20 22 4d 61 78 69 6d 75 6d 20 69 74 65 6d 73 20 74 6f 20 64 69 73 70	".[10].1]."Maximum.items.to.disp
0340	6c 61 79 20 69 6e 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 6e 75 6d 62 65 72 5d 20 38 29 0a 23	lay.in.minibuffer.".number].8).#
0360	40 38 30 20 49 6e 74 65 72 61 63 74 69 76 65 6c 79 20 61 75 74 6f 2d 63 6f 6d 70 6c 65 74 65 20	@80.Interactively.auto-complete.
0380	66 72 6f 6d 20 61 20 6c 69 73 74 20 6f 66 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 0a 28 66 6e 20	from.a.list.of.candidates...(fn.
03a0	50 52 4f 4d 50 54 20 43 41 4e 44 49 44 41 54 45 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68	PROMPT.CANDIDATES)..(defalias.'h
03c0	61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 72 65 61 64 20 23 5b 35 31	askell-complete-module-read.#[51
03e0	34 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 31 5c 33 30 33 04 21 5c 32 31 30 5c 33 30 34 04 5c 33	4."\301\302\301\303.!\210\304.\3
0400	30 35 5c 22 5c 32 36 32 04 5c 32 31 31 5c 32 30 34 5c 33 35 37 00 5c 33 30 36 5c 33 30 37 5c 33	05\"\262.\211\204\357.\306\307\3
0420	31 30 5c 33 31 31 06 08 5c 33 31 32 5c 33 31 33 23 5c 33 31 31 06 06 5c 33 31 32 5c 33 31 34 23	10\311..\312\313#\311..\312\314#
0440	5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 06 5c 66 5c 33 30 31 5c 32 31 31 02 3a 5c 32 30	\315\316\317\320.\f\301\211.:\20
0460	33 5f 00 02 40 5c 32 36 32 02 03 08 58 5c 32 30 33 5f 00 03 54 5c 32 36 32 04 03 08 56 5c 32 30	3_..@\262...X\203_..T\262...V\20
0480	33 45 00 5c 33 32 31 5c 32 30 32 54 00 03 5c 33 32 32 55 5c 32 30 33 53 00 5c 33 31 31 02 5c 33	3E.\321\202T..\322U\203S.\311.\3
04a0	31 32 5c 33 32 33 23 5c 32 30 32 54 00 01 01 42 5c 32 36 32 01 02 41 5c 32 36 32 03 5c 32 30 32	12\323#\202T...B\262..A\262.\202
04c0	28 00 5c 32 31 31 5c 32 33 37 5c 32 36 36 5c 32 30 33 5c 32 36 32 01 5c 33 32 34 23 5c 33 32 35	(.\211\237\266\203\262.\324#\325
04e0	5c 32 36 30 05 21 21 21 5c 32 31 31 5c 33 32 36 5c 32 33 30 5c 32 30 33 79 00 5c 33 32 37 20 5c	\260.!!!\211\326\230\203y.\327.\
0500	32 31 30 5c 32 30 32 5c 33 35 33 00 5c 32 31 31 5c 33 33 30 5c 32 33 30 5c 32 30 33 5c 32 33 32	210\202\353.\211\330\230\203\232
0520	00 03 5c 32 30 33 5c 32 31 33 00 03 5c 32 31 31 41 5c 32 36 32 05 5c 32 34 32 5c 32 36 32 05 02	..\203\213..\211A\262.\242\262..
0540	5c 33 30 32 5c 32 33 30 5c 32 30 34 5c 33 35 33 00 02 5c 33 32 30 5c 33 33 31 4f 5c 32 36 32 03	\302\230\204\353..\320\331O\262.
0560	5c 32 30 32 5c 33 35 33 00 5c 32 31 31 5c 33 33 32 5c 32 33 30 5c 32 30 33 5c 32 35 33 00 04 40	\202\353.\211\332\230\203\253..@
0580	5c 32 30 36 5c 32 34 36 00 02 5c 32 36 32 02 5c 32 30 32 5c 33 35 33 00 5c 32 31 31 5c 33 33 33	\206\246..\262.\202\353.\211\333
05a0	5c 32 33 30 5c 32 30 33 5c 33 30 30 00 5c 33 33 34 5c 33 33 35 06 06 21 5c 33 33 36 06 07 21 5c	\230\203\300.\334\335..!\336..!\
05c0	22 5c 32 36 32 05 5c 32 30 32 5c 33 35 33 00 5c 32 31 31 5c 33 33 37 5c 32 33 30 5c 32 30 33 5c	"\262.\202\353.\211\337\230\203\
05e0	33 32 33 00 5c 33 33 34 05 41 06 06 40 43 5c 22 5c 32 36 32 05 5c 32 30 32 5c 33 35 33 00 5c 33	323.\334.A..@C\"\262.\202\353.\3
0600	34 30 5c 33 34 31 02 5c 22 5c 32 30 33 5c 33 35 33 00 04 04 42 5c 32 36 32 04 02 01 50 5c 32 36	40\341.\"\203\353...B\262...P\26
0620	32 03 5c 33 34 32 03 06 06 5c 22 5c 32 36 32 05 5c 32 31 30 5c 32 30 32 0d 00 5c 32 30 37 22 20	2.\342...\"\262.\210\202..\207".
0640	5b 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 6d 61 78 2d 64 69 73	[haskell-complete-module-max-dis
0660	70 6c 61 79 20 6e 69 6c 20 22 22 20 64 65 6c 65 74 65 2d 64 75 70 73 20 73 6f 72 74 20 23 5b 35	play.nil."".delete-dups.sort.#[5
0680	31 34 20 22 01 08 5c 32 33 35 01 08 5c 32 33 35 01 5c 32 30 33 12 00 5c 32 31 31 5c 32 30 34 12	14."..\235..\235.\203..\211\204.
06a0	00 5c 33 30 31 5c 32 30 32 21 00 5c 32 31 31 5c 32 30 33 1e 00 01 5c 32 30 34 1e 00 5c 33 30 32	.\301\202!.\211\203...\204..\302
06c0	5c 32 30 32 21 00 03 03 5c 32 33 31 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c	\202!...\231\207".[haskell-compl
06e0	65 74 65 2d 6d 6f 64 75 6c 65 2d 70 72 65 66 65 72 72 65 64 20 74 20 6e 69 6c 5d 20 36 20 22 5c	ete-module-preferred.t.nil].6."\
0700	6e 5c 6e 28 66 6e 20 41 20 42 29 22 5d 20 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 76 65	n\n(fn.A.B)"].key-description.ve
0720	63 74 6f 72 20 72 65 61 64 2d 6b 65 79 20 70 72 6f 70 65 72 74 69 7a 65 20 66 61 63 65 20 6d 69	ctor.read-key.propertize.face.mi
0740	6e 69 62 75 66 66 65 72 2d 70 72 6f 6d 70 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66	nibuffer-prompt.font-lock-type-f
0760	61 63 65 20 22 7b 22 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 30 20 22 2e 2e	ace."{".mapconcat.identity.0."..
0780	2e 22 20 31 20 69 64 6f 2d 66 69 72 73 74 2d 6d 61 74 63 68 2d 66 61 63 65 20 22 20 7c 20 22 20	.".1.ido-first-match-face.".|.".
07a0	22 7d 22 20 22 43 2d 67 22 20 6b 65 79 62 6f 61 72 64 2d 71 75 69 74 20 22 44 45 4c 22 20 2d 31	"}"."C-g".keyboard-quit."DEL".-1
07c0	20 22 52 45 54 22 20 22 3c 6c 65 66 74 3e 22 20 61 70 70 65 6e 64 20 6c 61 73 74 20 62 75 74 6c	."RET"."<left>".append.last.butl
07e0	61 73 74 20 22 3c 72 69 67 68 74 3e 22 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 41 2d 5a	ast."<right>".string-match."[A-Z
0800	61 2d 7a 30 2d 39 5f 27 2e 5d 2b 22 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f	a-z0-9_'.]+".haskell-complete-mo
0820	64 75 6c 65 5d 20 32 31 20 28 23 24 20 2e 20 38 36 38 29 5d 29 0a 23 40 36 33 20 46 69 6c 74 65	dule].21.(#$...868)]).#@63.Filte
0840	72 20 74 68 65 20 43 41 4e 44 49 44 41 54 45 53 20 75 73 69 6e 67 20 50 41 54 54 45 52 4e 2e 0a	r.the.CANDIDATES.using.PATTERN..
0860	0a 28 66 6e 20 50 41 54 54 45 52 4e 20 43 41 4e 44 49 44 41 54 45 53 29 1f 0a 28 64 65 66 61 6c	.(fn.PATTERN.CANDIDATES)..(defal
0880	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 20 23 5b 35	ias.'haskell-complete-module.#[5
08a0	31 34 20 22 5c 33 30 31 18 5c 32 31 31 5c 33 30 32 5c 32 31 31 02 3a 5c 32 30 33 21 00 02 40 5c	14."\301.\211\302\211.:\203!..@\
08c0	32 36 32 02 5c 33 30 33 05 03 5c 22 5c 32 30 33 1a 00 01 01 42 5c 32 36 32 01 02 41 5c 32 36 32	262.\303..\"\203....B\262..A\262
08e0	03 5c 32 30 32 05 00 5c 32 31 31 5c 32 33 37 5c 32 36 36 5c 32 30 33 29 5c 32 30 37 22 20 5b 63	.\202..\211\237\266\203)\207".[c
0900	61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 20 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 63 6f	ase-fold-search.t.nil.haskell-co
0920	6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 6d 61 74 63 68 5d 20 38 20 28 23 24 20 2e 20 32 31 30	mplete-module-match].8.(#$...210
0940	37 29 5d 29 0a 23 40 34 38 20 4d 61 74 63 68 20 50 41 54 54 45 52 4e 20 61 67 61 69 6e 73 74 20	7)]).#@48.Match.PATTERN.against.
0960	54 45 58 54 2e 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 20 54 45 58 54 29 1f 0a 28 64 65 66 61 6c	TEXT...(fn.PATTERN.TEXT)..(defal
0980	69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 6d 61 74	ias.'haskell-complete-module-mat
09a0	63 68 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 03 21 02 5c 22 5c 32 30 37 22 20 5b 73 74	ch.#[514."\300\301.!.\"\207".[st
09c0	72 69 6e 67 2d 6d 61 74 63 68 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75	ring-match.haskell-complete-modu
09e0	6c 65 2d 72 65 67 65 78 70 5d 20 35 20 28 23 24 20 2e 20 32 33 37 38 29 5d 29 0a 23 40 31 31 38	le-regexp].5.(#$...2378)]).#@118
0a00	20 4d 61 6b 65 20 61 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 66 6f 72 20 74	.Make.a.regular.expression.for.t
0a20	68 65 20 67 69 76 65 6e 20 6d 6f 64 75 6c 65 20 70 61 74 74 65 72 6e 2e 20 45 78 61 6d 70 6c 65	he.given.module.pattern..Example
0a40	3a 0a 0a 22 63 2e 6d 2e 73 22 20 2d 3e 20 22 5e 63 5b 5e 2e 5d 2a 5c 2e 6d 5b 5e 2e 5d 2a 5c 2e	:.."c.m.s".->."^c[^.]*\.m[^.]*\.
0a60	73 5b 5e 2e 5d 2a 22 0a 0a 28 66 6e 20 50 41 54 54 45 52 4e 29 1f 0a 28 64 65 66 61 6c 69 61 73	s[^.]*"..(fn.PATTERN)..(defalias
0a80	20 27 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 72 65 67 65 78 70	.'haskell-complete-module-regexp
0aa0	20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 5c 33 30 33 5c 33 30 34 23 5c 22	.#[257."\300\301\302.\303\304#\"
0ac0	5c 33 30 35 5c 33 30 36 5c 33 30 37 03 5c 33 30 33 23 50 5c 32 30 37 22 20 5b 6d 61 70 63 61 72	\305\306\307.\303#P\207".[mapcar
0ae0	20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 63 6f 6d 70 6f 6e 65	.haskell-complete-module-compone
0b00	6e 74 20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 5c 5c 2e 22 20 74 20 22 5e 22 20 6d 61 70 63	nt.split-string."\\.".t."^".mapc
0b20	6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 5d 20 37 20 28 23 24 20 2e 20 32 35 36 31 29 5d 29 0a	oncat.identity].7.(#$...2561)]).
0b40	23 40 31 30 31 20 4d 61 6b 65 20 61 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20	#@101.Make.a.regular.expression.
0b60	66 6f 72 20 74 68 65 20 67 69 76 65 6e 20 63 6f 6d 70 6f 6e 65 6e 74 2e 20 45 78 61 6d 70 6c 65	for.the.given.component..Example
0b80	3a 0a 0a 22 63 6f 22 20 2d 3e 20 22 63 5b 5e 2e 5d 2a 6f 5b 5e 2e 5d 2a 22 0a 0a 28 66 6e 20 43	:.."co".->."c[^.]*o[^.]*"..(fn.C
0ba0	4f 4d 50 4f 4e 45 4e 54 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 63 6f	OMPONENT)..(defalias.'haskell-co
0bc0	6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 2d 63 6f 6d 70 6f 6e 65 6e 74 20 23 5b 32 35 37 20 22 5c	mplete-module-component.#[257."\
0be0	33 30 30 5c 33 30 31 5c 33 30 32 03 23 5c 32 30 37 22 20 5b 72 65 70 6c 61 63 65 2d 72 65 67 65	300\301\302.#\207".[replace-rege
0c00	78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 28 2e 5c 5c 29 22 20 22 5c 5c 31 5b 5e 2e 5d 2a	xp-in-string."\\(.\\)"."\\1[^.]*
0c20	22 5d 20 35 20 28 23 24 20 2e 20 32 38 38 36 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73	"].5.(#$...2886)]).(provide.'has
0c40	6b 65 6c 6c 2d 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 75 6c 65 29 0a	kell-complete-module).