blob: f4a3b68471a9a83ff353cf3e984693075e2ea0c4 (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 23 40 31 39 32 20 53 68 69 66 74	;;;;;;;;;;;;;;;;;;...#@192.Shift
01a0	20 74 68 65 20 6e 65 73 74 65 64 20 6f 66 66 2d 73 69 64 65 2d 72 75 6c 65 20 62 6c 6f 63 6b 20	.the.nested.off-side-rule.block.
01c0	61 64 6a 61 63 65 6e 74 20 74 6f 20 70 6f 69 6e 74 20 62 79 20 43 4f 4c 53 20 63 6f 6c 75 6d 6e	adjacent.to.point.by.COLS.column
01e0	73 20 74 6f 20 74 68 65 20 72 69 67 68 74 2e 0a 0a 49 6e 20 54 72 61 6e 73 69 65 6e 74 20 4d 61	s.to.the.right...In.Transient.Ma
0200	72 6b 20 6d 6f 64 65 2c 20 69 66 20 74 68 65 20 6d 61 72 6b 20 69 73 20 61 63 74 69 76 65 2c 20	rk.mode,.if.the.mark.is.active,.
0220	6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 0a 6f 66 20 74 68 65 20 72	operate.on.the.contents.of.the.r
0240	65 67 69 6f 6e 20 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 43 4f 4c 53 29 1f 0a 28 64 65 66 61	egion.instead...(fn.COLS)..(defa
0260	6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 20 23 5b 32 35 37 20	lias.'haskell-move-nested.#[257.
0280	22 5c 32 31 32 08 5c 32 30 33 17 00 09 5c 32 30 33 17 00 5c 33 30 33 5c 33 30 34 20 5c 33 30 35	"\212.\203...\203..\303\304.\305
02a0	20 03 23 5c 32 31 30 5c 33 30 36 5c 32 31 31 12 5c 32 30 32 26 00 5c 33 30 37 20 5c 32 31 31 5c	..#\210\306\211.\202&.\307.\211\
02c0	32 30 35 24 00 5c 33 30 33 01 40 02 41 04 23 5c 32 36 32 01 29 5c 32 30 37 22 20 5b 74 72 61 6e	205$.\303.@.A.#\262.)\207".[tran
02e0	73 69 65 6e 74 2d 6d 61 72 6b 2d 6d 6f 64 65 20 6d 61 72 6b 2d 61 63 74 69 76 65 20 64 65 61 63	sient-mark-mode.mark-active.deac
0300	74 69 76 61 74 65 2d 6d 61 72 6b 20 69 6e 64 65 6e 74 2d 72 69 67 69 64 6c 79 20 72 65 67 69 6f	tivate-mark.indent-rigidly.regio
0320	6e 2d 62 65 67 69 6e 6e 69 6e 67 20 72 65 67 69 6f 6e 2d 65 6e 64 20 6e 69 6c 20 68 61 73 6b 65	n-beginning.region-end.nil.haske
0340	6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 72 65 67 69 6f 6e 5d 20 36 20 28 23 24 20 2e 20 34	ll-move-nested-region].6.(#$...4
0360	31 31 29 5d 29 0a 23 40 32 35 39 20 49 6e 63 72 65 61 73 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e	11)]).#@259.Increase.indentation
0380	20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 66 66 2d 73 69 64 65 2d 72 75 6c 65 20	.of.the.following.off-side-rule.
03a0	62 6c 6f 63 6b 20 61 64 6a 61 63 65 6e 74 20 74 6f 20 70 6f 69 6e 74 2e 0a 0a 55 73 65 20 61 20	block.adjacent.to.point...Use.a.
03c0	6e 75 6d 65 72 69 63 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 69 6e 64 69 63	numeric.prefix.argument.to.indic
03e0	61 74 65 20 61 6d 6f 75 6e 74 20 6f 66 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 6f 20 61 70 70	ate.amount.of.indentation.to.app
0400	6c 79 2e 0a 0a 49 6e 20 54 72 61 6e 73 69 65 6e 74 20 4d 61 72 6b 20 6d 6f 64 65 2c 20 69 66 20	ly...In.Transient.Mark.mode,.if.
0420	74 68 65 20 6d 61 72 6b 20 69 73 20 61 63 74 69 76 65 2c 20 6f 70 65 72 61 74 65 20 6f 6e 20 74	the.mark.is.active,.operate.on.t
0440	68 65 20 63 6f 6e 74 65 6e 74 73 0a 6f 66 20 74 68 65 20 72 65 67 69 6f 6e 20 69 6e 73 74 65 61	he.contents.of.the.region.instea
0460	64 2e 0a 0a 28 66 6e 20 43 4f 4c 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c	d...(fn.COLS)..(defalias.'haskel
0480	6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 72 69 67 68 74 20 23 5b 32 35 37 20 22 5c 33 30 30 01	l-move-nested-right.#[257."\300.
04a0	21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 5d 20 33 20 28	!\207".[haskell-move-nested].3.(
04c0	23 24 20 2e 20 38 37 36 29 20 22 70 22 5d 29 0a 23 40 32 35 39 20 44 65 63 72 65 61 73 65 20 69	#$...876)."p"]).#@259.Decrease.i
04e0	6e 64 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 66 66 2d	ndentation.of.the.following.off-
0500	73 69 64 65 2d 72 75 6c 65 20 62 6c 6f 63 6b 20 61 64 6a 61 63 65 6e 74 20 74 6f 20 70 6f 69 6e	side-rule.block.adjacent.to.poin
0520	74 2e 0a 0a 55 73 65 20 61 20 6e 75 6d 65 72 69 63 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e	t...Use.a.numeric.prefix.argumen
0540	74 20 74 6f 20 69 6e 64 69 63 61 74 65 20 61 6d 6f 75 6e 74 20 6f 66 20 69 6e 64 65 6e 74 61 74	t.to.indicate.amount.of.indentat
0560	69 6f 6e 20 74 6f 20 61 70 70 6c 79 2e 0a 0a 49 6e 20 54 72 61 6e 73 69 65 6e 74 20 4d 61 72 6b	ion.to.apply...In.Transient.Mark
0580	20 6d 6f 64 65 2c 20 69 66 20 74 68 65 20 6d 61 72 6b 20 69 73 20 61 63 74 69 76 65 2c 20 6f 70	.mode,.if.the.mark.is.active,.op
05a0	65 72 61 74 65 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 0a 6f 66 20 74 68 65 20 72 65 67	erate.on.the.contents.of.the.reg
05c0	69 6f 6e 20 69 6e 73 74 65 61 64 2e 0a 0a 28 66 6e 20 43 4f 4c 53 29 1f 0a 28 64 65 66 61 6c 69	ion.instead...(fn.COLS)..(defali
05e0	61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 6c 65 66 74 20 23 5b 32	as.'haskell-move-nested-left.#[2
0600	35 37 20 22 5c 33 30 30 01 5b 21 5c 32 30 37 22 20 5b 68 61 73 6b 65 6c 6c 2d 6d 6f 76 65 2d 6e	57."\300.[!\207".[haskell-move-n
0620	65 73 74 65 64 5d 20 33 20 28 23 24 20 2e 20 31 32 33 38 29 20 22 70 22 5d 29 0a 23 40 38 35 20	ested].3.(#$...1238)."p"]).#@85.
0640	49 6e 66 65 72 20 72 65 67 69 6f 6e 20 6f 66 66 2d 73 69 64 65 2d 72 75 6c 65 20 62 6c 6f 63 6b	Infer.region.off-side-rule.block
0660	20 61 64 6a 61 63 65 6e 74 20 74 6f 20 70 6f 69 6e 74 2e 0a 55 73 65 64 20 62 79 20 60 68 61 73	.adjacent.to.point..Used.by.`has
0680	6b 65 6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 27 2e 0a 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	kell-move-nested'....(defalias.'
06a0	68 61 73 6b 65 6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 72 65 67 69 6f 6e 20 23 5b 30 20 22	haskell-move-nested-region.#[0."
06c0	5c 32 31 32 69 5c 33 30 30 79 5c 32 31 30 5c 33 30 31 20 5c 33 30 32 20 5c 33 30 33 20 5c 33 30	\212i\300y\210\301.\302.\303.\30
06e0	30 5c 33 30 34 5c 33 30 30 79 5c 32 31 30 5c 33 30 32 20 01 55 5c 32 30 34 3b 00 5c 33 30 31 20	0\304\300y\210\302..U\204;.\301.
0700	06 06 56 5c 32 30 34 2d 00 04 06 06 56 5c 32 30 33 3b 00 5c 33 30 31 20 05 59 5c 32 30 33 3b 00	..V\204-....V\203;.\301..Y\203;.
0720	5c 33 30 32 20 5c 32 36 32 01 5c 33 30 33 20 5c 32 36 32 02 5c 33 30 30 79 5c 32 31 30 5c 32 30	\302.\262.\303.\262.\300y\210\20
0740	32 10 00 03 02 5c 32 30 36 41 00 03 42 5c 32 36 36 5c 32 30 34 5c 32 36 32 01 5c 32 36 32 01 29	2....\206A..B\266\204\262.\262.)
0760	5c 32 30 37 22 20 5b 6e 69 6c 20 68 61 73 6b 65 6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 69	\207".[nil.haskell-move-nested-i
0780	6e 64 65 6e 74 2d 6c 65 76 65 6c 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74	ndent-level.line-beginning-posit
07a0	69 6f 6e 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 30 5d 20 38 20 28 23 24 20 2e	ion.line-end-position.0].8.(#$..
07c0	20 31 36 30 30 29 5d 29 0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6d 6f 76 65	.1600)]).(defalias.'haskell-move
07e0	2d 6e 65 73 74 65 64 2d 69 6e 64 65 6e 74 2d 6c 65 76 65 6c 20 23 5b 30 20 22 5c 33 30 30 5c 33	-nested-indent-level.#[0."\300\3
0800	30 31 5c 33 30 32 20 5c 32 31 32 5c 33 30 32 20 62 5c 32 31 30 5c 33 30 33 5c 33 30 34 5c 33 30	01\302.\212\302.b\210\303\304\30
0820	35 20 5c 33 30 36 5c 33 30 37 24 29 5c 32 30 36 16 00 5c 33 30 32 20 5c 22 47 53 5d 5c 32 30 37	5.\306\307$)\206..\302.\"GS]\207
0840	22 20 5b 30 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74	".[0.buffer-substring-no-propert
0860	69 65 73 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 73 65 61 72	ies.line-beginning-position.sear
0880	63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78 70 20 22 5b 5e 20 5d 22 20 6c 69 6e 65 2d 65 6e	ch-forward-regexp."[^.]".line-en
08a0	64 2d 70 6f 73 69 74 69 6f 6e 20 74 20 31 5d 20 38 5d 29 0a 23 40 33 37 20 4b 69 6c 6c 20 74 68	d-position.t.1].8]).#@37.Kill.th
08c0	65 20 6e 65 73 74 65 64 20 72 65 67 69 6f 6e 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 1f 0a 28 64	e.nested.region.after.point...(d
08e0	65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 6b 69 6c 6c 2d 6e 65 73 74 65 64 20 23 5b 30	efalias.'haskell-kill-nested.#[0
0900	20 22 60 5c 32 31 32 5c 33 30 30 5c 33 30 31 5c 33 30 32 20 5c 33 30 33 5c 33 30 34 24 5c 32 31	."`\212\300\301\302.\303\304$\21
0920	30 5c 33 30 35 5c 33 30 36 5c 33 30 37 20 5c 33 30 33 5c 33 30 34 24 5c 32 31 30 5c 33 31 30 20	0\305\306\307.\303\304$\210\310.
0940	29 5c 33 31 31 02 02 41 5c 22 5c 32 30 37 22 20 5b 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64	)\311..A\"\207".[search-backward
0960	2d 72 65 67 65 78 70 20 22 5e 5b 20 5d 2b 22 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70	-regexp."^[.]+".line-beginning-p
0980	6f 73 69 74 69 6f 6e 20 74 20 31 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78	osition.t.1.search-forward-regex
09a0	70 20 22 5b 5e 20 5d 22 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 68 61 73 6b 65	p."[^.]".line-end-position.haske
09c0	6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 72 65 67 69 6f 6e 20 6b 69 6c 6c 2d 72 65 67 69 6f	ll-move-nested-region.kill-regio
09e0	6e 5d 20 36 20 28 23 24 20 2e 20 32 32 33 33 29 20 6e 69 6c 5d 29 0a 23 40 33 37 20 4b 69 6c 6c	n].6.(#$...2233).nil]).#@37.Kill
0a00	20 74 68 65 20 6e 65 73 74 65 64 20 72 65 67 69 6f 6e 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 1f	.the.nested.region.after.point..
0a20	0a 28 64 65 66 61 6c 69 61 73 20 27 68 61 73 6b 65 6c 6c 2d 64 65 6c 65 74 65 2d 6e 65 73 74 65	.(defalias.'haskell-delete-neste
0a40	64 20 23 5b 30 20 22 60 5c 32 31 32 5c 33 30 30 5c 33 30 31 5c 33 30 32 20 5c 33 30 33 5c 33 30	d.#[0."`\212\300\301\302.\303\30
0a60	34 24 5c 32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 20 5c 33 30 33 5c 33 30 34 24 5c 32 31 30	4$\210\305\306\307.\303\304$\210
0a80	5c 33 31 30 20 29 01 01 41 7c 5c 32 30 37 22 20 5b 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64	\310.)..A|\207".[search-backward
0aa0	2d 72 65 67 65 78 70 20 22 5e 5b 20 5d 2b 22 20 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70	-regexp."^[.]+".line-beginning-p
0ac0	6f 73 69 74 69 6f 6e 20 74 20 31 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 2d 72 65 67 65 78	osition.t.1.search-forward-regex
0ae0	70 20 22 5b 5e 20 5d 22 20 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 20 68 61 73 6b 65	p."[^.]".line-end-position.haske
0b00	6c 6c 2d 6d 6f 76 65 2d 6e 65 73 74 65 64 2d 72 65 67 69 6f 6e 5d 20 36 20 28 23 24 20 2e 20 32	ll-move-nested-region].6.(#$...2
0b20	35 35 36 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 6f 76	556).nil]).(provide.'haskell-mov
0b40	65 2d 6e 65 73 74 65 64 29 0a	e-nested).