blob: c1a3de07d0cb69f3e9773b238d2c83eb75b2888f (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 30 5c 33 30 35 21 5c 32	303!\210\300\304!\210\300\305!\2
01e0	31 30 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 33 31 32 44 44 5c 33 31 33 5c 33 31 34	10\306\307\310\311\312DD\313\314
0200	5c 33 31 35 5c 33 31 36 5c 33 31 37 26 07 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65 20 63 6c 2d	\315\316\317&.\207".[require.cl-
0220	6c 69 62 20 68 61 73 6b 65 6c 6c 2d 63 6f 6d 70 61 74 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69	lib.haskell-compat.haskell-sessi
0240	6f 6e 20 68 61 73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72	on.haskell-process.haskell-inter
0260	61 63 74 69 76 65 2d 6d 6f 64 65 20 63 75 73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61	active-mode.custom-declare-varia
0280	62 6c 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 66 75 6e	ble.haskell-menu-buffer-name.fun
02a0	63 61 6c 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 23 31	call.function.#[0."\300\207".[#1
02c0	3d 22 2a 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2a 22 5d 20 31 20 23 31 23 5d 20 22 54 68 65 20 6e	="*haskell-menu*"].1.#1#]."The.n
02e0	61 6d 65 20 6f 66 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 20 6d 65 6e 75 20	ame.of.the.Haskell.session.menu.
0300	62 75 66 66 65 72 22 20 3a 67 72 6f 75 70 20 68 61 73 6b 65 6c 6c 2d 69 6e 74 65 72 61 63 74 69	buffer".:group.haskell-interacti
0320	76 65 20 3a 74 79 70 65 20 73 74 72 69 6e 67 5d 20 38 29 0a 23 40 33 35 20 4c 61 75 6e 63 68 20	ve.:type.string].8).#@35.Launch.
0340	74 68 65 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 73 20 6d 65 6e 75 2e 1f 0a 28 64 65 66	the.Haskell.sessions.menu...(def
0360	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 20 23 5b 30 20 22 5c 33 30 31 08 21 5c	alias.'haskell-menu.#[0."\301.!\
0380	32 30 34 10 00 72 5c 33 30 32 08 21 71 5c 32 31 30 5c 33 30 33 20 5c 32 31 30 29 5c 33 30 34 5c	204..r\302.!q\210\303.\210)\304\
03a0	33 30 31 08 21 21 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 32 31 31 5c 22 5c 32 30 37 22 20 5b 68	301.!!\210\305\306\211\"\207".[h
03c0	61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 67 65 74 2d 62 75 66 66	askell-menu-buffer-name.get-buff
03e0	65 72 20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e	er.get-buffer-create.haskell-men
0400	75 2d 6d 6f 64 65 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69	u-mode.switch-to-buffer-other-wi
0420	6e 64 6f 77 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 72 65 76 65 72 74 2d 66 75 6e 63 74 69 6f	ndow.haskell-menu-revert-functio
0440	6e 20 6e 69 6c 5d 20 33 20 28 23 24 20 2e 20 38 32 35 29 20 6e 69 6c 5d 29 0a 23 40 33 33 20 4b	n.nil].3.(#$...825).nil]).#@33.K
0460	65 79 6d 61 70 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 27 2e 1f 0a	eymap.for.`haskell-menu-mode'...
0480	28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 6d 61 70 20 28 62	(defvar.haskell-menu-mode-map.(b
04a0	79 74 65 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	yte-code."\300.\301.\302\303#\21
04c0	30 5c 33 30 31 01 5c 33 30 34 5c 33 30 35 23 5c 32 31 30 5c 33 30 31 01 5c 33 30 36 5c 33 30 37	0\301.\304\305#\210\301.\306\307
04e0	23 5c 32 31 30 5c 32 31 31 5c 32 30 37 22 20 5b 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d	#\210\211\207".[make-sparse-keym
0500	61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 6e 22 20 6e 65 78 74 2d 6c 69 6e 65 20 22 70 22 20	ap.define-key."n".next-line."p".
0520	70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 22 0d 22 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d	previous-line.".".haskell-menu-m
0540	6f 64 65 2d 72 65 74 5d 20 35 29 20 28 23 24 20 2e 20 31 31 31 39 29 29 0a 23 40 31 37 37 20 48	ode-ret].5).(#$...1119)).#@177.H
0560	6f 6f 6b 20 72 75 6e 20 61 66 74 65 72 20 65 6e 74 65 72 69 6e 67 20 48 61 73 6b 65 6c 6c 20 53	ook.run.after.entering.Haskell.S
0580	65 73 73 69 6f 6e 20 4d 65 6e 75 20 6d 6f 64 65 2e 0a 4e 6f 20 70 72 6f 62 6c 65 6d 73 20 72 65	ession.Menu.mode..No.problems.re
05a0	73 75 6c 74 20 69 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 6e 6f 74 20 62 6f 75	sult.if.this.variable.is.not.bou
05c0	6e 64 2e 0a 60 61 64 64 2d 68 6f 6f 6b 27 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 62 69 6e	nd..`add-hook'.automatically.bin
05e0	64 73 20 69 74 2e 20 20 28 54 68 69 73 20 69 73 20 74 72 75 65 20 66 6f 72 20 61 6c 6c 20 68 6f	ds.it...(This.is.true.for.all.ho
0600	6f 6b 20 76 61 72 69 61 62 6c 65 73 2e 29 1f 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d	ok.variables.)..(defvar.haskell-
0620	6d 65 6e 75 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 6e 69 6c 20 28 23 24 20 2e 20 31 33 37 35 29 29 0a	menu-mode-hook.nil.(#$...1375)).
0640	28 62 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	(byte-code."\300\301!\204\f.\302
0660	5c 33 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	\301\303\304#\210\300\207".[boun
0680	64 70 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 6d 61 70 20 70 75 74 20 64 65 66	dp.haskell-menu-mode-map.put.def
06a0	69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 5d 20	inition-name.haskell-menu-mode].
06c0	34 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 6d 61 70	4).(defvar.haskell-menu-mode-map
06e0	20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 0a 28 62 79 74 65 2d 63 6f 64	.(make-sparse-keymap)).(byte-cod
0700	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 30 31 5c 33	e."\300\301N\204..\302\300\301\3
0720	30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 35 5c 33 30 36 21 5c 32 30 34 1a 00 5c 33 30 32 5c	03\304!#\210\305\306!\204..\302\
0740	33 30 36 5c 33 30 37 5c 33 31 30 23 5c 32 31 30 5c 33 30 30 5c 32 30 37 22 20 5b 68 61 73 6b 65	306\307\310#\210\300\207".[haske
0760	6c 6c 2d 6d 65 6e 75 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	ll-menu-mode-map.variable-docume
0780	6e 74 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	ntation.put.purecopy."Keymap.for
07a0	20 60 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 27 2e 22 20 62 6f 75 6e 64 70 20 68 61	.`haskell-menu-mode'.".boundp.ha
07c0	73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 64 65 66	skell-menu-mode-syntax-table.def
07e0	69 6e 69 74 69 6f 6e 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 5d 20	inition-name.haskell-menu-mode].
0800	35 29 0a 28 64 65 66 76 61 72 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 73 79 6e	5).(defvar.haskell-menu-mode-syn
0820	74 61 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	tax-table.(make-syntax-table)).(
0840	62 79 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	byte-code."\300\301N\204..\302\3
0860	30 30 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	00\301\303\304!#\210\302\305\306
0880	5c 33 30 37 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 73 79	\307#\207".[haskell-menu-mode-sy
08a0	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 6e 74 61 74 69 6f	ntax-table.variable-documentatio
08c0	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 6c 65 20 66 6f 72	n.put.purecopy."Syntax.table.for
08e0	20 60 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 27 2e 22 20 68 61 73 6b 65 6c 6c 2d 6d	.`haskell-menu-mode'.".haskell-m
0900	65 6e 75 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e	enu-mode-abbrev-table.definition
0920	2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 5d 20 35 29 0a 28 64 65 66	-name.haskell-menu-mode].5).(def
0940	76 61 72 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62	var.haskell-menu-mode-abbrev-tab
0960	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 61 62 6c 65 20 27	le.(progn.(define-abbrev-table.'
0980	68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e	haskell-menu-mode-abbrev-table.n
09a0	69 6c 29 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62	il).haskell-menu-mode-abbrev-tab
09c0	6c 65 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 30 5c 33 30 31 4e 5c 32 30 34 0e 00	le)).(byte-code."\300\301N\204..
09e0	5c 33 30 32 5c 33 30 30 5c 33 30 31 5c 33 30 33 5c 33 30 34 21 23 5c 32 31 30 5c 33 30 32 5c 33	\302\300\301\303\304!#\210\302\3
0a00	30 35 5c 33 30 36 5c 33 30 37 23 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d	05\306\307#\207".[haskell-menu-m
0a20	6f 64 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	ode-abbrev-table.variable-docume
0a40	6e 74 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	ntation.put.purecopy."Abbrev.tab
0a60	6c 65 20 66 6f 72 20 60 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 27 2e 22 20 68 61 73	le.for.`haskell-menu-mode'.".has
0a80	6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 20 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 61 72 65	kell-menu-mode.derived-mode-pare
0aa0	6e 74 20 73 70 65 63 69 61 6c 2d 6d 6f 64 65 5d 20 35 29 0a 23 40 33 32 38 20 4d 61 6a 6f 72 20	nt.special-mode].5).#@328.Major.
0ac0	6d 6f 64 65 20 66 6f 72 20 6d 61 6e 61 67 69 6e 67 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f	mode.for.managing.Haskell.sessio
0ae0	6e 73 2e 0a 45 61 63 68 20 6c 69 6e 65 20 64 65 73 63 72 69 62 65 73 20 6f 6e 65 20 73 65 73 73	ns..Each.line.describes.one.sess
0b00	69 6f 6e 2e 0a 4c 65 74 74 65 72 73 20 64 6f 20 6e 6f 74 20 69 6e 73 65 72 74 20 74 68 65 6d 73	ion..Letters.do.not.insert.thems
0b20	65 6c 76 65 73 3b 20 69 6e 73 74 65 61 64 2c 20 74 68 65 79 20 61 72 65 20 63 6f 6d 6d 61 6e 64	elves;.instead,.they.are.command
0b40	73 2e 0a 0a 49 6e 20 61 64 64 69 74 69 6f 6e 20 74 6f 20 61 6e 79 20 68 6f 6f 6b 73 20 69 74 73	s...In.addition.to.any.hooks.its
0b60	20 70 61 72 65 6e 74 20 6d 6f 64 65 20 60 73 70 65 63 69 61 6c 2d 6d 6f 64 65 27 20 6d 69 67 68	.parent.mode.`special-mode'.migh
0b80	74 20 68 61 76 65 20 72 75 6e 2c 0a 74 68 69 73 20 6d 6f 64 65 20 72 75 6e 73 20 74 68 65 20 68	t.have.run,.this.mode.runs.the.h
0ba0	6f 6f 6b 20 60 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 68 6f 6f 6b 27 2c 20 61 73	ook.`haskell-menu-mode-hook',.as
0bc0	20 74 68 65 20 66 69 6e 61 6c 20 73 74 65 70 0a 64 75 72 69 6e 67 20 69 6e 69 74 69 61 6c 69 7a	.the.final.step.during.initializ
0be0	61 74 69 6f 6e 2e 0a 0a 5c 7b 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 6d 61 70 7d	ation...\{haskell-menu-mode-map}
0c00	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 20 23	..(defalias.'haskell-menu-mode.#
0c20	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 32 31 30 5c	[0."\306\300!\210\307.\310.\210\
0c40	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 5c 33 31 31	311.\312.\310\313N\203..\314\311
0c60	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 27 00 5c 33	\313\310\313N#\210\315.!\204'.\3
0c80	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 33 35 00 5c	16.\317.\"\210\320\f!\211\2035.\
0ca0	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 5c 32 31 30	211\321.=\203;.\322\f\323.\"\210
0cc0	5c 32 31 30 5c 33 32 34 0d 5c 33 32 35 5c 22 5c 32 30 34 52 00 0d 0e 1e 3d 5c 32 30 34 52 00 5c	\210\324.\325\"\204R....=\204R.\
0ce0	33 32 36 0d 5c 33 32 35 0e 1e 43 23 5c 32 31 30 5c 33 32 37 0b 21 5c 32 31 30 5c 33 33 30 5c 66	326.\325..C#\210\327.!\210\330\f
0d00	21 5c 32 31 30 0d 16 1e 5c 33 30 37 16 1f 5c 33 30 36 5c 33 33 31 21 5c 32 31 30 5c 33 33 32 16	!\210...\307..\306\331!\210\332.
0d20	19 5c 33 30 37 16 20 5c 33 33 32 5c 33 33 33 5c 33 30 37 5c 22 5c 32 31 30 29 5c 33 33 34 5c 33	.\307..\332\333\307\"\210)\334\3
0d40	33 35 21 5c 32 30 37 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	35!\207".[delay-mode-hooks.major
0d60	2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64	-mode.mode-name.haskell-menu-mod
0d80	65 2d 6d 61 70 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74	e-map.haskell-menu-mode-syntax-t
0da0	61 62 6c 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61	able.haskell-menu-mode-abbrev-ta
0dc0	62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 74 20 73 70 65 63 69 61	ble.make-local-variable.t.specia
0de0	6c 2d 6d 6f 64 65 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 20 22 48 61 73 6b 65 6c	l-mode.haskell-menu-mode."Haskel
0e00	6c 20 53 65 73 73 69 6f 6e 20 4d 65 6e 75 22 20 6d 6f 64 65 2d 63 6c 61 73 73 20 70 75 74 20 6b	l.Session.Menu".mode-class.put.k
0e20	65 79 6d 61 70 2d 70 61 72 65 6e 74 20 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 63	eymap-parent.set-keymap-parent.c
0e40	75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 20 63 68 61 72 2d 74 61 62 6c 65 2d 70 61 72 65	urrent-local-map.char-table-pare
0e60	6e 74 20 73 74 61 6e 64 61 72 64 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 65 74 2d 63 68 61	nt.standard-syntax-table.set-cha
0e80	72 2d 74 61 62 6c 65 2d 70 61 72 65 6e 74 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 61 62 62 72	r-table-parent.syntax-table.abbr
0ea0	65 76 2d 74 61 62 6c 65 2d 67 65 74 20 3a 70 61 72 65 6e 74 73 20 61 62 62 72 65 76 2d 74 61 62	ev-table-get.:parents.abbrev-tab
0ec0	6c 65 2d 70 75 74 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 65 74 2d 73 79 6e 74 61 78 2d	le-put.use-local-map.set-syntax-
0ee0	74 61 62 6c 65 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f 6e 20 68 61 73	table.revert-buffer-function.has
0f00	6b 65 6c 6c 2d 6d 65 6e 75 2d 72 65 76 65 72 74 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 72 75	kell-menu-revert-function.nil.ru
0f20	6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 68	n-mode-hooks.haskell-menu-mode-h
0f40	6f 6f 6b 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 62 75 66 66 65 72 2d 72 65	ook.local-abbrev-table.buffer-re
0f60	61 64 2d 6f 6e 6c 79 20 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 5d 20 35 20 28 23 24 20 2e 20	ad-only.truncate-lines].5.(#$...
0f80	32 37 34 36 29 20 6e 69 6c 5d 29 0a 28 73 75 70 70 72 65 73 73 2d 6b 65 79 6d 61 70 20 68 61 73	2746).nil]).(suppress-keymap.has
0fa0	6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 6d 61 70 20 74 29 0a 23 40 35 30 20 46 75 6e 63 74	kell-menu-mode-map.t).#@50.Funct
0fc0	69 6f 6e 20 74 6f 20 72 65 66 72 65 73 68 20 74 68 65 20 64 69 73 70 6c 61 79 2e 0a 0a 28 66 6e	ion.to.refresh.the.display...(fn
0fe0	20 41 52 47 31 20 41 52 47 32 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d	.ARG1.ARG2)..(defalias.'haskell-
1000	6d 65 6e 75 2d 72 65 76 65 72 74 2d 66 75 6e 63 74 69 6f 6e 20 23 5b 35 31 34 20 22 5c 33 30 32	menu-revert-function.#[514."\302
1020	5c 33 30 33 20 69 02 18 09 5c 33 30 34 3d 5c 32 30 34 0e 00 5c 33 30 32 11 5c 33 30 35 20 5c 32	\303.i...\304=\204..\302.\305.\2
1040	31 30 5c 33 30 36 20 5c 32 31 30 65 62 5c 32 31 30 01 53 79 5c 32 31 30 5c 32 31 31 75 29 5c 32	10\306.\210eb\210.Sy\210\211u)\2
1060	30 37 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 62 75 66 66 65 72 2d 75 6e 64	07".[buffer-read-only.buffer-und
1080	6f 2d 6c 69 73 74 20 6e 69 6c 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 20 74 20	o-list.nil.line-number-at-pos.t.
10a0	65 72 61 73 65 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 69 6e 73 65 72 74	erase-buffer.haskell-menu-insert
10c0	2d 6d 65 6e 75 5d 20 37 20 28 23 24 20 2e 20 34 30 32 37 29 5d 29 0a 23 40 35 37 20 49 6e 73 65	-menu].7.(#$...4027)]).#@57.Inse
10e0	72 74 20 74 68 65 20 48 61 73 6b 65 6c 6c 20 73 65 73 73 69 6f 6e 73 20 6d 65 6e 75 20 74 6f 20	rt.the.Haskell.sessions.menu.to.
1100	74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	the.current.buffer...(defalias.'
1120	68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 69 6e 73 65 72 74 2d 6d 65 6e 75 20 23 5b 30 20 22 08 5c	haskell-menu-insert-menu.#[0.".\
1140	32 30 34 07 00 5c 33 30 31 63 5c 32 30 37 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33	204..\301c\207\302\303\304\305\3
1160	30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c 32 35 37 07 5c 33 31 32 5c 33 31 33 08 5c 22 5c 22	06\307\310\311\257.\312\313.\"\"
1180	5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 73 20 22 4e 6f 20 48 61 73 6b	\207".[haskell-sessions."No.Hask
11a0	65 6c 6c 20 73 65 73 73 69 6f 6e 73 2e 22 20 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 74 61 62 75	ell.sessions.".haskell-menu-tabu
11c0	6c 61 74 65 20 22 4e 61 6d 65 22 20 22 50 49 44 22 20 22 54 69 6d 65 22 20 22 52 53 53 22 20 22	late."Name"."PID"."Time"."RSS"."
11e0	43 61 62 61 6c 20 64 69 72 65 63 74 6f 72 79 22 20 22 57 6f 72 6b 69 6e 67 20 64 69 72 65 63 74	Cabal.directory"."Working.direct
1200	6f 72 79 22 20 22 43 6f 6d 6d 61 6e 64 22 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30	ory"."Command".mapcar.#[257."\30
1220	30 5c 33 30 31 02 21 21 5c 32 31 31 5c 32 30 33 6e 00 5c 33 30 32 01 21 5c 33 30 33 5c 33 30 34	0\301.!!\211\203n.\302.!\303\304
1240	04 21 5c 33 30 35 5c 33 30 36 23 5c 33 30 37 03 21 5c 32 30 33 1f 00 5c 33 31 30 02 21 5c 32 30	.!\305\306#\307.!\203..\310.!\20
1260	32 20 00 5c 33 31 31 5c 33 30 37 04 21 5c 32 30 33 3e 00 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c	2..\311\307.!\203>.\312\313\314\
1280	33 31 35 5c 33 31 36 5c 33 31 37 06 08 21 5c 22 41 41 40 5c 33 32 30 5c 32 31 31 5c 32 31 31 5c	315\316\317..!\"AA@\320\211\211\
12a0	32 31 31 5c 32 31 31 26 06 5c 22 5c 32 30 32 3f 00 5c 33 31 31 5c 33 30 37 05 21 5c 32 30 33 56	211\211&.\"\202?.\311\307.!\203V
12c0	00 5c 33 31 30 5c 33 31 35 5c 33 32 31 5c 33 31 37 06 07 21 5c 22 41 5c 33 32 32 5c 32 34 35 21	.\310\315\321\317..!\"A\322\245!
12e0	5c 33 32 33 50 5c 32 30 32 57 00 5c 33 31 31 5c 33 32 34 06 07 21 5c 33 32 35 06 08 21 5c 33 32	\323P\202W.\311\324..!\325..!\32
1300	36 5c 33 32 37 5c 33 33 30 06 5c 6e 21 5c 33 33 31 23 5c 32 35 37 07 5c 32 36 32 01 5c 32 30 32	6\327\330.\n!\331#\257.\262.\202
1320	5c 32 30 32 00 5c 33 30 33 5c 33 30 34 03 21 5c 33 30 35 5c 33 30 36 23 5c 33 33 32 5c 32 31 31	\202.\303\304.!\305\306#\332\211
1340	5c 32 31 31 5c 33 32 34 06 06 21 5c 33 32 35 06 07 21 5c 32 35 37 06 5c 32 30 37 22 20 5b 68 61	\211\324..!\325..!\257.\207".[ha
1360	73 6b 65 6c 6c 2d 70 72 6f 63 65 73 73 2d 70 72 6f 63 65 73 73 20 68 61 73 6b 65 6c 6c 2d 73 65	skell-process-process.haskell-se
1380	73 73 69 6f 6e 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 2d 69 64 20 70 72 6f 70 65 72 74	ssion-process.process-id.propert
13a0	69 7a 65 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 66 61 63 65 20 62 75	ize.haskell-session-name.face.bu
13c0	66 66 65 72 2d 6d 65 6e 75 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 2d 6c 69 76 65 2d 70 20	ffer-menu-buffer.process-live-p.
13e0	6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 22 2d 22 20 66 6f 72 6d 61 74 2d 74 69 6d 65	number-to-string."-".format-time
1400	2d 73 74 72 69 6e 67 20 22 25 48 3a 25 4d 3a 25 53 22 20 65 6e 63 6f 64 65 2d 74 69 6d 65 20 61	-string."%H:%M:%S".encode-time.a
1420	73 73 6f 63 20 65 74 69 6d 65 20 70 72 6f 63 65 73 73 2d 61 74 74 72 69 62 75 74 65 73 20 30 20	ssoc.etime.process-attributes.0.
1440	72 73 73 20 31 30 32 34 20 22 4d 42 22 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 61	rss.1024."MB".haskell-session-ca
1460	62 61 6c 2d 64 69 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 2d 63 75 72 72 65 6e 74 2d	bal-dir.haskell-session-current-
1480	64 69 72 20 6d 61 70 63 6f 6e 63 61 74 20 69 64 65 6e 74 69 74 79 20 70 72 6f 63 65 73 73 2d 63	dir.mapconcat.identity.process-c
14a0	6f 6d 6d 61 6e 64 20 22 20 22 20 22 e2 80 94 22 5d 20 31 34 20 22 5c 6e 5c 6e 28 66 6e 20 53 45	ommand."."."..."].14."\n\n(fn.SE
14c0	53 53 49 4f 4e 29 22 5d 5d 20 38 20 28 23 24 20 2e 20 34 33 31 36 29 5d 29 0a 23 40 38 38 20 50	SSION)"]].8.(#$...4316)]).#@88.P
14e0	72 69 6e 74 73 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 20 61 73 20 61 20 66 6f 72 6d 61	rints.a.list.of.lists.as.a.forma
1500	74 74 65 64 20 74 61 62 6c 65 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72	tted.table.to.the.current.buffer
1520	2e 0a 0a 28 66 6e 20 48 45 41 44 49 4e 47 53 20 52 4f 57 53 29 1f 0a 28 64 65 66 61 6c 69 61 73	...(fn.HEADINGS.ROWS)..(defalias
1540	20 27 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 74 61 62 75 6c 61 74 65 20 23 5b 35 31 34 20 22 01	.'haskell-menu-tabulate.#[514.".
1560	47 5c 33 30 31 01 5c 33 30 32 5c 22 02 5c 32 31 31 5c 32 30 33 45 00 5c 32 31 31 40 5c 33 30 33	G\301.\302\".\211\203E.\211@\303
1580	04 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 35 00 5c 32 31 31 5c 32 31 31 06 07 38 01 06 06 38	.\302\211.W\2035.\211\211..8...8
15a0	47 54 5d 01 06 0b 38 47 54 5d 04 42 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54 5c 32 36 32 01 5c	GT]...8GT].B\262.\210\211T\262.\
15c0	32 30 32 10 00 5c 32 36 36 02 5c 33 30 34 01 21 5c 32 36 32 01 5c 32 36 32 03 01 41 5c 32 36 36	202..\266.\304.!\262.\262..A\266
15e0	5c 32 30 32 5c 32 30 32 07 00 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 23 02	\202\202..\210\305\306\307\310#.
1600	5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 6f 00 5c 32 31 31 03 5c 33 31 31 5c 33 31 32 5c 33 31	\302\211.W\203o.\211.\311\312\31
1620	33 04 06 09 38 21 5c 33 31 34 51 03 06 0b 38 5c 22 50 5c 32 36 32 04 5c 32 31 30 5c 32 31 31 54	3...8!\314Q...8\"P\262.\210\211T
1640	5c 32 36 32 01 5c 32 30 32 4d 00 5c 32 36 36 02 10 02 5c 32 31 31 5c 32 30 35 5c 32 34 37 00 5c	\262.\202M.\266...\211\205\247.\
1660	32 31 31 40 03 5c 33 30 32 5c 32 31 31 02 57 5c 32 30 33 5c 32 33 33 00 5c 32 31 31 5c 33 31 31	211@.\302\211.W\203\233.\211\311
1680	5c 33 31 32 5c 33 31 33 03 06 09 38 21 5c 33 31 34 51 02 06 06 38 5c 22 63 5c 32 36 36 02 5c 32	\312\313...8!\314Q...8\"c\266.\2
16a0	31 31 54 5c 32 36 32 01 5c 32 30 32 7b 00 5c 32 36 36 02 5c 33 31 35 63 5c 32 31 30 01 41 5c 32	11T\262.\202{.\266.\315c\210.A\2
16c0	36 36 5c 32 30 32 5c 32 30 32 73 00 5c 32 36 32 01 5c 32 30 37 22 20 5b 68 65 61 64 65 72 2d 6c	66\202\202s.\262.\207".[header-l
16e0	69 6e 65 2d 66 6f 72 6d 61 74 20 6d 61 6b 65 2d 6c 69 73 74 20 30 20 6e 69 6c 20 72 65 76 65 72	ine-format.make-list.0.nil.rever
1700	73 65 20 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 64 69 73 70 6c 61 79 20 28 73 70 61 63 65	se.propertize.".".display.(space
1720	20 3a 61 6c 69 67 6e 2d 74 6f 20 30 29 20 66 6f 72 6d 61 74 20 22 25 2d 22 20 6e 75 6d 62 65 72	.:align-to.0).format."%-".number
1740	2d 74 6f 2d 73 74 72 69 6e 67 20 22 73 22 20 22 5c 6e 22 5d 20 31 34 20 28 23 24 20 2e 20 35 33	-to-string."s"."\n"].14.(#$...53
1760	34 33 29 5d 29 0a 23 40 31 37 20 48 61 6e 64 6c 65 20 52 45 54 20 6b 65 79 2e 1f 0a 28 64 65 66	43)]).#@17.Handle.RET.key...(def
1780	61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75 2d 6d 6f 64 65 2d 72 65 74 20 23 5b 30	alias.'haskell-menu-mode-ret.#[0
17a0	20 22 5c 32 31 32 5c 33 30 31 20 62 5c 32 31 30 5c 33 30 32 60 5c 33 30 33 5c 33 30 34 21 5c 32	."\212\301.b\210\302`\303\304!\2
17c0	31 30 5c 33 30 35 75 5c 32 31 30 60 5c 22 29 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 5c	10\305u\210`\")\306\307\310\311\
17e0	33 31 32 5c 33 31 33 06 06 21 5c 33 31 34 5c 22 5c 33 31 35 5c 33 31 36 25 08 5c 22 40 5c 33 31	312\313..!\314\"\315\316%.\"@\31
1800	37 5c 33 32 30 02 21 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f 6e 73 20	7\320.!!\207".[haskell-sessions.
1820	6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 62 75 66 66 65 72 2d 73	line-beginning-position.buffer-s
1840	75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 73 65 61 72 63 68 2d 66 6f	ubstring-no-properties.search-fo
1860	72 77 61 72 64 20 22 20 22 20 2d 31 20 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 6d 61	rward.".".-1.cl-remove-if-not.ma
1880	6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 31 01 21 5c 33 30 30 5c 32 33 30	ke-byte-code.257."\301.!\300\230
18a0	5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 68 61 73 6b 65 6c 6c 2d 73 65	\207".vconcat.vector.[haskell-se
18c0	73 73 69 6f 6e 2d 6e 61 6d 65 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 53 45 53 53 49 4f 4e 29 22	ssion-name].3."\n\n(fn.SESSION)"
18e0	20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 68 61 73 6b 65 6c 6c 2d 73 65 73 73 69 6f	.switch-to-buffer.haskell-sessio
1900	6e 2d 69 6e 74 65 72 61 63 74 69 76 65 2d 62 75 66 66 65 72 5d 20 38 20 28 23 24 20 2e 20 35 39	n-interactive-buffer].8.(#$...59
1920	39 35 29 20 6e 69 6c 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 68 61 73 6b 65 6c 6c 2d 6d 65 6e 75	95).nil]).(provide.'haskell-menu
1940	29 0a	).