blob: 7838ae6d3b1d7cd6b14a8a030d5d437c8d154ba0 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 21 5c 32 30 37 22 20 5b 72 65	"\300\301!\210\300\302!\207".[re
01c0	71 75 69 72 65 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69	quire.haskell-mode.haskell-sessi
01e0	6f 6e 5d 20 32 29 0a 23 40 34 31 20 4b 65 79 6d 61 70 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d	on].2).#@41.Keymap.for.`haskell-
0200	70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 27 2e 1f 0a 28 64 65 66 76 61 72 20 68 61 73	presentation-mode'...(defvar.has
0220	6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 28 62 79 74 65	kell-presentation-mode-map.(byte
0240	2d 63 6f 64 65 20 22 5c 33 30 30 20 5c 33 30 31 01 5c 33 30 32 5c 33 30 33 23 5c 32 31 30 5c 33	-code."\300.\301.\302\303#\210\3
0260	30 31 01 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 6d 61 6b 65 2d	01.\304\305#\210\211\207".[make-
0280	73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 71 22 20 71 75 69	sparse-keymap.define-key."q".qui
02a0	74 2d 77 69 6e 64 6f 77 20 22 63 22 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f	t-window."c".haskell-presentatio
02c0	6e 2d 63 6c 65 61 72 5d 20 35 29 20 28 23 24 20 2e 20 34 39 32 29 29 0a 23 40 31 36 39 20 48 6f	n-clear].5).(#$...492)).#@169.Ho
02e0	6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 50 72 65 73 65 6e 74 61 74 69	ok.run.after.entering.Presentati
0300	6f 6e 20 6d 6f 64 65 2e 0a 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65 73 75 6c 74 20 69 66 20 74	on.mode..No.problems.result.if.t
0320	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-
0340	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...(
0360	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
0380	6c 65 73 2e 29 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74	les.)..(defvar.haskell-presentat
03a0	69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20 2e 20 37 33 34 29 29 0a 28 62	ion-mode-hook.nil.(#$...734)).(b
03c0	79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 34 5c 66 00 5c 33 30 32 5c 33	yte-code."\300\301!\204\f.\302\3
03e0	30 31 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20 5b 62 6f 75 6e 64 70	01\303\304#\210\300\207".[boundp
0400	20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 70	.haskell-presentation-mode-map.p
0420	75 74 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65	ut.definition-name.haskell-prese
0440	6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 5d 20 34 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c	ntation-mode].4).(defvar.haskell
0460	2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61	-presentation-mode-map.(make-spa
0480	72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30	rse-keymap)).(byte-code."\300\30
04a0	31 4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32	1N\204..\302\300\301\303\304!#\2
04c0	31 30 5c 33 30 35 5c 33 30 36 21 5c 32 30 34 1a 00 5c 33 30 32 5c 33 30 36 5c 33 30 37 5c 33 31	10\305\306!\204..\302\306\307\31
04e0	30 23 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74	0#\210\300\207".[haskell-present
0500	61 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74	ation-mode-map.variable-document
0520	61 74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 4b 65 79 6d 61 70 20 66 6f 72 20 60	ation.put.purecopy."Keymap.for.`
0540	68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 27 2e 22 20 62 6f 75	haskell-presentation-mode'.".bou
0560	6e 64 70 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 73 79	ndp.haskell-presentation-mode-sy
0580	6e 74 61 78 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b 65	ntax-table.definition-name.haske
05a0	6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61 72	ll-presentation-mode].5).(defvar
05c0	20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 73 79 6e 74 61	.haskell-presentation-mode-synta
05e0	78 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 28 62 79	x-table.(make-syntax-table)).(by
0600	74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30	te-code."\300\301N\204..\302\300
0620	5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33	\301\303\304!#\210\302\305\306\3
0640	30 37 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d	07#\207".[haskell-presentation-m
0660	6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65	ode-syntax-table.variable-docume
0680	6e 74 61 74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 53 79 6e 74 61 78 20 74 61 62	ntation.put.purecopy."Syntax.tab
06a0	6c 65 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64	le.for.`haskell-presentation-mod
06c0	65 27 2e 22 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 61	e'.".haskell-presentation-mode-a
06e0	62 62 72 65 76 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b	bbrev-table.definition-name.hask
0700	65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66 76 61	ell-presentation-mode].5).(defva
0720	72 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 61 62 62 72	r.haskell-presentation-mode-abbr
0740	65 76 2d 74 61 62 6c 65 20 28 70 72 6f 67 6e 20 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74	ev-table.(progn.(define-abbrev-t
0760	61 62 6c 65 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d	able.'haskell-presentation-mode-
0780	61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 29 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e	abbrev-table.nil).haskell-presen
07a0	74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 29 0a 28 62 79 74 65	tation-mode-abbrev-table)).(byte
07c0	2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34 0e 00 5c 33 30 32 5c 33 30 30 5c 33	-code."\300\301N\204..\302\300\3
07e0	30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 32 5c 33 30 35 5c 33 30 36 5c 33 30 37	01\303\304!#\210\302\305\306\307
0800	23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64	#\207".[haskell-presentation-mod
0820	65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74	e-abbrev-table.variable-document
0840	61 74 69 6f 6e 20 70 75 74 20 70 75 72 65 63 6f 70 79 20 22 41 62 62 72 65 76 20 74 61 62 6c 65	ation.put.purecopy."Abbrev.table
0860	20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 27	.for.`haskell-presentation-mode'
0880	2e 22 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 20 64 65 72	.".haskell-presentation-mode.der
08a0	69 76 65 64 2d 6d 6f 64 65 2d 70 61 72 65 6e 74 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 5d 20 35	ived-mode-parent.haskell-mode].5
08c0	29 0a 23 40 32 34 36 20 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 76 69 65 77 69 6e 67 20 48	).#@246.Major.mode.for.viewing.H
08e0	61 73 6b 65 6c 6c 20 73 6e 69 70 70 65 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 5c 7b 68 79 70	askell.snippets............\{hyp
0900	65 72 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f	ertext-mode-map}..In.addition.to
0920	20 61 6e 79 20 68 6f 6f 6b 73 20 69 74 73 20 70 61 72 65 6e 74 20 6d 6f 64 65 20 60 68 61 73 6b	.any.hooks.its.parent.mode.`hask
0940	65 6c 6c 2d 6d 6f 64 65 27 20 6d 69 67 68 74 20 68 61 76 65 20 72 75 6e 2c 0a 74 68 69 73 20 6d	ell-mode'.might.have.run,.this.m
0960	6f 64 65 20 72 75 6e 73 20 74 68 65 20 68 6f 6f 6b 20 60 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65	ode.runs.the.hook.`haskell-prese
0980	6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 27 2c 20 61 73 20 74 68 65 20 66 69 6e 61 6c	ntation-mode-hook',.as.the.final
09a0	20 73 74 65 70 0a 64 75 72 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 2e 1f 0a 28 64	.step.during.initialization...(d
09c0	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f	efalias.'haskell-presentation-mo
09e0	64 65 20 23 5b 30 20 22 5c 33 30 36 5c 33 30 30 21 5c 32 31 30 5c 33 30 37 18 5c 33 31 30 20 5c	de.#[0."\306\300!\210\307.\310.\
0a00	32 31 30 5c 33 31 31 11 5c 33 31 32 12 5c 33 31 30 5c 33 31 33 4e 5c 32 30 33 1b 00 5c 33 31 34	210\311.\312.\310\313N\203..\314
0a20	5c 33 31 31 5c 33 31 33 5c 33 31 30 5c 33 31 33 4e 23 5c 32 31 30 5c 33 31 35 0b 21 5c 32 30 34	\311\313\310\313N#\210\315.!\204
0a40	27 00 5c 33 31 36 0b 5c 33 31 37 20 5c 22 5c 32 31 30 5c 33 32 30 5c 66 21 5c 32 31 31 5c 32 30	'.\316.\317.\"\210\320\f!\211\20
0a60	33 35 00 5c 32 31 31 5c 33 32 31 20 3d 5c 32 30 33 3b 00 5c 33 32 32 5c 66 5c 33 32 33 20 5c 22	35.\211\321.=\203;.\322\f\323.\"
0a80	5c 32 31 30 5c 32 31 30 5c 33 32 34 0d 5c 33 32 35 5c 22 5c 32 30 34 52 00 0d 0e 1c 3d 5c 32 30	\210\210\324.\325\"\204R....=\20
0aa0	34 52 00 5c 33 32 36 0d 5c 33 32 35 0e 1c 43 23 5c 32 31 30 5c 33 32 37 0b 21 5c 32 31 30 5c 33	4R.\326.\325..C#\210\327.!\210\3
0ac0	33 30 5c 66 21 5c 32 31 30 0d 16 1c 5c 33 33 31 16 1d 29 5c 33 33 32 5c 33 33 33 21 5c 32 30 37	30\f!\210...\331..)\332\333!\207
0ae0	22 20 5b 64 65 6c 61 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d	".[delay-mode-hooks.major-mode.m
0b00	6f 64 65 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f	ode-name.haskell-presentation-mo
0b20	64 65 2d 6d 61 70 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65	de-map.haskell-presentation-mode
0b40	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69	-syntax-table.haskell-presentati
0b60	6f 6e 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d	on-mode-abbrev-table.make-local-
0b80	76 61 72 69 61 62 6c 65 20 74 20 68 61 73 6b 65 6c 6c 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d	variable.t.haskell-mode.haskell-
0ba0	70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 20 22 50 72 65 73 65 6e 74 61 74 69 6f 6e 22	presentation-mode."Presentation"
0bc0	20 6d 6f 64 65 2d 63 6c 61 73 73 20 70 75 74 20 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 65	.mode-class.put.keymap-parent.se
0be0	74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61	t-keymap-parent.current-local-ma
0c00	70 20 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20 73 74 61 6e 64 61 72 64 2d 73 79 6e	p.char-table-parent.standard-syn
0c20	74 61 78 2d 74 61 62 6c 65 20 73 65 74 2d 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20	tax-table.set-char-table-parent.
0c40	73 79 6e 74 61 78 2d 74 61 62 6c 65 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 67 65 74 20 3a 70	syntax-table.abbrev-table-get.:p
0c60	61 72 65 6e 74 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 70 75 74 20 75 73 65 2d 6c 6f 63 61	arents.abbrev-table-put.use-loca
0c80	6c 2d 6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 72 75 6e 2d 6d	l-map.set-syntax-table.nil.run-m
0ca0	6f 64 65 2d 68 6f 6f 6b 73 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d	ode-hooks.haskell-presentation-m
0cc0	6f 64 65 2d 68 6f 6f 6b 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 63 61 73 65	ode-hook.local-abbrev-table.case
0ce0	2d 66 6f 6c 64 2d 73 65 61 72 63 68 5d 20 35 20 28 23 24 20 2e 20 32 32 34 38 29 20 6e 69 6c 5d	-fold-search].5.(#$...2248).nil]
0d00	29 0a 23 40 33 35 20 48 61 73 6b 65 6c 6c 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 75 66 66	).#@35.Haskell.Presentation.buff
0d20	65 72 20 6e 61 6d 65 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73	er.name...(defconst.haskell-pres
0d40	65 6e 74 61 74 69 6f 6e 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 2a 48 61 73 6b 65 6c 6c 20 50	entation-buffer-name."*Haskell.P
0d60	72 65 73 65 6e 74 61 74 69 6f 6e 2a 22 20 28 23 24 20 2e 20 33 33 33 35 29 29 0a 23 40 35 34 20	resentation*".(#$...3335)).#@54.
0d80	48 69 6e 74 20 6d 65 73 73 61 67 65 20 61 70 70 65 72 65 64 20 69 6e 20 48 61 73 6b 65 6c 6c 20	Hint.message.appered.in.Haskell.
0da0	50 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 63 6f 6e 73 74 20	Presentation.buffer...(defconst.
0dc0	68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 68 69 6e 74 2d 6d 65 73 73 61 67	haskell-presentation-hint-messag
0de0	65 20 22 2d 2d 20 48 69 74 20 60 71 27 20 74 6f 20 63 6c 6f 73 65 20 74 68 69 73 20 77 69 6e 64	e."--.Hit.`q'.to.close.this.wind
0e00	6f 77 3b 20 60 63 27 20 74 6f 20 63 6c 65 61 72 2e 5c 6e 5c 6e 22 20 28 23 24 20 2e 20 33 34 35	ow;.`c'.to.clear.\n\n".(#$...345
0e20	36 29 29 0a 23 40 31 31 38 20 52 65 74 75 72 6e 20 48 61 73 6b 65 6c 6c 20 50 72 65 73 65 6e 74	6)).#@118.Return.Haskell.Present
0e40	61 69 6f 6e 20 62 75 66 66 65 72 2e 0a 52 65 74 75 72 6e 20 63 75 72 72 65 6e 74 20 70 72 65 73	aion.buffer..Return.current.pres
0e60	65 6e 61 74 69 6f 6e 20 62 75 66 66 65 72 20 6f 72 20 63 72 65 61 74 65 20 6e 65 77 20 6f 6e 65	enation.buffer.or.create.new.one
0e80	20 69 66 20 61 62 73 65 6e 74 2e 0a 4e 65 76 65 72 20 72 65 74 75 72 6e 73 20 6e 69 6c 2e 1f 0a	.if.absent..Never.returns.nil...
0ea0	28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d	(defalias.'haskell-presentation-
0ec0	62 75 66 66 65 72 20 23 5b 30 20 22 5c 33 30 33 08 21 5c 32 31 31 5c 32 30 33 0b 00 5c 32 31 31	buffer.#[0."\303.!\211\203..\211
0ee0	5c 32 30 32 1e 00 5c 33 30 34 08 21 72 5c 32 31 31 71 5c 32 31 30 09 63 5c 32 31 30 5c 33 30 35	\202..\304.!r\211q\210.c\210\305
0f00	20 5c 32 31 30 5c 33 30 36 12 29 5c 32 31 31 5c 32 36 32 01 5c 32 30 37 22 20 5b 68 61 73 6b 65	.\210\306.)\211\262.\207".[haske
0f20	6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 68 61 73 6b	ll-presentation-buffer-name.hask
0f40	65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 68 69 6e 74 2d 6d 65 73 73 61 67 65 20 62 75	ell-presentation-hint-message.bu
0f60	66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 67 65 74 2d 62 75 66 66 65 72 20 67 65 6e 65 72 61	ffer-read-only.get-buffer.genera
0f80	74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69	te-new-buffer.haskell-presentati
0fa0	6f 6e 2d 6d 6f 64 65 20 74 5d 20 33 20 28 23 24 20 2e 20 33 36 32 36 29 5d 29 0a 23 40 33 36 20	on-mode.t].3.(#$...3626)]).#@36.
0fc0	43 6c 65 61 72 20 48 61 73 6b 65 6c 6c 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 75 66 66 65	Clear.Haskell.Presentation.buffe
0fe0	72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74	r...(defalias.'haskell-presentat
1000	69 6f 6e 2d 63 6c 65 61 72 20 23 5b 30 20 22 5c 33 30 33 08 21 5c 32 31 31 5c 32 30 35 13 00 72	ion-clear.#[0."\303.!\211\205..r
1020	5c 32 31 31 71 5c 32 31 30 5c 33 30 34 19 5c 33 30 35 20 5c 32 31 30 5c 6e 63 2a 5c 32 30 37 22	\211q\210\304.\305.\210\nc*\207"
1040	20 5b 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 62 75 66 66 65 72 2d 6e 61	.[haskell-presentation-buffer-na
1060	6d 65 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73	me.buffer-read-only.haskell-pres
1080	65 6e 74 61 74 69 6f 6e 2d 68 69 6e 74 2d 6d 65 73 73 61 67 65 20 67 65 74 2d 62 75 66 66 65 72	entation-hint-message.get-buffer
10a0	20 6e 69 6c 20 65 72 61 73 65 2d 62 75 66 66 65 72 5d 20 32 20 28 23 24 20 2e 20 34 30 33 32 29	.nil.erase-buffer].2.(#$...4032)
10c0	20 6e 69 6c 5d 29 0a 23 40 32 39 33 20 50 72 65 73 65 6e 74 20 67 69 76 65 6e 20 63 6f 64 65 20	.nil]).#@293.Present.given.code.
10e0	69 6e 20 61 20 70 6f 70 75 70 20 62 75 66 66 65 72 2e 0a 43 72 65 61 74 65 73 20 74 65 6d 70 6f	in.a.popup.buffer..Creates.tempo
1100	72 61 6c 20 48 61 73 6b 65 6c 6c 20 50 72 65 73 65 6e 74 61 74 69 6f 6e 20 62 75 66 66 65 72 20	ral.Haskell.Presentation.buffer.
1120	61 6e 64 20 61 73 73 69 67 6e 73 20 69 74 20 74 6f 0a 67 69 76 65 6e 20 68 61 73 6b 65 6c 6c 20	and.assigns.it.to.given.haskell.
1140	53 45 53 53 49 4f 4e 3b 20 70 72 65 73 65 6e 74 65 64 20 43 4f 44 45 20 77 69 6c 6c 20 62 65 20	SESSION;.presented.CODE.will.be.
1160	66 6f 6e 74 69 66 69 65 64 20 61 73 0a 68 61 73 6b 65 6c 6c 20 63 6f 64 65 2e 20 20 47 69 76 65	fontified.as.haskell.code...Give
1180	20 61 6e 20 6f 70 74 69 6f 6e 61 6c 20 6e 6f 6e 2d 6e 69 6c 20 43 4c 45 41 52 20 61 72 67 20 74	.an.optional.non-nil.CLEAR.arg.t
11a0	6f 20 63 6c 65 61 72 20 74 68 65 0a 62 75 66 66 65 72 20 62 65 66 6f 72 65 20 70 72 65 73 65 6e	o.clear.the.buffer.before.presen
11c0	74 69 6e 67 20 6d 65 73 73 61 67 65 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 43 4f 44 45 20	ting.message...(fn.SESSION.CODE.
11e0	26 6f 70 74 69 6f 6e 61 6c 20 43 4c 45 41 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73	&optional.CLEAR)..(defalias.'has
1200	6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 70 72 65 73 65 6e 74 20 23 5b 37 37 30 20	kell-presentation-present.#[770.
1220	22 5c 33 30 33 20 72 5c 32 31 31 71 5c 32 31 30 5c 33 30 34 5c 33 30 30 21 5c 32 30 33 12 00 5c	"\303.r\211q\210\304\300!\203..\
1240	33 30 35 5c 33 30 30 21 5c 32 31 30 5c 33 30 36 10 01 5c 32 30 33 19 00 5c 33 30 37 20 5c 32 31	305\300!\210\306..\203..\307.\21
1260	30 5c 33 31 30 04 21 5c 32 31 30 65 62 5c 32 31 30 5c 33 31 31 79 5c 32 31 30 5c 32 31 32 5c 33	0\310.!\210eb\210\311y\210\212\3
1280	30 36 19 02 5c 33 31 32 5c 32 36 31 02 5c 32 31 30 2b 5c 6e 5c 33 31 33 3d 5c 32 30 33 38 00 5c	06..\312\261.\210+\n\313=\2038.\
12a0	33 31 34 01 21 5c 32 30 32 3b 00 5c 33 31 35 01 21 5c 32 30 37 22 20 5b 73 68 6d 2d 64 69 73 70	314.!\202;.\315.!\207".[shm-disp
12c0	6c 61 79 2d 71 75 61 72 61 6e 74 69 6e 65 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20	lay-quarantine.buffer-read-only.
12e0	6d 61 6a 6f 72 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d	major-mode.haskell-presentation-
1300	62 75 66 66 65 72 20 62 6f 75 6e 64 70 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c	buffer.boundp.make-local-variabl
1320	65 20 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 63 6c 65 61 72	e.nil.haskell-presentation-clear
1340	20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 61 73 73 69 67 6e 20 32 20 22 5c 6e 5c 6e 22	.haskell-session-assign.2."\n\n"
1360	20 68 61 73 6b 65 6c 6c 2d 70 72 65 73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 20 73 77 69 74 63	.haskell-presentation-mode.switc
1380	68 2d 74 6f 2d 62 75 66 66 65 72 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 5d 20 36 20 28 23 24	h-to-buffer.pop-to-buffer].6.(#$
13a0	20 2e 20 34 33 30 31 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 70 72 65	...4301)]).(provide.'haskell-pre
13c0	73 65 6e 74 61 74 69 6f 6e 2d 6d 6f 64 65 29 0a	sentation-mode).