blob: f00f8d1ebaa6794793c7acbf9531bb03bbb5c264 (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 63 6f 6e	ptimizations...;;;.This.file.con
0060	74 61 69 6e 73 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73	tains.utf-8.non-ASCII.characters
0080	2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 61 64 65 64 20 69 6e	,.;;;.and.so.cannot.be.loaded.in
00a0	74 6f 20 45 6d 61 63 73 20 32 32 20 6f 72 20 65 61 72 6c 69 65 72 2e 0a 28 61 6e 64 20 28 62 6f	to.Emacs.22.or.earlier..(and.(bo
00c0	75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 0a 20 20 20 20 20 28 3c 20 28 61 72	undp.'emacs-version)......(<.(ar
00e0	65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 65 6d 61	ef.emacs-version.(1-.(length.ema
0100	63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	cs-version))).?A)......(string-l
0120	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 32 33 22 29 0a 20 20 20 20 20 28 65	essp.emacs-version."23")......(e
0140	72 72 6f 72 20 22 60 25 73 27 20 77 61 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 45 6d 61 63	rror."`%s'.was.compiled.for.Emac
0160	73 20 32 33 20 6f 72 20 6c 61 74 65 72 22 20 23 24 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	s.23.or.later".#$))..;;;;;;;;;;;
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 30 5c 33 30 34 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30	303!\210\300\304!\210\305\306\30
01e0	37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 26 09 5c	7\310\311\312\313\314\315\316&.\
0200	32 31 30 5c 33 31 37 5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 44 44 5c 33 32 34 5c 33 31	210\317\320\321\322\323DD\324\31
0220	33 5c 33 30 36 5c 33 32 35 5c 33 32 36 26 07 5c 32 31 30 5c 33 31 37 5c 33 32 37 5c 33 32 31 5c	3\306\325\326&.\210\317\327\321\
0240	33 32 32 5c 33 33 30 44 44 5c 33 33 31 5c 33 31 33 5c 33 30 36 5c 33 32 35 5c 33 32 36 26 07 5c	322\330DD\331\313\306\325\326&.\
0260	32 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 6c 2d 6c 69 62 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64	207".[require.cl-lib.haskell-mod
0280	65 20 73 79 6e 74 61 78 20 69 6d 65 6e 75 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 67 72	e.syntax.imenu.custom-declare-gr
02a0	6f 75 70 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 20 6e 69 6c 20 22 48 61 73 6b 65	oup.haskell-decl-scan.nil."Haske
02c0	6c 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 73 63 61 6e 6e 69 6e 67 20 28 60 69 6d 65 6e 75 27	ll.declaration.scanning.(`imenu'
02e0	20 73 75 70 70 6f 72 74 29 2e 22 20 3a 6c 69 6e 6b 20 28 63 75 73 74 6f 6d 2d 6d 61 6e 75 61 6c	.support).".:link.(custom-manual
0300	20 22 28 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 29 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61	."(haskell-mode)haskell-decl-sca
0320	6e 2d 6d 6f 64 65 22 29 20 3a 67 72 6f 75 70 20 68 61 73 6b 65 6c 6c 20 3a 70 72 65 66 69 78 20	n-mode").:group.haskell.:prefix.
0340	22 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 22 20 63 75 73 74 6f 6d 2d 64 65 63 6c	"haskell-decl-scan-".custom-decl
0360	61 72 65 2d 76 61 72 69 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 62	are-variable.haskell-decl-scan-b
0380	69 6e 64 69 6e 67 73 2d 61 73 2d 76 61 72 69 61 62 6c 65 73 20 66 75 6e 63 61 6c 6c 20 66 75 6e	indings-as-variables.funcall.fun
03a0	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 31 5d 20 22 57	ction.#[0."\300\207".[nil].1]."W
03c0	68 65 74 68 65 72 20 74 6f 20 70 75 74 20 74 6f 70 2d 6c 65 76 65 6c 20 76 61 6c 75 65 20 62 69	hether.to.put.top-level.value.bi
03e0	6e 64 69 6e 67 73 20 69 6e 74 6f 20 61 20 5c 22 56 61 72 69 61 62 6c 65 73 5c 22 20 63 61 74 65	ndings.into.a.\"Variables\".cate
0400	67 6f 72 79 2e 22 20 3a 74 79 70 65 20 62 6f 6f 6c 65 61 6e 20 68 61 73 6b 65 6c 6c 2d 64 65 63	gory.".:type.boolean.haskell-dec
0420	6c 2d 73 63 61 6e 2d 61 64 64 2d 74 6f 2d 6d 65 6e 75 62 61 72 20 23 5b 30 20 22 5c 33 30 30 5c	l-scan-add-to-menubar.#[0."\300\
0440	32 30 37 22 20 5b 74 5d 20 31 5d 20 22 57 68 65 74 68 65 72 20 74 6f 20 61 64 64 20 61 20 5c 22	207".[t].1]."Whether.to.add.a.\"
0460	44 65 63 6c 61 72 61 74 69 6f 6e 73 5c 22 20 6d 65 6e 75 20 65 6e 74 72 79 20 74 6f 20 6d 65 6e	Declarations\".menu.entry.to.men
0480	75 20 62 61 72 2e 22 5d 20 31 30 29 0a 23 40 34 30 20 4b 65 79 77 6f 72 64 73 20 74 68 61 74 20	u.bar."].10).#@40.Keywords.that.
04a0	6d 61 79 20 73 74 61 72 74 20 61 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 1f 0a 28 64 65 66 76 61	may.start.a.declaration...(defva
04c0	72 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 20 22	r.haskell-ds-start-keywords-re."
04e0	5c 5c 28 5c 5c 3c 63 6c 61 73 73 5c 5c 7c 64 61 74 61 5c 5c 7c 69 5c 5c 28 6d 70 6f 72 74 5c 5c	\\(\\<class\\|data\\|i\\(mport\\
0500	7c 6e 5c 5c 28 66 69 78 5c 5c 28 5c 5c 7c 5b 6c 72 5d 5c 5c 29 5c 5c 7c 73 74 61 6e 63 65 5c 5c	|n\\(fix\\(\\|[lr]\\)\\|stance\\
0520	29 5c 5c 29 5c 5c 7c 6d 6f 64 75 6c 65 5c 5c 7c 70 72 69 6d 69 74 69 76 65 5c 5c 7c 74 79 70 65	)\\)\\|module\\|primitive\\|type
0540	5c 5c 7c 6e 65 77 74 79 70 65 5c 5c 29 5c 5c 3e 22 20 28 23 24 20 2e 20 31 31 37 30 29 29 0a 23	\\|newtype\\)\\>".(#$...1170)).#
0560	40 35 33 20 53 79 6e 74 61 78 20 74 61 62 6c 65 20 75 73 65 64 20 66 6f 72 20 48 61 73 6b 65 6c	@53.Syntax.table.used.for.Haskel
0580	6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 73 63 61 6e 6e 69 6e 67 2e 1f 0a 28 64 65 66 76 61 72	l.declaration.scanning...(defvar
05a0	20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 62 79 74 65 2d 63	.haskell-ds-syntax-table.(byte-c
05c0	6f 64 65 20 22 5c 33 30 31 08 21 5c 33 30 32 5c 33 30 33 5c 33 30 34 03 23 5c 32 31 30 5c 33 30	ode."\301.!\302\303\304.#\210\30
05e0	32 5c 33 30 35 5c 33 30 34 03 23 5c 32 31 30 5c 33 30 32 5c 33 30 36 5c 33 30 37 03 23 5c 32 31	2\305\304.#\210\302\306\307.#\21
0600	30 5c 32 31 31 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d	0\211\207".[haskell-mode-syntax-
0620	74 61 62 6c 65 20 63 6f 70 79 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 6f 64 69 66 79 2d 73	table.copy-syntax-table.modify-s
0640	79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 77 22 20 39 35 20 39 32 20 22 5f 22 5d 20 35 29	yntax-entry.39."w".95.92."_"].5)
0660	20 28 23 24 20 2e 20 31 33 38 30 29 29 0a 23 40 32 38 37 20 52 65 74 75 72 6e 20 76 61 72 69 61	.(#$...1380)).#@287.Return.varia
0680	62 6c 65 20 69 6e 76 6f 6c 76 65 64 20 69 6e 20 76 61 6c 75 65 20 62 69 6e 64 69 6e 67 20 6f 72	ble.involved.in.value.binding.or
06a0	20 74 79 70 65 20 73 69 67 6e 61 74 75 72 65 2e 0a 41 73 73 75 6d 65 73 20 70 6f 69 6e 74 20 69	.type.signature..Assumes.point.i
06c0	73 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 74 68 65 20 72 65 67 65 78 70 20 50 52 45 46 49 58 20 66	s.looking.at.the.regexp.PREFIX.f
06e0	6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 0a 73 74 61 72 74 20 6f 66 20 61 20 64 65 63 6c 61 72	ollowed.by.the.start.of.a.declar
0700	61 74 69 6f 6e 20 28 70 65 72 68 61 70 73 20 69 6e 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20	ation.(perhaps.in.the.middle.of.
0720	61 20 73 65 72 69 65 73 20 6f 66 0a 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 63 6f 6e 63 65 72 6e	a.series.of.declarations.concern
0740	69 6e 67 20 61 20 73 69 6e 67 6c 65 20 76 61 72 69 61 62 6c 65 29 2e 20 20 4f 74 68 65 72 77 69	ing.a.single.variable)...Otherwi
0760	73 65 20 72 65 74 75 72 6e 20 6e 69 6c 2e 0a 50 6f 69 6e 74 20 69 73 20 6e 6f 74 20 63 68 61 6e	se.return.nil..Point.is.not.chan
0780	67 65 64 2e 0a 0a 28 66 6e 20 50 52 45 46 49 58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61	ged...(fn.PREFIX)..(defalias.'ha
07a0	73 6b 65 6c 6c 2d 64 73 2d 67 65 74 2d 76 61 72 69 61 62 6c 65 20 23 5b 32 35 37 20 22 5c 32 31	skell-ds-get-variable.#[257."\21
07c0	32 5c 33 30 32 20 70 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 06 06 06 5c	2\302.p\303\304\305\306\307....\
07e0	22 5c 33 31 30 5c 22 5c 33 31 31 24 5c 32 31 36 5c 33 31 32 08 21 5c 32 31 30 5c 33 31 33 03 21	"\310\"\311$\216\312.!\210\313.!
0800	5c 32 30 33 21 00 5c 33 30 34 5c 32 32 35 62 5c 32 31 30 5c 33 31 33 09 21 3f 5c 32 30 35 74 00	\203!.\304\225b\210\313.!?\205t.
0820	5c 33 31 33 5c 33 31 34 21 5c 32 30 33 34 00 5c 33 31 35 5c 33 31 36 21 5c 32 30 36 74 00 5c 33	\313\314!\2034.\315\316!\206t.\3
0840	31 33 5c 33 31 37 66 5c 33 32 30 3d 5c 32 30 33 43 00 5c 33 32 31 20 5c 32 31 30 5c 33 32 32 5c	13\317f\320=\203C.\321.\210\322\
0860	32 30 32 44 00 5c 33 32 33 21 5c 32 30 33 6b 00 5c 33 31 35 5c 33 31 31 21 5c 32 31 31 5c 33 32	202D.\323!\203k.\315\311!\211\32
0880	34 5c 32 33 35 5c 32 30 33 57 00 5c 33 31 35 5c 33 31 36 21 5c 32 30 32 66 00 5c 32 31 31 5c 33	4\235\203W.\315\316!\202f.\211\3
08a0	30 34 48 5c 33 32 35 3d 5c 32 30 33 65 00 5c 33 31 35 5c 33 32 36 21 5c 32 30 32 66 00 5c 32 31	04H\325=\203e.\315\326!\202f.\21
08c0	31 5c 32 36 32 01 5c 32 30 36 74 00 5c 33 31 33 5c 33 32 37 21 5c 32 30 35 74 00 5c 33 31 35 5c	1\262.\206t.\313\327!\205t.\315\
08e0	33 30 34 21 29 5c 32 36 36 5c 32 30 32 29 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 64 73 2d	304!)\266\202)\207".[haskell-ds-
0900	73 79 6e 74 61 78 2d 74 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72 74 2d 6b 65	syntax-table.haskell-ds-start-ke
0920	79 77 6f 72 64 73 2d 72 65 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 62 79 74 65	ywords-re.syntax-table.make-byte
0940	2d 63 6f 64 65 20 30 20 22 72 5c 33 30 31 71 5c 32 31 30 5c 33 30 32 5c 33 30 30 21 29 5c 32 30	-code.0."r\301q\210\302\300!)\20
0960	37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 73 65 74 2d 73 79 6e 74 61 78 2d 74 61	7".vconcat.vector.[set-syntax-ta
0980	62 6c 65 5d 20 32 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 6f 6f 6b 69 6e 67 2d	ble].2.set-syntax-table.looking-
09a0	61 74 20 22 28 5c 5c 28 5c 5c 73 5f 2b 5c 5c 29 29 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d	at."(\\(\\s_+\\))".match-string-
09c0	6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 20 6e 69 6c 20 34 30 20 66 6f 72 77 61 72 64 2d 73	no-properties.1.nil.40.forward-s
09e0	65 78 70 20 22 5c 5c 28 5c 5c 27 5c 5c 29 3f 5c 5c 73 2d 2a 5c 5c 28 5c 5c 73 5f 2b 5c 5c 7c 60	exp."\\(\\'\\)?\\s-*\\(\\s_+\\|`
0a00	5c 5c 28 5c 5c 73 77 2b 5c 5c 29 60 5c 5c 29 22 20 22 5c 5c 28 5c 5c 73 77 2b 5c 5c 29 3f 5c 5c	\\(\\sw+\\)`\\)"."\\(\\sw+\\)?\\
0a20	73 2d 2a 5c 5c 28 5c 5c 73 5f 2b 5c 5c 7c 60 5c 5c 28 5c 5c 73 77 2b 5c 5c 29 60 5c 5c 29 22 20	s-*\\(\\s_+\\|`\\(\\sw+\\)`\\)".
0a40	28 22 3a 3a 22 20 22 e2 88 b7 22 20 22 3d 22 20 22 7c 22 29 20 39 36 20 33 20 22 5c 5c 73 77 2b	("::"."..."."="."|").96.3."\\sw+
0a60	22 5d 20 31 30 20 28 23 24 20 2e 20 31 36 35 32 29 5d 29 0a 23 40 31 35 37 20 4d 6f 76 65 20 74	"].10.(#$...1652)]).#@157.Move.t
0a80	6f 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 6c 69 6e 65 20 74 68 61 74 20 73 75 63 63 65 65 64	o.beginning.of.line.that.succeed
0aa0	73 2f 70 72 65 63 65 64 65 73 20 28 49 4e 43 20 3d 20 31 2f 2d 31 29 0a 63 75 72 72 65 6e 74 20	s/precedes.(INC.=.1/-1).current.
0ac0	6c 69 6e 65 20 74 68 61 74 20 73 74 61 72 74 73 20 77 69 74 68 20 52 45 47 45 58 50 20 61 6e 64	line.that.starts.with.REGEXP.and
0ae0	20 69 73 20 6e 6f 74 20 69 6e 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61	.is.not.in.`font-lock-comment-fa
0b00	63 65 27 2e 0a 0a 28 66 6e 20 49 4e 43 20 52 45 47 45 58 50 29 1f 0a 28 64 65 66 61 6c 69 61 73	ce'...(fn.INC.REGEXP)..(defalias
0b20	20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74 6f 2d 73 74 61 72 74 2d 72 65 67 65 78	.'haskell-ds-move-to-start-regex
0b40	70 20 23 5b 35 31 34 20 22 01 79 5c 33 30 30 55 5c 32 30 35 19 00 5c 33 30 31 01 21 5c 32 30 33	p.#[514.".y\300U\205..\301.!\203
0b60	00 00 5c 33 30 32 60 5c 33 30 33 5c 22 5c 33 30 34 3d 5c 32 30 35 19 00 5c 32 30 32 00 00 5c 32	..\302`\303\"\304=\205..\202..\2
0b80	30 37 22 20 5b 30 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65	07".[0.looking-at.get-text-prope
0ba0	72 74 79 20 66 61 63 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 5d	rty.face.font-lock-comment-face]
0bc0	20 35 20 28 23 24 20 2e 20 32 36 38 32 29 5d 29 0a 23 40 39 36 20 4c 69 6b 65 20 68 61 73 6b 65	.5.(#$...2682)]).#@96.Like.haske
0be0	6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74 6f 2d 73 74 61 72 74 2d 72 65 67 65 78 70 2c 20 62 75 74 20	ll-ds-move-to-start-regexp,.but.
0c00	75 73 65 73 20 73 79 6e 74 61 78 2d 70 70 73 73 20 74 6f 0a 20 20 73 6b 69 70 20 63 6f 6d 6d 65	uses.syntax-ppss.to...skip.comme
0c20	6e 74 73 0a 0a 28 66 6e 20 49 4e 43 20 52 45 47 45 58 50 29 1f 0a 28 64 65 66 61 6c 69 61 73 20	nts..(fn.INC.REGEXP)..(defalias.
0c40	27 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74 6f 2d 73 74 61 72 74 2d 72 65 67 65 78 70	'haskell-ds-move-to-start-regexp
0c60	2d 73 6b 69 70 70 69 6e 67 2d 63 6f 6d 6d 65 6e 74 73 20 23 5b 35 31 34 20 22 5c 33 30 30 60 5c	-skipping-comments.#[514."\300`\
0c80	32 36 32 01 5c 33 30 31 03 03 5c 22 5c 32 31 30 5c 33 30 32 5c 33 30 33 20 38 5c 32 30 33 16 00	262.\301..\"\210\302\303.8\203..
0ca0	5c 32 31 31 60 55 5c 32 30 33 01 00 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 20 68 61 73 6b 65	\211`U\203..\300\207".[nil.haske
0cc0	6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74 6f 2d 73 74 61 72 74 2d 72 65 67 65 78 70 20 34 20 73 79 6e	ll-ds-move-to-start-regexp.4.syn
0ce0	74 61 78 2d 70 70 73 73 5d 20 36 20 28 23 24 20 2e 20 33 30 33 30 29 5d 29 0a 23 40 32 38 32 20	tax-ppss].6.(#$...3030)]).#@282.
0d00	52 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 73 74 61 72 74 20 6f 66 20 61 20 6c 69 6e 65 20	Regexp.matching.start.of.a.line.
0d20	6f 66 20 42 69 72 64 2d 73 74 79 6c 65 20 6c 69 74 65 72 61 74 65 20 63 6f 64 65 2e 0a 43 75 72	of.Bird-style.literate.code..Cur
0d40	72 65 6e 74 20 76 61 6c 75 65 20 69 73 20 22 3e 20 22 20 61 73 20 77 65 20 61 73 73 75 6d 65 20	rent.value.is.">.".as.we.assume.
0d60	74 6f 70 2d 6c 65 76 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 73 74 61 72 74 0a 61 74 20	top-level.declarations.start.at.
0d80	63 6f 6c 75 6d 6e 20 33 2e 20 20 4d 75 73 74 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 74 68 65 20	column.3...Must.not.contain.the.
0da0	73 70 65 63 69 61 6c 20 22 5e 22 20 72 65 67 65 78 70 20 61 73 20 77 65 20 6d 61 79 0a 6e 6f 74	special."^".regexp.as.we.may.not
0dc0	20 75 73 65 20 74 68 65 20 72 65 67 65 78 70 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20	.use.the.regexp.at.the.start.of.
0de0	61 20 72 65 67 65 78 70 20 73 74 72 69 6e 67 2e 20 20 4e 6f 74 65 20 74 68 69 73 20 69 73 0a 6f	a.regexp.string...Note.this.is.o
0e00	6e 6c 79 20 66 6f 72 20 60 69 6d 65 6e 75 27 20 73 75 70 70 6f 72 74 2e 1f 0a 28 64 65 66 76 61	nly.for.`imenu'.support...(defva
0e20	72 20 6c 69 74 65 72 61 74 65 2d 68 61 73 6b 65 6c 6c 2d 64 73 2d 6c 69 6e 65 2d 70 72 65 66 69	r.literate-haskell-ds-line-prefi
0e40	78 20 22 3e 20 3f 22 20 28 23 24 20 2e 20 33 33 32 38 29 29 0a 23 40 34 37 20 54 68 65 20 72 65	x.">.?".(#$...3328)).#@47.The.re
0e60	67 65 78 70 20 74 68 61 74 20 73 74 61 72 74 73 20 61 20 48 61 73 6b 65 6c 6c 20 64 65 63 6c 61	gexp.that.starts.a.Haskell.decla
0e80	72 61 74 69 6f 6e 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72	ration...(defvar.haskell-ds-star
0ea0	74 2d 64 65 63 6c 2d 72 65 20 22 5c 5c 28 5c 5c 73 77 5c 5c 7c 28 5c 5c 29 22 20 28 23 24 20 2e	t-decl-re."\\(\\sw\\|(\\)".(#$..
0ec0	20 33 36 37 34 29 29 0a 23 40 36 37 20 54 68 65 20 72 65 67 65 78 70 20 74 68 61 74 20 73 74 61	.3674)).#@67.The.regexp.that.sta
0ee0	72 74 73 20 61 20 42 69 72 64 2d 73 74 79 6c 65 20 6c 69 74 65 72 61 74 65 20 48 61 73 6b 65 6c	rts.a.Bird-style.literate.Haskel
0f00	6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 1f 0a 28 64 65 66 76 61 72 20 6c 69 74 65 72 61 74 65	l.declaration...(defvar.literate
0f20	2d 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72 74 2d 64 65 63 6c 2d 72 65 20 28 63 6f 6e 63 61	-haskell-ds-start-decl-re.(conca
0f40	74 20 6c 69 74 65 72 61 74 65 2d 68 61 73 6b 65 6c 6c 2d 64 73 2d 6c 69 6e 65 2d 70 72 65 66 69	t.literate-haskell-ds-line-prefi
0f60	78 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72 74 2d 64 65 63 6c 2d 72 65 29 20 28 23 24 20	x.haskell-ds-start-decl-re).(#$.
0f80	2e 20 33 37 38 39 29 29 0a 23 40 35 32 20 54 65 73 74 20 69 66 20 43 48 41 52 20 69 73 20 61 20	..3789)).#@52.Test.if.CHAR.is.a.
0fa0	77 68 69 74 65 73 70 61 63 65 20 63 68 61 72 61 63 74 65 72 2e 0a 0a 28 66 6e 20 43 48 41 52 29	whitespace.character...(fn.CHAR)
0fc0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 77 68 69 74 65 73 70 61	..(defalias.'haskell-ds-whitespa
0fe0	63 65 2d 70 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 35 5c 32 30 37 22 20 5b 28	ce-p.#[257."\211\300\235\207".[(
1000	6e 69 6c 20 39 20 31 30 20 33 32 29 5d 20 33 20 28 23 24 20 2e 20 33 39 38 32 29 5d 29 0a 23 40	nil.9.10.32)].3.(#$...3982)]).#@
1020	35 37 36 20 47 65 6e 65 72 61 6c 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 6d 6f 76 69 6e 67 20	576.General.function.for.moving.
1040	74 6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 64 65 63 6c 61 72 61 74 69 6f 6e 2c 0a 65	to.the.start.of.a.declaration,.e
1060	69 74 68 65 72 20 66 6f 72 77 61 72 64 73 20 6f 72 20 62 61 63 6b 77 61 72 64 73 20 66 72 6f 6d	ither.forwards.or.backwards.from
1080	20 70 6f 69 6e 74 2c 20 77 69 74 68 20 6e 6f 72 6d 61 6c 20 6f 72 20 77 69 74 68 20 42 69 72 64	.point,.with.normal.or.with.Bird
10a0	2d 73 74 79 6c 65 0a 6c 69 74 65 72 61 74 65 20 73 63 72 69 70 74 73 2e 20 20 49 66 20 44 49 52	-style.literate.scripts...If.DIR
10c0	45 43 54 49 4f 4e 20 69 73 20 74 2c 20 74 68 65 6e 20 66 6f 72 77 61 72 64 2c 20 65 6c 73 65 20	ECTION.is.t,.then.forward,.else.
10e0	62 61 63 6b 77 61 72 64 2e 20 20 49 66 0a 42 49 52 44 2d 4c 49 54 45 52 41 54 45 20 69 73 20 74	backward...If.BIRD-LITERATE.is.t
1100	2c 20 74 68 65 6e 20 74 72 65 61 74 20 61 73 20 42 69 72 64 2d 73 74 79 6c 65 20 6c 69 74 65 72	,.then.treat.as.Bird-style.liter
1120	61 74 65 20 73 63 72 69 70 74 73 2c 20 65 6c 73 65 0a 6e 6f 72 6d 61 6c 20 73 63 72 69 70 74 73	ate.scripts,.else.normal.scripts
1140	2e 20 20 52 65 74 75 72 6e 73 20 70 6f 69 6e 74 20 69 66 20 70 6f 69 6e 74 20 69 73 20 6c 65 66	...Returns.point.if.point.is.lef
1160	74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 0a 64 65 63 6c 61 72 61 74 69 6f 6e 2c	t.at.the.start.of.a.declaration,
1180	20 61 6e 64 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2c 20 69 65 2e 20 62 65 63 61 75 73 65 20	.and.nil.otherwise,.ie..because.
11a0	70 6f 69 6e 74 20 69 73 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 0a 6f 72 20 65 6e 64	point.is.at.the.beginning.or.end
11c0	20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 61 6e 64 20 6e 6f 20 64 65 63 6c 61 72 61 74 69 6f	.of.the.buffer.and.no.declaratio
11e0	6e 20 73 74 61 72 74 73 20 74 68 65 72 65 2e 20 20 49 66 20 46 49 58 20 69 73 20 74 2c 0a 74 68	n.starts.there...If.FIX.is.t,.th
1200	65 6e 20 70 6f 69 6e 74 20 64 6f 65 73 20 6e 6f 74 20 6d 6f 76 65 20 69 66 20 61 6c 72 65 61 64	en.point.does.not.move.if.alread
1220	79 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e	y.at.the.start.of.a.declaration.
1240	0a 0a 28 66 6e 20 44 49 52 45 43 54 49 4f 4e 20 42 49 52 44 2d 4c 49 54 45 52 41 54 45 20 46 49	..(fn.DIRECTION.BIRD-LITERATE.FI
1260	58 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74	X)..(defalias.'haskell-ds-move-t
1280	6f 2d 64 65 63 6c 20 23 5b 37 37 31 20 22 5c 33 30 35 5c 32 31 31 5c 32 31 31 04 5c 32 30 33 0b	o-decl.#[771."\305\211\211.\203.
12a0	00 08 5c 32 30 32 5c 66 00 5c 33 30 36 05 5c 32 30 33 14 00 09 5c 32 30 32 15 00 5c 6e 06 07 5c	..\202\f.\306.\203...\202..\n..\
12c0	32 30 33 1e 00 5c 33 30 37 5c 32 30 32 1f 00 5c 33 31 30 06 08 5c 32 30 33 28 00 64 5c 32 30 32	203..\307\202..\310..\203(.d\202
12e0	29 00 65 03 1b 5c 33 31 31 20 70 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 06	).e..\311.p\312\313\314\315\316.
1300	06 06 06 5c 22 5c 33 31 37 5c 22 5c 33 32 30 24 5c 32 31 36 5c 33 32 31 5c 66 21 5c 32 31 30 60	...\"\317\"\320$\216\321\f!\210`
1320	5c 33 32 32 20 5c 32 31 30 5c 33 32 33 06 06 21 5c 32 30 35 56 00 5c 33 32 34 20 5c 33 32 35 5c	\322.\210\323..!\205V.\324.\325\
1340	32 33 34 3f 5c 32 30 35 56 00 5c 33 30 37 5c 32 32 34 5c 32 31 31 5c 32 30 33 5c 32 31 36 00 06	234?\205V.\307\224\211\203\216..
1360	0d 5c 32 30 33 64 00 06 0b 5c 32 30 33 6e 00 06 0d 5c 32 30 34 74 00 06 0b 5c 32 30 33 74 00 01	.\203d...\203n...\204t...\203t..
1380	01 59 5c 32 30 34 5c 32 34 32 00 06 0d 5c 32 30 33 7e 00 06 0b 5c 32 30 34 5c 32 31 30 00 06 0d	.Y\204\242...\203~...\204\210...
13a0	5c 32 30 34 5c 32 31 36 00 06 0b 5c 32 30 34 5c 32 31 36 00 01 01 56 5c 32 30 34 5c 32 34 32 00	\204\216...\204\216...V\204\242.
13c0	5c 32 31 31 5c 32 30 33 5c 32 33 34 00 6f 5c 32 30 33 5c 32 33 34 00 5c 33 32 36 5c 32 36 32 09	\211\203\234.o\203\234.\326\262.
13e0	5c 32 30 32 5c 32 34 32 00 5c 33 32 37 5c 33 31 30 06 08 5c 22 5c 32 31 30 5c 32 36 36 02 06 06	\202\242.\327\310..\"\210\266...
1400	5c 32 30 33 5c 32 37 32 00 06 0b 5c 32 30 35 36 01 5c 33 33 30 5c 33 33 31 0b 50 5c 33 30 35 5c	\203\272...\2056.\330\331.P\305\
1420	33 32 36 23 5c 32 31 30 60 5c 32 30 32 36 01 5c 33 33 32 0b 21 5c 32 36 32 09 06 08 5c 32 30 34	326#\210`\2026.\332.!\262...\204
1440	5c 33 32 32 00 06 0b 5c 32 30 33 20 01 5c 33 32 37 5c 33 30 37 06 06 5c 22 5c 32 31 30 5c 32 30	\322...\203..\327\307..\"\210\20
1460	32 20 01 5c 33 32 37 04 06 06 5c 22 5c 32 31 30 60 03 55 5c 32 30 34 5c 33 37 34 00 5c 33 33 32	2..\327...\"\210`.U\204\374.\332
1480	0b 21 5c 32 31 31 5c 32 36 32 09 5c 32 30 33 5c 33 37 34 00 06 08 06 08 5c 32 33 30 5c 32 30 33	.!\211\262.\203\374.....\230\203
14a0	5c 33 37 34 00 06 07 5c 32 36 32 09 5c 33 32 37 04 06 06 5c 22 5c 32 31 30 5c 32 30 32 5c 33 33	\374...\262.\327...\"\210\202\33
14c0	30 00 06 0b 5c 32 30 34 20 01 5c 33 32 33 05 21 5c 32 30 33 10 01 06 08 5c 33 33 32 0b 21 5c 32	0...\204..\323.!\203....\332.!\2
14e0	33 30 5c 32 30 33 1a 01 5c 33 32 33 05 21 5c 32 30 34 20 01 6f 5c 32 30 33 20 01 5c 33 32 37 5c	30\203..\323.!\204..o\203..\327\
1500	33 30 37 06 06 5c 22 5c 32 31 30 5c 33 32 33 05 21 6e 5c 32 30 33 2f 01 5c 33 33 30 5c 33 33 31	307..\"\210\323.!n\203/.\330\331
1520	0b 50 64 5c 33 32 36 23 5c 32 31 30 5c 32 31 31 5c 32 30 35 34 01 60 5c 32 36 32 01 29 5c 32 36	.Pd\326#\210\211\2054.`\262.)\26
1540	36 5c 32 30 32 29 5c 32 30 37 22 20 5b 6c 69 74 65 72 61 74 65 2d 68 61 73 6b 65 6c 6c 2d 64 73	6\202)\207".[literate-haskell-ds
1560	2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 6c 69 74 65 72 61 74 65 2d 68 61 73 6b 65 6c 6c 2d 64 73	-line-prefix.literate-haskell-ds
1580	2d 73 74 61 72 74 2d 64 65 63 6c 2d 72 65 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72 74 2d	-start-decl-re.haskell-ds-start-
15a0	64 65 63 6c 2d 72 65 20 6c 69 6e 65 2d 70 72 65 66 69 78 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 73	decl-re.line-prefix.haskell-ds-s
15c0	79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 22 22 20 31 20 2d 31 20 73 79 6e 74 61 78 2d 74	yntax-table.nil."".1.-1.syntax-t
15e0	61 62 6c 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 72 5c 33 30 31 71 5c 32 31	able.make-byte-code.0."r\301q\21
1600	30 5c 33 30 32 5c 33 30 30 21 29 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20	0\302\300!)\207".vconcat.vector.
1620	5b 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 20 73 65 74 2d 73 79 6e 74 61 78 2d	[set-syntax-table].2.set-syntax-
1640	74 61 62 6c 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d	table.beginning-of-line.looking-
1660	61 74 20 73 79 6e 74 61 78 2d 70 70 73 73 20 34 20 74 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f	at.syntax-ppss.4.t.haskell-ds-mo
1680	76 65 2d 74 6f 2d 73 74 61 72 74 2d 72 65 67 65 78 70 2d 73 6b 69 70 70 69 6e 67 2d 63 6f 6d 6d	ve-to-start-regexp-skipping-comm
16a0	65 6e 74 73 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 3d 22 20 68 61 73	ents.re-search-forward."\\=".has
16c0	6b 65 6c 6c 2d 64 73 2d 67 65 74 2d 76 61 72 69 61 62 6c 65 5d 20 31 39 20 28 23 24 20 2e 20 34	kell-ds-get-variable].19.(#$...4
16e0	31 33 32 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 62 69 72	132)]).(defalias.'haskell-ds-bir
1700	64 2d 70 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 08 5c 33 30 32 3d 5c 32	d-p.#[0."\301\300!\205...\302=\2
1720	30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6c 69 74 65 72 61 74 65 20 62 6f 75 6e 64 70 20 62 69 72	07".[haskell-literate.boundp.bir
1740	64 5d 20 32 5d 29 0a 23 40 35 34 38 20 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 74 6f 20 74 68	d].2]).#@548.Move.backward.to.th
1760	65 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 74 68 61 74 20 73 74 61 72 74 73 20 61 20	e.first.character.that.starts.a.
1780	74 6f 70 2d 6c 65 76 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 0a 41 20 73 65 72 69 65 73 20	top-level.declaration..A.series.
17a0	6f 66 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 63 6f 6e 63 65 72 6e 69 6e 67 20 6f 6e 65 20 76	of.declarations.concerning.one.v
17c0	61 72 69 61 62 6c 65 20 69 73 20 74 72 65 61 74 65 64 20 61 73 20 6f 6e 65 0a 64 65 63 6c 61 72	ariable.is.treated.as.one.declar
17e0	61 74 69 6f 6e 20 62 79 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 20 20 53 6f 2c 20 69 66 20	ation.by.this.function...So,.if.
1800	70 6f 69 6e 74 20 69 73 20 77 69 74 68 69 6e 20 61 20 74 6f 70 2d 6c 65 76 65 6c 0a 64 65 63 6c	point.is.within.a.top-level.decl
1820	61 72 61 74 69 6f 6e 20 74 68 65 6e 20 6d 6f 76 65 20 69 74 20 74 6f 20 74 68 65 20 73 74 61 72	aration.then.move.it.to.the.star
1840	74 20 6f 66 20 74 68 61 74 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 20 20 49 66 20 70 6f 69 6e 74	t.of.that.declaration...If.point
1860	0a 69 73 20 61 6c 72 65 61 64 79 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 74 6f	.is.already.at.the.start.of.a.to
1880	70 2d 6c 65 76 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 2c 20 74 68 65 6e 20 6d 6f 76 65 20 69	p-level.declaration,.then.move.i
18a0	74 20 74 6f 0a 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 70 72 65 63 65 64 69 6e 67 20	t.to.the.start.of.the.preceding.
18c0	64 65 63 6c 61 72 61 74 69 6f 6e 2e 20 20 52 65 74 75 72 6e 73 20 70 6f 69 6e 74 20 69 66 20 70	declaration...Returns.point.if.p
18e0	6f 69 6e 74 20 69 73 0a 6c 65 66 74 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 64	oint.is.left.at.the.start.of.a.d
1900	65 63 6c 61 72 61 74 69 6f 6e 2c 20 61 6e 64 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2c 20 62	eclaration,.and.nil.otherwise,.b
1920	65 63 61 75 73 65 0a 70 6f 69 6e 74 20 69 73 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67	ecause.point.is.at.the.beginning
1940	20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 61 6e 64 20 6e 6f 20 64 65 63 6c 61 72 61 74 69 6f	.of.the.buffer.and.no.declaratio
1960	6e 20 73 74 61 72 74 73 0a 74 68 65 72 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b	n.starts.there...(defalias.'hask
1980	65 6c 6c 2d 64 73 2d 62 61 63 6b 77 61 72 64 2d 64 65 63 6c 20 23 5b 30 20 22 5c 33 30 30 5c 33	ell-ds-backward-decl.#[0."\300\3
19a0	30 31 5c 33 30 32 20 5c 33 30 31 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f	01\302.\301#\207".[haskell-ds-mo
19c0	76 65 2d 74 6f 2d 64 65 63 6c 20 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 62 69 72 64 2d 70	ve-to-decl.nil.haskell-ds-bird-p
19e0	5d 20 34 20 28 23 24 20 2e 20 35 39 36 35 29 20 6e 69 6c 5d 29 0a 23 40 39 38 20 54 65 73 74 20	].4.(#$...5965).nil]).#@98.Test.
1a00	69 66 20 74 68 65 20 63 75 72 73 6f 72 20 69 73 20 6f 6e 20 77 68 69 74 65 73 70 61 63 65 20 6f	if.the.cursor.is.on.whitespace.o
1a20	72 20 61 20 63 6f 6d 6d 65 6e 74 2e 0a 0a 60 50 54 27 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60	r.a.comment...`PT'.defaults.to.`
1a40	28 70 6f 69 6e 74 29 27 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 50 54 29 1f 0a 28 64 65	(point)'..(fn.&optional.PT)..(de
1a60	66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 63 6f 6d 6d 65 6e 74 2d 70 20 23 5b 32	falias.'haskell-ds-comment-p.#[2
1a80	35 36 20 22 5c 33 30 30 67 21 5c 32 30 34 23 00 5c 33 30 31 01 5c 32 30 36 5c 66 00 60 5c 33 30	56."\300g!\204#.\301.\206\f.`\30
1aa0	32 5c 22 5c 32 31 31 3c 5c 32 30 34 17 00 5c 32 31 31 43 5c 32 36 32 01 5c 33 30 33 5c 33 30 34	2\"\211<\204..\211C\262.\303\304
1ac0	5c 33 30 35 5c 33 30 36 04 5c 22 5c 22 5c 32 36 32 01 5c 32 30 35 24 00 5c 33 30 37 5c 32 30 37	\305\306.\"\"\262.\205$.\307\207
1ae0	22 20 5b 68 61 73 6b 65 6c 6c 2d 64 73 2d 77 68 69 74 65 73 70 61 63 65 2d 70 20 67 65 74 2d 74	".[haskell-ds-whitespace-p.get-t
1b00	65 78 74 2d 70 72 6f 70 65 72 74 79 20 66 61 63 65 20 64 65 6c 71 20 6e 69 6c 20 6d 61 70 63 61	ext-property.face.delq.nil.mapca
1b20	72 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 33 30 30 5c 32 33 35 5c 32 30 37 22 20 5b 28 66 6f 6e	r.#[257."\211\300\235\207".[(fon
1b40	74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f	t-lock-comment-face.font-lock-do
1b60	63 2d 66 61 63 65 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 64 65 6c 69 6d 69 74	c-face.font-lock-comment-delimit
1b80	65 72 2d 66 61 63 65 29 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 46 29 22 5d 20 74 5d 20 37 20 28	er-face)].3."\n\n(fn.F)"].t].7.(
1ba0	23 24 20 2e 20 36 36 35 31 29 5d 29 0a 23 40 38 33 20 54 65 73 74 73 20 69 66 20 61 6c 6c 20 63	#$...6651)]).#@83.Tests.if.all.c
1bc0	68 61 72 61 63 74 65 72 73 20 66 72 6f 6d 20 60 70 6f 69 6e 74 27 20 74 6f 20 60 65 6e 64 2d 6f	haracters.from.`point'.to.`end-o
1be0	66 2d 6c 69 6e 65 27 20 70 61 73 73 0a 60 68 61 73 6b 65 6c 6c 2d 64 73 2d 63 6f 6d 6d 65 6e 74	f-line'.pass.`haskell-ds-comment
1c00	2d 70 27 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 6c 69 6e 65 2d	-p'..(defalias.'haskell-ds-line-
1c20	63 6f 6d 6d 65 6e 74 65 64 2d 70 20 23 5b 30 20 22 5c 33 30 30 5c 32 31 31 5c 32 30 33 17 00 6c	commented-p.#[0."\300\211\203..l
1c40	5c 32 30 34 17 00 5c 33 30 31 20 5c 32 30 34 11 00 5c 33 30 32 5c 32 36 32 01 5c 33 30 32 75 5c	\204..\301.\204..\302\262.\302u\
1c60	32 31 30 5c 32 30 32 01 00 5c 32 31 31 5c 32 30 37 22 20 5b 74 20 68 61 73 6b 65 6c 6c 2d 64 73	210\202..\211\207".[t.haskell-ds
1c80	2d 63 6f 6d 6d 65 6e 74 2d 70 20 6e 69 6c 5d 20 32 20 28 23 24 20 2e 20 37 30 39 30 29 5d 29 0a	-comment-p.nil].2.(#$...7090)]).
1ca0	23 40 31 31 38 20 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 74 68 65 20 66 69 72 73 74 20	#@118.Move.forward.to.the.first.
1cc0	63 68 61 72 61 63 74 65 72 20 74 68 61 74 20 73 74 61 72 74 73 20 61 20 74 6f 70 2d 6c 65 76 65	character.that.starts.a.top-leve
1ce0	6c 0a 64 65 63 6c 61 72 61 74 69 6f 6e 2e 20 20 41 73 20 60 68 61 73 6b 65 6c 6c 2d 64 73 2d 62	l.declaration...As.`haskell-ds-b
1d00	61 63 6b 77 61 72 64 2d 64 65 63 6c 27 20 62 75 74 20 66 6f 72 77 61 72 64 2e 1f 0a 28 64 65 66	ackward-decl'.but.forward...(def
1d20	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 66 6f 72 77 61 72 64 2d 64 65 63 6c 20 23	alias.'haskell-ds-forward-decl.#
1d40	5b 30 20 22 60 5c 33 30 30 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 33 30 31 5c 33 30 30 5c 33 30	[0."`\300\211\211\211\301\300\30
1d60	32 20 5c 33 30 30 23 5c 32 31 30 60 5c 32 36 32 04 5c 33 30 31 5c 33 30 33 5c 33 30 32 20 5c 33	2.\300#\210`\262.\301\303\302.\3
1d80	30 30 23 5c 32 31 30 60 5c 32 36 32 03 60 05 58 5c 32 30 35 21 00 6c 3f 5c 32 36 32 02 65 04 55	00#\210`\262.`.X\205!.l?\262.e.U
1da0	5c 32 30 35 32 00 03 05 55 5c 32 30 35 32 00 04 03 57 5c 32 36 32 01 5c 32 31 31 5c 32 30 34 3c	\2052...U\2052...W\262.\211\204<
1dc0	00 01 5c 32 30 33 6b 00 5c 32 31 31 5c 32 30 33 4b 00 5c 32 31 32 65 62 5c 32 31 30 67 29 5c 33	..\203k.\211\203K.\212eb\210g)\3
1de0	30 34 55 5c 32 30 34 4f 00 01 5c 32 30 33 56 00 5c 33 30 31 5c 33 30 33 5c 33 30 32 20 5c 33 30	04U\204O..\203V.\301\303\302.\30
1e00	30 23 5c 32 31 30 5c 33 30 35 79 5c 32 31 30 5c 33 30 36 20 5c 32 30 33 68 00 6f 5c 32 30 34 68	0#\210\305y\210\306.\203h.o\204h
1e20	00 5c 33 30 35 79 5c 32 31 30 5c 32 30 32 59 00 5c 33 30 37 79 5c 32 31 30 5c 32 36 36 05 60 5c	.\305y\210\202Y.\307y\210\266.`\
1e40	32 30 37 22 20 5b 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74 6f 2d 64 65 63	207".[nil.haskell-ds-move-to-dec
1e60	6c 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 62 69 72 64 2d 70 20 74 20 31 30 20 2d 31 20 68 61 73 6b	l.haskell-ds-bird-p.t.10.-1.hask
1e80	65 6c 6c 2d 64 73 2d 6c 69 6e 65 2d 63 6f 6d 6d 65 6e 74 65 64 2d 70 20 31 5d 20 39 20 28 23 24	ell-ds-line-commented-p.1].9.(#$
1ea0	20 2e 20 37 33 33 34 29 20 6e 69 6c 5d 29 0a 23 40 34 36 30 20 46 69 6e 64 20 74 68 65 20 6e 61	...7334).nil]).#@460.Find.the.na
1ec0	6d 65 2c 20 70 6f 73 69 74 69 6f 6e 20 61 6e 64 20 74 79 70 65 20 6f 66 20 74 68 65 20 64 65 63	me,.position.and.type.of.the.dec
1ee0	6c 61 72 61 74 69 6f 6e 20 61 74 20 6f 72 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 52 65 74 75	laration.at.or.after.point..Retu
1f00	72 6e 20 28 28 4e 41 4d 45 20 2e 20 28 53 54 41 52 54 2d 50 4f 53 49 54 49 4f 4e 20 2e 20 4e 41	rn.((NAME...(START-POSITION...NA
1f20	4d 45 2d 50 4f 53 49 54 49 4f 4e 29 29 20 2e 20 54 59 50 45 29 0a 69 66 20 6f 6e 65 20 65 78 69	ME-POSITION))...TYPE).if.one.exi
1f40	73 74 73 20 61 6e 64 20 6e 69 6c 20 6f 74 68 65 72 77 69 73 65 2e 20 20 54 68 65 20 73 74 61 72	sts.and.nil.otherwise...The.star
1f60	74 2d 70 6f 73 69 74 69 6f 6e 20 69 73 20 61 74 20 74 68 65 20 73 74 61 72 74 0a 6f 66 20 74 68	t-position.is.at.the.start.of.th
1f80	65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2c 20 61 6e 64 20 74 68 65 20 6e 61 6d 65 2d 70 6f 73 69	e.declaration,.and.the.name-posi
1fa0	74 69 6f 6e 20 69 73 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 61 6d 65	tion.is.at.the.start.of.the.name
1fc0	0a 6f 66 20 74 68 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 20 20 54 68 65 20 6e 61 6d 65 20 69	.of.the.declaration...The.name.i
1fe0	73 20 61 20 73 74 72 69 6e 67 2c 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 73 20 61 72 65 20 62 75	s.a.string,.the.positions.are.bu
2000	66 66 65 72 0a 70 6f 73 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 74 79 70 65 20 69 73 20 6f	ffer.positions.and.the.type.is.o
2020	6e 65 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 22 76 61 72 69 61 62 6c 65 22 2c 20 22 64	ne.of.the.symbols."variable",."d
2040	61 74 61 74 79 70 65 22 2c 0a 22 63 6c 61 73 73 22 2c 20 22 69 6d 70 6f 72 74 22 20 61 6e 64 20	atatype",."class",."import".and.
2060	22 69 6e 73 74 61 6e 63 65 22 2e 0a 0a 28 66 6e 20 42 49 52 44 2d 4c 49 54 45 52 41 54 45 29 1f	"instance"...(fn.BIRD-LITERATE).
2080	0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 67 65 6e 65 72 69 63 2d 66	.(defalias.'haskell-ds-generic-f
20a0	69 6e 64 2d 6e 65 78 74 2d 64 65 63 6c 20 23 5b 32 35 37 20 22 5c 33 30 32 5c 32 31 31 5c 32 31	ind-next-decl.#[257."\302\211\21
20c0	31 5c 32 31 31 5c 32 31 31 5c 33 30 33 20 70 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c	1\211\211\303.p\304\305\306\307\
20e0	33 31 30 06 06 06 06 5c 22 5c 33 31 31 5c 22 5c 33 31 32 24 5c 32 31 36 5c 33 31 33 08 21 5c 32	310....\"\311\"\312$\216\313.!\2
2100	31 30 6d 5c 32 30 34 5c 33 36 33 00 06 06 5c 32 30 34 5c 33 36 33 00 5c 33 31 34 5c 33 31 35 06	10m\204\363...\204\363.\314\315.
2120	09 5c 33 31 35 23 5c 32 31 30 60 5c 32 36 32 04 5c 33 31 36 20 5c 32 36 32 03 5c 33 31 37 09 21	.\315#\210`\262.\316.\262.\317.!
2140	5c 32 30 34 55 00 5c 33 32 30 5c 33 32 31 21 5c 32 36 32 07 06 06 5c 32 30 33 5c 33 35 35 00 5c	\204U.\320\321!\262...\203\355.\
2160	33 32 32 5c 32 36 32 06 5c 33 32 33 5c 33 32 34 06 08 21 04 5c 33 31 35 23 5c 32 31 30 5c 33 30	322\262.\323\324..!.\315#\210\30
2180	35 5c 32 32 34 5c 32 36 32 05 5c 32 30 32 5c 33 35 35 00 5c 33 32 33 5c 33 32 35 04 5c 33 31 35	5\224\262.\202\355.\323\325.\315
21a0	23 5c 32 30 33 78 00 5c 33 32 33 5c 33 32 36 04 5c 33 31 35 23 5c 32 31 30 5c 33 31 37 5c 33 32	#\203x.\323\326.\315#\210\317\32
21c0	37 21 5c 32 30 33 5c 33 35 35 00 5c 33 33 30 5c 33 33 31 21 5c 32 36 32 07 5c 33 33 31 5c 32 32	7!\203\355.\330\331!\262.\331\22
21e0	34 5c 32 36 32 05 5c 33 33 32 5c 32 36 32 06 5c 32 30 32 5c 33 35 35 00 5c 33 32 33 5c 33 33 33	4\262.\332\262.\202\355.\323\333
2200	04 5c 33 31 35 23 5c 32 30 33 5c 32 33 33 00 5c 33 32 33 5c 33 32 36 04 5c 33 31 35 23 5c 32 31	.\315#\203\233.\323\326.\315#\21
2220	30 5c 33 31 37 5c 33 32 37 21 5c 32 30 33 5c 33 35 35 00 5c 33 33 30 5c 33 33 31 21 5c 32 36 32	0\317\327!\203\355.\330\331!\262
2240	07 5c 33 33 31 5c 32 32 34 5c 32 36 32 05 5c 33 33 34 5c 32 36 32 06 5c 32 30 32 5c 33 35 35 00	.\331\224\262.\334\262.\202\355.
2260	5c 33 31 37 5c 33 33 35 21 5c 32 30 33 5c 32 36 30 00 5c 33 33 30 5c 33 33 31 21 5c 32 36 32 07	\317\335!\203\260.\330\331!\262.
2280	5c 33 33 31 5c 32 32 34 5c 32 36 32 05 5c 33 33 36 5c 32 36 32 06 5c 32 30 32 5c 33 35 35 00 5c	\331\224\262.\336\262.\202\355.\
22a0	33 32 33 5c 33 33 37 04 5c 33 31 35 23 5c 32 30 33 5c 33 35 35 00 5c 33 32 33 5c 33 34 30 04 5c	323\337.\315#\203\355.\323\340.\
22c0	33 31 35 23 5c 32 31 30 60 5c 32 36 32 05 5c 33 34 31 60 5c 33 32 33 5c 33 34 32 06 06 5c 33 31	315#\210`\262.\341`\323\342..\31
22e0	35 23 5c 32 30 33 5c 33 32 34 00 5c 33 34 33 5c 33 34 34 21 5c 32 31 30 60 5c 32 30 32 5c 33 33	5#\203\324.\343\344!\210`\202\33
2300	34 00 04 62 5c 32 31 30 5c 33 34 35 5c 33 30 32 78 5c 32 31 30 60 5c 22 5c 32 36 32 07 5c 33 34	4..b\210\345\302x\210`\"\262.\34
2320	36 5c 33 34 37 06 08 5c 22 5c 32 30 33 5c 33 35 32 00 5c 33 30 32 5c 32 36 32 07 5c 33 35 30 5c	6\347..\"\203\352.\302\262.\350\
2340	32 36 32 06 02 62 5c 32 31 30 5c 32 30 32 1b 00 06 06 5c 32 30 35 08 01 06 06 5c 33 35 31 05 5c	262..b\210\202....\205....\351.\
2360	33 31 35 5c 22 5c 33 35 31 06 07 5c 33 31 35 5c 22 42 42 06 06 42 29 5c 32 36 36 5c 32 30 32 5c	315\"\351..\315\"BB..B)\266\202\
2380	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 64 73 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 68 61	207".[haskell-ds-syntax-table.ha
23a0	73 6b 65 6c 6c 2d 64 73 2d 73 74 61 72 74 2d 6b 65 79 77 6f 72 64 73 2d 72 65 20 6e 69 6c 20 73	skell-ds-start-keywords-re.nil.s
23c0	79 6e 74 61 78 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 72 5c	yntax-table.make-byte-code.0."r\
23e0	33 30 31 71 5c 32 31 30 5c 33 30 32 5c 33 30 30 21 29 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20	301q\210\302\300!)\207".vconcat.
2400	76 65 63 74 6f 72 20 5b 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 20 73 65 74 2d	vector.[set-syntax-table].2.set-
2420	73 79 6e 74 61 78 2d 74 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 6d 6f 76 65 2d 74 6f 2d	syntax-table.haskell-ds-move-to-
2440	64 65 63 6c 20 74 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 6c 6f 6f 6b 69 6e 67	decl.t.line-end-position.looking
2460	2d 61 74 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 67 65 74 2d 76 61 72 69 61 62 6c 65 20 22 22 20 76	-at.haskell-ds-get-variable."".v
2480	61 72 69 61 62 6c 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 67 65 78 70	ariable.re-search-forward.regexp
24a0	2d 71 75 6f 74 65 20 22 5c 5c 3d 5c 5c 28 64 61 74 61 5c 5c 7c 6e 65 77 74 79 70 65 5c 5c 7c 74	-quote."\\=\\(data\\|newtype\\|t
24c0	79 70 65 5c 5c 29 5c 5c 3e 22 20 22 3d 3e 22 20 22 5b 20 09 5d 2a 5c 5c 28 5c 5c 73 77 2b 5c 5c	ype\\)\\>"."=>"."[..]*\\(\\sw+\\
24e0	29 22 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 20	)".match-string-no-properties.1.
2500	64 61 74 61 74 79 70 65 20 22 5c 5c 3d 63 6c 61 73 73 5c 5c 3e 22 20 63 6c 61 73 73 20 22 69 6d	datatype."\\=class\\>".class."im
2520	70 6f 72 74 5b 20 09 5d 2b 5c 5c 28 3f 3a 73 61 66 65 5b 09 20 5d 2b 5c 5c 29 3f 5c 5c 28 3f 3a	port[..]+\\(?:safe[..]+\\)?\\(?:
2540	71 75 61 6c 69 66 69 65 64 5b 20 09 5d 2b 5c 5c 29 3f 5c 5c 28 3f 3a 5c 22 5b 5e 5c 22 5d 2a 5c	qualified[..]+\\)?\\(?:\"[^\"]*\
2560	22 5b 09 20 5d 2b 5c 5c 29 3f 5c 5c 28 5c 5c 28 3f 3a 5c 5c 73 77 5c 5c 7c 2e 5c 5c 29 2b 5c 5c	"[..]+\\)?\\(\\(?:\\sw\\|.\\)+\\
2580	29 22 20 69 6d 70 6f 72 74 20 22 5c 5c 3d 69 6e 73 74 61 6e 63 65 5b 20 09 5d 2b 22 20 22 3d 3e	)".import."\\=instance[..]+"."=>
25a0	5b 20 09 5d 2b 22 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	[..]+".buffer-substring-no-prope
25c0	72 74 69 65 73 20 22 5c 5c 3c 77 68 65 72 65 5c 5c 3e 22 20 72 65 2d 73 65 61 72 63 68 2d 62 61	rties."\\<where\\>".re-search-ba
25e0	63 6b 77 61 72 64 20 22 5c 5c 73 2d 77 68 65 72 65 22 20 22 20 09 22 20 73 74 72 69 6e 67 2d 6d	ckward."\\s-where"."..".string-m
2600	61 74 63 68 20 22 5e 5b 20 09 5d 2a 24 22 20 69 6e 73 74 61 6e 63 65 20 63 6f 70 79 2d 6d 61 72	atch."^[..]*$".instance.copy-mar
2620	6b 65 72 5d 20 31 35 20 28 23 24 20 2e 20 37 38 36 31 29 5d 29 0a 23 40 31 38 31 20 46 75 6e 63	ker].15.(#$...7861)]).#@181.Func
2640	74 69 6f 6e 20 66 6f 72 20 66 69 6e 64 69 6e 67 20 60 69 6d 65 6e 75 27 20 64 65 63 6c 61 72 61	tion.for.finding.`imenu'.declara
2660	74 69 6f 6e 73 20 69 6e 20 48 61 73 6b 65 6c 6c 20 6d 6f 64 65 2e 0a 46 69 6e 64 73 20 61 6c 6c	tions.in.Haskell.mode..Finds.all
2680	20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 28 63 6c 61 73 73 65 73 2c 20 76 61 72 69 61 62 6c 65	.declarations.(classes,.variable
26a0	73 2c 20 69 6d 70 6f 72 74 73 2c 20 69 6e 73 74 61 6e 63 65 73 20 61 6e 64 0a 64 61 74 61 74 79	s,.imports,.instances.and.dataty
26c0	70 65 73 29 20 69 6e 20 61 20 48 61 73 6b 65 6c 6c 20 66 69 6c 65 20 66 6f 72 20 74 68 65 20 60	pes).in.a.Haskell.file.for.the.`
26e0	69 6d 65 6e 75 27 20 70 61 63 6b 61 67 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b	imenu'.package...(defalias.'hask
2700	65 6c 6c 2d 64 73 2d 63 72 65 61 74 65 2d 69 6d 65 6e 75 2d 69 6e 64 65 78 20 23 5b 30 20 22 5c	ell-ds-create-imenu-index.#[0."\
2720	33 30 31 20 5c 33 30 32 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 32 31 31 5c 33 30 33	301.\302\211\211\211\211\211\303
2740	20 5c 33 30 34 5c 33 30 35 20 5c 33 30 36 5c 32 34 35 5d 5c 33 30 32 65 62 5c 32 31 30 60 64 57	.\304\305.\306\245]\302eb\210`dW
2760	5c 32 30 33 5c 32 35 35 00 5c 33 30 37 5c 33 31 30 04 60 65 5a 05 5c 32 34 35 23 5c 32 31 30 5c	\203\255.\307\310.`eZ.\245#\210\
2780	33 31 31 06 5c 6e 21 5c 32 36 32 01 5c 32 31 31 5c 32 30 33 14 00 5c 32 31 31 40 5c 32 31 31 40	311.\n!\262.\211\203..\211@\211@
27a0	01 41 5c 32 31 31 40 04 41 5c 33 31 32 01 5c 33 31 33 5c 22 5c 32 30 33 4f 00 03 02 06 0d 02 02	.A\211@.A\312.\313\"\203O.......
27c0	42 01 42 5c 32 36 36 5c 32 30 33 5c 32 36 32 5c 66 5c 32 30 32 5c 32 35 30 00 5c 33 31 32 01 5c	B.B\266\203\262\f\202\250.\312.\
27e0	33 31 34 5c 22 5c 32 30 33 66 00 03 02 06 5c 6e 02 02 42 01 42 5c 32 36 36 5c 32 30 33 5c 32 36	314\"\203f....\n..B.B\266\203\26
2800	32 09 5c 32 30 32 5c 32 35 30 00 5c 33 31 32 01 5c 33 31 35 5c 22 5c 32 30 33 7d 00 03 02 06 0e	2.\202\250.\312.\315\"\203}.....
2820	02 02 42 01 42 5c 32 36 36 5c 32 30 33 5c 32 36 32 0d 5c 32 30 32 5c 32 35 30 00 5c 33 31 32 01	..B.B\266\203\262.\202\250.\312.
2840	5c 33 31 36 5c 22 5c 32 30 33 5c 32 32 34 00 03 02 06 5c 66 02 02 42 01 42 5c 32 36 36 5c 32 30	\316\"\203\224....\f..B.B\266\20
2860	33 5c 32 36 32 0b 5c 32 30 32 5c 32 35 30 00 5c 33 31 32 01 5c 33 31 37 5c 22 5c 32 30 33 5c 32	3\262.\202\250.\312.\317\"\203\2
2880	35 30 00 03 02 06 0b 02 02 42 01 42 5c 32 36 36 5c 32 30 33 5c 32 36 32 5c 6e 5c 32 36 36 05 5c	50.......B.B\266\203\262\n\266.\
28a0	32 30 32 14 00 5c 33 30 37 5c 33 32 30 04 5c 22 5c 32 31 30 03 5c 32 30 33 5c 33 30 31 00 5c 33	202..\307\320.\"\210.\203\301.\3
28c0	32 31 5c 33 32 32 05 5c 33 32 33 5c 22 42 06 09 42 5c 32 36 32 09 04 5c 32 30 33 5c 33 32 31 00	21\322.\323\"B..B\262..\203\321.
28e0	5c 33 32 34 5c 33 32 32 06 06 5c 33 32 33 5c 22 42 06 09 42 5c 32 36 32 09 05 5c 32 30 33 5c 33	\324\322..\323\"B..B\262..\203\3
2900	34 31 00 5c 33 32 35 5c 33 32 32 06 07 5c 33 32 33 5c 22 42 06 09 42 5c 32 36 32 09 06 07 5c 32	41.\325\322..\323\"B..B\262...\2
2920	30 33 5c 33 36 32 00 5c 33 32 36 5c 33 32 32 06 09 5c 33 32 33 5c 22 42 06 09 42 5c 32 36 32 09	03\362.\326\322..\323\"B..B\262.
2940	06 06 5c 32 30 33 15 01 08 5c 32 30 33 5c 6e 01 5c 33 32 37 5c 33 32 32 06 08 5c 33 32 33 5c 22	..\203...\203\n.\327\322..\323\"
2960	42 06 09 42 5c 32 36 32 09 5c 32 30 32 15 01 5c 33 33 30 06 09 5c 33 32 32 06 09 5c 33 32 33 5c	B..B\262.\202..\330..\322..\323\
2980	22 5c 22 5c 32 36 32 09 5c 33 30 37 5c 33 33 31 04 5c 22 5c 32 31 30 06 08 5c 32 30 37 22 20 5b	"\"\262.\307\331.\"\210..\207".[
29a0	68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 62 69 6e 64 69 6e 67 73 2d 61 73 2d 76 61	haskell-decl-scan-bindings-as-va
29c0	72 69 61 62 6c 65 73 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 62 69 72 64 2d 70 20 6e 69 6c 20 62 75	riables.haskell-ds-bird-p.nil.bu
29e0	66 66 65 72 2d 6e 61 6d 65 20 31 20 62 75 66 66 65 72 2d 73 69 7a 65 20 31 30 30 20 6d 65 73 73	ffer-name.1.buffer-size.100.mess
2a00	61 67 65 20 22 53 63 61 6e 6e 69 6e 67 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 69 6e 20 25 73	age."Scanning.declarations.in.%s
2a20	2e 2e 2e 20 28 25 33 64 25 25 29 22 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 67 65 6e 65 72 69 63 2d	....(%3d%%)".haskell-ds-generic-
2a40	66 69 6e 64 2d 6e 65 78 74 2d 64 65 63 6c 20 65 71 6c 20 76 61 72 69 61 62 6c 65 20 64 61 74 61	find-next-decl.eql.variable.data
2a60	74 79 70 65 20 63 6c 61 73 73 20 69 6d 70 6f 72 74 20 69 6e 73 74 61 6e 63 65 20 22 53 6f 72 74	type.class.import.instance."Sort
2a80	69 6e 67 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 69 6e 20 25 73 2e 2e 2e 22 20 22 44 61 74 61	ing.declarations.in.%s..."."Data
2aa0	74 79 70 65 73 22 20 73 6f 72 74 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 69 6d 65 6e 75 2d 6c 61 62	types".sort.haskell-ds-imenu-lab
2ac0	65 6c 2d 63 6d 70 20 22 49 6e 73 74 61 6e 63 65 73 22 20 22 49 6d 70 6f 72 74 73 22 20 22 43 6c	el-cmp."Instances"."Imports"."Cl
2ae0	61 73 73 65 73 22 20 22 56 61 72 69 61 62 6c 65 73 22 20 61 70 70 65 6e 64 20 22 53 6f 72 74 69	asses"."Variables".append."Sorti
2b00	6e 67 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 69 6e 20 25 73 2e 2e 2e 64 6f 6e 65 22 5d 20 32	ng.declarations.in.%s...done"].2
2b20	30 20 28 23 24 20 2e 20 39 37 38 38 29 5d 29 0a 23 40 39 30 20 50 72 65 64 69 63 61 74 65 20 74	0.(#$...9788)]).#@90.Predicate.t
2b40	6f 20 63 6f 6d 70 61 72 65 20 6c 61 62 65 6c 73 20 69 6e 20 6c 69 73 74 73 20 66 72 6f 6d 20 60	o.compare.labels.in.lists.from.`
2b60	68 61 73 6b 65 6c 6c 2d 64 73 2d 63 72 65 61 74 65 2d 69 6d 65 6e 75 2d 69 6e 64 65 78 27 2e 0a	haskell-ds-create-imenu-index'..
2b80	0a 28 66 6e 20 45 4c 31 20 45 4c 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	.(fn.EL1.EL2)..(defalias.'haskel
2ba0	6c 2d 64 73 2d 69 6d 65 6e 75 2d 6c 61 62 65 6c 2d 63 6d 70 20 23 5b 35 31 34 20 22 01 40 01 40	l-ds-imenu-label-cmp.#[514.".@.@
2bc0	5c 32 33 31 5c 32 30 37 22 20 5b 5d 20 34 20 28 23 24 20 2e 20 31 31 30 36 31 29 5d 29 0a 23 40	\231\207".[].4.(#$...11061)]).#@
2be0	33 38 20 49 6e 73 74 61 6c 6c 20 60 69 6d 65 6e 75 27 20 66 6f 72 20 48 61 73 6b 65 6c 6c 20 73	38.Install.`imenu'.for.Haskell.s
2c00	63 72 69 70 74 73 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 73 2d 69	cripts...(defalias.'haskell-ds-i
2c20	6d 65 6e 75 20 23 5b 30 20 22 5c 33 30 32 10 09 5c 32 30 35 09 00 5c 33 30 33 5c 33 30 34 21 5c	menu.#[0."\302..\205..\303\304!\
2c40	32 30 37 22 20 5b 69 6d 65 6e 75 2d 63 72 65 61 74 65 2d 69 6e 64 65 78 2d 66 75 6e 63 74 69 6f	207".[imenu-create-index-functio
2c60	6e 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 61 64 64 2d 74 6f 2d 6d 65 6e 75 62	n.haskell-decl-scan-add-to-menub
2c80	61 72 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 63 72 65 61 74 65 2d 69 6d 65 6e 75 2d 69 6e 64 65 78	ar.haskell-ds-create-imenu-index
2ca0	20 69 6d 65 6e 75 2d 61 64 64 2d 74 6f 2d 6d 65 6e 75 62 61 72 20 22 44 65 63 6c 61 72 61 74 69	.imenu-add-to-menubar."Declarati
2cc0	6f 6e 73 22 5d 20 32 20 28 23 24 20 2e 20 31 31 32 33 35 29 5d 29 0a 23 40 35 32 20 55 6e 63 6f	ons"].2.(#$...11235)]).#@52.Unco
2ce0	6e 64 69 74 69 6f 6e 61 6c 6c 79 20 61 63 74 69 76 61 74 65 20 60 68 61 73 6b 65 6c 6c 2d 64 65	nditionally.activate.`haskell-de
2d00	63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 74 75 72 6e 2d	cl-scan-mode'...(defalias.'turn-
2d20	6f 6e 2d 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 20 23 5b 30 20 22 5c 33 30 30 20 5c	on-haskell-decl-scan.#[0."\300.\
2d40	32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 5d 20 31 20	207".[haskell-decl-scan-mode].1.
2d60	28 23 24 20 2e 20 31 31 34 38 34 29 20 6e 69 6c 5d 29 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74	(#$...11484).nil]).(make-obsolet
2d80	65 20 27 74 75 72 6e 2d 6f 6e 2d 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 20 27 68 61	e.'turn-on-haskell-decl-scan.'ha
2da0	73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 20 22 32 30 31 35 2d 30 37 2d 32 33	skell-decl-scan-mode."2015-07-23
2dc0	22 29 0a 23 40 31 31 33 20 4e 6f 6e 2d 6e 69 6c 20 69 66 20 48 61 73 6b 65 6c 6c 2d 44 65 63 6c	").#@113.Non-nil.if.Haskell-Decl
2de0	2d 53 63 61 6e 20 6d 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2e 0a 55 73 65 20 74 68 65 20 63	-Scan.mode.is.enabled..Use.the.c
2e00	6f 6d 6d 61 6e 64 20 60 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 27 20	ommand.`haskell-decl-scan-mode'.
2e20	74 6f 20 63 68 61 6e 67 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 1f 0a 28 64 65 66 76 61	to.change.this.variable...(defva
2e40	72 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 20 6e 69 6c 20 28 23 24	r.haskell-decl-scan-mode.nil.(#$
2e60	20 2e 20 31 31 37 32 31 29 29 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72	...11721)).(make-variable-buffer
2e80	2d 6c 6f 63 61 6c 20 27 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 29 0a	-local.'haskell-decl-scan-mode).
2ea0	23 40 31 35 32 37 20 54 6f 67 67 6c 65 20 48 61 73 6b 65 6c 6c 20 64 65 63 6c 61 72 61 74 69 6f	#@1527.Toggle.Haskell.declaratio
2ec0	6e 20 73 63 61 6e 6e 69 6e 67 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 6f 6e 20 6f 72 20 6f 66 66 2e	n.scanning.minor.mode.on.or.off.
2ee0	0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 41 52 47 2c 20 65 6e 61	.With.a.prefix.argument.ARG,.ena
2f00	62 6c 65 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69 73 0a 70 6f 73 69 74 69 76	ble.minor.mode.if.ARG.is.positiv
2f20	65 2c 20 61 6e 64 20 64 69 73 61 62 6c 65 20 69 74 20 6f 74 68 65 72 77 69 73 65 2e 20 20 49 66	e,.and.disable.it.otherwise...If
2f40	20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 4c 69 73 70 2c 20 65 6e 61 62 6c 65 0a 74 68 65 20 6d 6f	.called.from.Lisp,.enable.the.mo
2f60	64 65 20 69 66 20 41 52 47 20 69 73 20 6f 6d 69 74 74 65 64 20 6f 72 20 6e 69 6c 2c 20 61 6e 64	de.if.ARG.is.omitted.or.nil,.and
2f80	20 74 6f 67 67 6c 65 20 69 74 20 69 66 20 41 52 47 20 69 73 20 60 74 6f 67 67 6c 65 27 2e 0a 0a	.toggle.it.if.ARG.is.`toggle'...
2fa0	53 65 65 20 61 6c 73 6f 20 69 6e 66 6f 20 6e 6f 64 65 20 60 28 68 61 73 6b 65 6c 6c 2d 6d 6f 64	See.also.info.node.`(haskell-mod
2fc0	65 29 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 27 20 66 6f 72 0a 6d 6f	e)haskell-decl-scan-mode'.for.mo
2fe0	72 65 20 64 65 74 61 69 6c 73 20 61 62 6f 75 74 20 74 68 69 73 20 6d 69 6e 6f 72 20 6d 6f 64 65	re.details.about.this.minor.mode
3000	2e 0a 0a 54 6f 70 2d 6c 65 76 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 61 72 65 20 73 63	...Top-level.declarations.are.sc
3020	61 6e 6e 65 64 20 61 6e 64 20 6c 69 73 74 65 64 20 69 6e 20 74 68 65 20 6d 65 6e 75 20 69 74 65	anned.and.listed.in.the.menu.ite
3040	6d 0a 22 44 65 63 6c 61 72 61 74 69 6f 6e 73 22 20 28 69 66 20 65 6e 61 62 6c 65 64 20 76 69 61	m."Declarations".(if.enabled.via
3060	20 6f 70 74 69 6f 6e 0a 60 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 61 64 64 2d 74	.option.`haskell-decl-scan-add-t
3080	6f 2d 6d 65 6e 75 62 61 72 27 29 2e 20 20 53 65 6c 65 63 74 69 6e 67 20 61 6e 20 69 74 65 6d 20	o-menubar')...Selecting.an.item.
30a0	66 72 6f 6d 20 74 68 69 73 0a 6d 65 6e 75 20 77 69 6c 6c 20 74 61 6b 65 20 70 6f 69 6e 74 20 74	from.this.menu.will.take.point.t
30c0	6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 2e 0a	o.the.start.of.the.declaration..
30e0	0a 5c 5b 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 5d 20 61 6e 64 20 5c 5b 65 6e 64	.\[beginning-of-defun].and.\[end
3100	2d 6f 66 2d 64 65 66 75 6e 5d 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 61 6e 64 20 62 61 63 6b	-of-defun].move.forward.and.back
3120	77 61 72 64 20 74 6f 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 64 65 63 6c 61 72 61 74 69	ward.to.the.start.of.a.declarati
3140	6f 6e 2e 0a 0a 54 68 69 73 20 6d 61 79 20 6c 69 6e 6b 20 77 69 74 68 20 60 68 61 73 6b 65 6c 6c	on...This.may.link.with.`haskell
3160	2d 64 6f 63 2d 6d 6f 64 65 27 2e 0a 0a 46 6f 72 20 6e 6f 6e 2d 6c 69 74 65 72 61 74 65 20 61 6e	-doc-mode'...For.non-literate.an
3180	64 20 4c 61 54 65 58 2d 73 74 79 6c 65 20 6c 69 74 65 72 61 74 65 20 73 63 72 69 70 74 73 2c 20	d.LaTeX-style.literate.scripts,.
31a0	77 65 20 61 73 73 75 6d 65 20 74 68 65 0a 63 6f 6d 6d 6f 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20	we.assume.the.common.convention.
31c0	74 68 61 74 20 74 6f 70 2d 6c 65 76 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 73 74 61 72	that.top-level.declarations.star
31e0	74 20 61 74 20 74 68 65 20 66 69 72 73 74 0a 63 6f 6c 75 6d 6e 2e 20 20 46 6f 72 20 42 69 72 64	t.at.the.first.column...For.Bird
3200	2d 73 74 79 6c 65 20 6c 69 74 65 72 61 74 65 20 73 63 72 69 70 74 73 2c 20 77 65 20 61 73 73 75	-style.literate.scripts,.we.assu
3220	6d 65 20 74 68 65 20 63 6f 6d 6d 6f 6e 0a 63 6f 6e 76 65 6e 74 69 6f 6e 20 74 68 61 74 20 74 6f	me.the.common.convention.that.to
3240	70 2d 6c 65 76 65 6c 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 73 74 61 72 74 20 61 74 20 74 68	p-level.declarations.start.at.th
3260	65 20 74 68 69 72 64 20 63 6f 6c 75 6d 6e 2c 0a 69 65 2e 20 61 66 74 65 72 20 22 3e 20 22 2e 0a	e.third.column,.ie..after.">."..
3280	0a 41 6e 79 74 68 69 6e 67 20 69 6e 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d	.Anything.in.`font-lock-comment-
32a0	66 61 63 65 27 20 69 73 20 6e 6f 74 20 63 6f 6e 73 69 64 65 72 65 64 20 66 6f 72 20 61 0a 64 65	face'.is.not.considered.for.a.de
32c0	63 6c 61 72 61 74 69 6f 6e 2e 20 20 54 68 65 72 65 66 6f 72 65 2c 20 75 73 69 6e 67 20 48 61 73	claration...Therefore,.using.Has
32e0	6b 65 6c 6c 20 66 6f 6e 74 20 6c 6f 63 6b 69 6e 67 20 77 69 74 68 20 63 6f 6d 6d 65 6e 74 73 0a	kell.font.locking.with.comments.
3300	63 6f 6c 6f 75 72 65 64 20 69 6e 20 60 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66	coloured.in.`font-lock-comment-f
3320	61 63 65 27 20 69 6d 70 72 6f 76 65 73 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 73 63 61 6e 6e 69	ace'.improves.declaration.scanni
3340	6e 67 2e 0a 0a 4c 69 74 65 72 61 74 65 20 48 61 73 6b 65 6c 6c 20 73 63 72 69 70 74 73 20 61 72	ng...Literate.Haskell.scripts.ar
3360	65 20 73 75 70 70 6f 72 74 65 64 3a 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 6f 66 0a 60 68 61	e.supported:.If.the.value.of.`ha
3380	73 6b 65 6c 6c 2d 6c 69 74 65 72 61 74 65 27 20 28 73 65 74 20 61 75 74 6f 6d 61 74 69 63 61 6c	skell-literate'.(set.automatical
33a0	6c 79 20 62 79 20 60 6c 69 74 65 72 61 74 65 2d 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 27 29 0a 69	ly.by.`literate-haskell-mode').i
33c0	73 20 60 62 69 72 64 27 2c 20 61 20 42 69 72 64 2d 73 74 79 6c 65 20 6c 69 74 65 72 61 74 65 20	s.`bird',.a.Bird-style.literate.
33e0	73 63 72 69 70 74 20 69 73 20 61 73 73 75 6d 65 64 2e 20 20 49 66 20 69 74 20 69 73 20 6e 69 6c	script.is.assumed...If.it.is.nil
3400	0a 6f 72 20 60 74 65 78 27 2c 20 61 20 6e 6f 6e 2d 6c 69 74 65 72 61 74 65 20 6f 72 20 4c 61 54	.or.`tex',.a.non-literate.or.LaT
3420	65 58 2d 73 74 79 6c 65 20 6c 69 74 65 72 61 74 65 20 73 63 72 69 70 74 20 69 73 0a 61 73 73 75	eX-style.literate.script.is.assu
3440	6d 65 64 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 49 6e 76 6f 6b 65 73 20 60 68 61 73	med,.respectively...Invokes.`has
3460	6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 27 20 6f 6e 20 61 63 74	kell-decl-scan-mode-hook'.on.act
3480	69 76 61 74 69 6f 6e 2e 0a 0a 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 41 52 47 29 1f 0a 28 64	ivation...(fn.&optional.ARG)..(d
34a0	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 20	efalias.'haskell-decl-scan-mode.
34c0	23 5b 32 35 36 20 22 5c 33 30 34 20 01 5c 33 30 35 3d 5c 32 30 33 0d 00 08 3f 5c 32 30 32 12 00	#[256."\304..\305=\203...?\202..
34e0	5c 33 30 36 02 21 5c 33 30 37 56 10 5c 33 31 30 5c 33 30 32 21 5c 32 31 30 5c 33 31 30 5c 33 30	\306.!\307V.\310\302!\210\310\30
3500	33 21 5c 32 31 30 5c 33 31 30 5c 33 31 31 21 5c 32 31 30 08 5c 32 30 34 2c 00 09 5c 32 30 33 2c	3!\210\310\311!\210.\204,..\203,
3520	00 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 22 5c 32 31 30 08 5c 32 30 33 3f 00 5c 33 31 35 5c 33	.\312\313\314\"\210.\203?.\315\3
3540	30 32 21 5c 32 31 30 5c 33 31 36 12 5c 33 31 35 5c 33 30 33 21 5c 32 31 30 5c 33 31 37 13 5c 33	02!\210\316.\315\303!\210\317.\3
3560	32 30 20 5c 32 31 30 5c 33 32 31 5c 33 32 32 08 5c 32 30 33 49 00 5c 33 32 33 5c 32 30 32 4a 00	20.\210\321\322.\203I.\323\202J.
3580	5c 33 32 34 5c 22 5c 32 31 30 5c 33 32 35 5c 33 32 36 21 5c 32 30 33 6e 00 5c 33 30 34 20 5c 32	\324\"\210\325\326!\203n.\304.\2
35a0	30 33 5e 00 5c 32 31 31 5c 33 30 34 20 5c 32 33 32 5c 32 30 33 6e 00 5c 33 32 37 5c 33 33 30 5c	03^.\211\304.\232\203n.\327\330\
35c0	33 33 31 08 5c 32 30 33 69 00 5c 33 33 32 5c 32 30 32 6a 00 5c 33 33 33 03 23 5c 32 36 36 02 5c	331.\203i.\332\202j.\333.#\266.\
35e0	32 31 30 5c 33 33 34 20 5c 32 31 30 08 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 64 65 63 6c	210\334.\210.\207".[haskell-decl
3600	2d 73 63 61 6e 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 61 64 64	-scan-mode.haskell-decl-scan-add
3620	2d 74 6f 2d 6d 65 6e 75 62 61 72 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 2d 66	-to-menubar.beginning-of-defun-f
3640	75 6e 63 74 69 6f 6e 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 2d 66 75 6e 63 74 69 6f 6e 20 63 75	unction.end-of-defun-function.cu
3660	72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 74 6f 67 67 6c 65 20 70 72 65 66 69 78 2d 6e 75 6d 65	rrent-message.toggle.prefix-nume
3680	72 69 63 2d 76 61 6c 75 65 20 30 20 6b 69 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20	ric-value.0.kill-local-variable.
36a0	69 6d 65 6e 75 2d 63 72 65 61 74 65 2d 69 6e 64 65 78 2d 66 75 6e 63 74 69 6f 6e 20 6c 6f 63 61	imenu-create-index-function.loca
36c0	6c 2d 73 65 74 2d 6b 65 79 20 5b 6d 65 6e 75 2d 62 61 72 20 69 6e 64 65 78 5d 20 6e 69 6c 20 6d	l-set-key.[menu-bar.index].nil.m
36e0	61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 62 61	ake-local-variable.haskell-ds-ba
3700	63 6b 77 61 72 64 2d 64 65 63 6c 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 66 6f 72 77 61 72 64 2d 64	ckward-decl.haskell-ds-forward-d
3720	65 63 6c 20 68 61 73 6b 65 6c 6c 2d 64 73 2d 69 6d 65 6e 75 20 72 75 6e 2d 68 6f 6f 6b 73 20 68	ecl.haskell-ds-imenu.run-hooks.h
3740	61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 68 61 73 6b 65	askell-decl-scan-mode-hook.haske
3760	6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 2d 6f 6e 2d 68 6f 6f 6b 20 68 61 73 6b 65 6c	ll-decl-scan-mode-on-hook.haskel
3780	6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 2d 6f 66 66 2d 68 6f 6f 6b 20 63 61 6c 6c 65 64	l-decl-scan-mode-off-hook.called
37a0	2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2d 70 20 61 6e 79 20 22 20 69 6e 20 63 75 72 72 65 6e	-interactively-p.any.".in.curren
37c0	74 20 62 75 66 66 65 72 22 20 6d 65 73 73 61 67 65 20 22 48 61 73 6b 65 6c 6c 2d 44 65 63 6c 2d	t.buffer".message."Haskell-Decl-
37e0	53 63 61 6e 20 6d 6f 64 65 20 25 73 61 62 6c 65 64 25 73 22 20 22 65 6e 22 20 22 64 69 73 22 20	Scan.mode.%sabled%s"."en"."dis".
3800	66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 5d 20 37 20 28 23 24 20 2e 20	force-mode-line-update].7.(#$...
3820	31 31 39 34 33 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 5c 32 30 36 05 00 5c 33 30 31 43 5c	11943).(byte-code.".\206..\301C\
3840	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 74 6f 67 67 6c 65 5d	207".[current-prefix-arg.toggle]
3860	20 31 29 5d 29 0a 23 40 31 38 37 20 48 6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72	.1)]).#@187.Hook.run.after.enter
3880	69 6e 67 20 6f 72 20 6c 65 61 76 69 6e 67 20 60 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61	ing.or.leaving.`haskell-decl-sca
38a0	6e 2d 6d 6f 64 65 27 2e 0a 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74	n-mode'..No.problems.result.if.t
38c0	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 60 61 64 64 2d	his.variable.is.not.bound..`add-
38e0	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 74 2e 20 20 28	hook'.automatically.binds.it...(
3900	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 61 72 69 61 62	This.is.true.for.all.hook.variab
3920	6c 65 73 2e 29 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e	les.)..(defvar.haskell-decl-scan
3940	2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20 2e 20 31 34 34 34 34 29 29 0a 28 62 79	-mode-hook.nil.(#$...14444)).(by
3960	74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 30 21 5c 32	te-code."\301\302\303\304\300!\2
3980	30 35 5c 6e 00 08 5c 33 30 33 5c 32 31 31 25 5c 32 31 30 5c 33 30 35 5c 33 30 36 21 5c 32 30 37	05\n..\303\211%\210\305\306!\207
39a0	22 20 5b 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d 6f 64 65 2d 6d 61 70 20 61 64	".[haskell-decl-scan-mode-map.ad
39c0	64 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 64 65 63 6c 2d 73 63 61 6e 2d 6d	d-minor-mode.haskell-decl-scan-m
39e0	6f 64 65 20 6e 69 6c 20 62 6f 75 6e 64 70 20 70 72 6f 76 69 64 65 20 68 61 73 6b 65 6c 6c 2d 64	ode.nil.boundp.provide.haskell-d
3a00	65 63 6c 2d 73 63 61 6e 5d 20 36 29 0a	ecl-scan].6).