blob: b546e6341b935b59dd6e61108625d1ac35a61f07 (plain)

ofs	hex dump	ascii
0000	0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 6d 6c 73 75 70 70 6f 72 74 29 29 0a 0a 28 64	.(provide.(quote.mlsupport))..(d
0020	65 66 6d 61 63 72 6f 20 6d 6c 2d 64 65 66 75 6e 20 28 26 72 65 73 74 20 64 65 66 73 29 20 28 62	efmacro.ml-defun.(&rest.defs).(b
0040	79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 64 65 66 73 20 6d 6c 2d 64 65 66 75 6e	yte-code."...DD.".[defs.ml-defun
0060	2d 31 20 71 75 6f 74 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 64 65 66 75 6e 2d 31	-1.quote].3))..(defun.ml-defun-1
0080	20 28 61 72 67 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 16 00 08 40 40 c1 08 40 41 42	.(args).(byte-code.".....@@..@AB
00a0	4d 88 08 41 89 10 88 82 00 00 87 22 20 5b 61 72 67 73 20 6d 6f 63 6b 6c 69 73 70 5d 20 34 29 29	M..A.......".[args.mocklisp].4))
00c0	0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 63 6c 61 72 65 2d 62 75 66 66 65 72 2d 73 70 65 63 69	..(defmacro.declare-buffer-speci
00e0	66 69 63 20 28 26 72 65 73 74 20 76 61 72 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4	fic.(&rest.vars).(byte-code."...
0100	09 5c 22 42 87 22 20 5b 76 61 72 20 76 61 72 73 20 70 72 6f 67 6e 20 6d 61 70 63 61 72 20 28 6c	.\"B.".[var.vars.progn.mapcar.(l
0120	61 6d 62 64 61 20 28 76 61 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20	ambda.(var).(byte-code."...DD.".
0140	5b 76 61 72 20 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20	[var.make-variable-buffer-local.
0160	71 75 6f 74 65 5d 20 33 29 29 5d 20 34 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 65 74 71 2d	quote].3))].4))..(defmacro.setq-
0180	64 65 66 61 75 6c 74 20 28 76 61 72 20 76 61 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3	default.(var.val).(byte-code."..
01a0	08 44 09 45 87 22 20 5b 76 61 72 20 76 61 6c 20 73 65 74 2d 64 65 66 61 75 6c 74 20 71 75 6f 74	.D.E.".[var.val.set-default.quot
01c0	65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 73 65 74 2d 64 65 66 61 75 6c 74 20 28 76	e].3))..(defun.ml-set-default.(v
01e0	61 72 6e 61 6d 65 20 76 61 6c 75 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 21 09 5c	arname.value).(byte-code."...!.\
0200	22 87 22 20 5b 76 61 72 6e 61 6d 65 20 76 61 6c 75 65 20 73 65 74 2d 64 65 66 61 75 6c 74 20 69	".".[varname.value.set-default.i
0220	6e 74 65 72 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 3e 3e 20 28 76 61 6c 20 63 6f 75 6e 74	ntern].4))..(defun.>>.(val.count
0240	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5b 5c 22 87 22 20 5b 76 61 6c 20 63 6f 75 6e	).(byte-code."...[\".".[val.coun
0260	74 20 6c 73 68 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6e 6f 76 61 6c 75 65 20 6e 69 6c 20 28	t.lsh].3))..(defun.novalue.nil.(
0280	62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e	byte-code."..".[nil].1))..(defun
02a0	20 6d 6c 2d 6e 6f 74 20 28 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 83 0a 00	.ml-not.(arg).(byte-code."..!...
02c0	c2 82 0b 00 c3 87 22 20 5b 61 72 67 20 7a 65 72 6f 70 20 31 20 30 5d 20 32 29 29 0a 0a 28 64 65	......".[arg.zerop.1.0].2))..(de
02e0	66 75 6e 20 70 72 6f 76 69 64 65 2d 70 72 65 66 69 78 2d 61 72 67 20 28 61 72 67 20 66 6f 72 6d	fun.provide-prefix-arg.(arg.form
0300	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 40 09 5c 22 87 22 20 5b 66 6f 72 6d 20 61 72 67	).(byte-code."..@.\".".[form.arg
0320	20 66 75 6e 63 61 6c 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 6b 65 79	.funcall].3))..(defun.define-key
0340	6d 61 70 20 28 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 c2 20 4d 87 22 20	map.(name).(byte-code."..!..M.".
0360	5b 6e 61 6d 65 20 69 6e 74 65 72 6e 20 6d 61 6b 65 2d 6b 65 79 6d 61 70 5d 20 34 29 29 0a 0a 28	[name.intern.make-keymap].4))..(
0380	64 65 66 75 6e 20 6d 6c 2d 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 28 6e 61 6d 65 29 20 28 62	defun.ml-use-local-map.(name).(b
03a0	79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 c3 50 21 21 87 22 20 5b 6e 61 6d 65 20 75 73 65 2d 6c 6f	yte-code."....P!!.".[name.use-lo
03c0	63 61 6c 2d 6d 61 70 20 69 6e 74 65 72 6e 20 22 2d 6d 61 70 22 5d 20 34 29 29 0a 0a 28 64 65 66	cal-map.intern."-map"].4))..(def
03e0	75 6e 20 6d 6c 2d 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 61 70 20 28 6e 61 6d 65 29 20 28 62 79 74	un.ml-use-global-map.(name).(byt
0400	65 2d 63 6f 64 65 20 22 c1 c2 08 c3 50 21 21 87 22 20 5b 6e 61 6d 65 20 75 73 65 2d 67 6c 6f 62	e-code."....P!!.".[name.use-glob
0420	61 6c 2d 6d 61 70 20 69 6e 74 65 72 6e 20 22 2d 6d 61 70 22 5d 20 34 29 29 0a 0a 28 64 65 66 75	al-map.intern."-map"].4))..(defu
0440	6e 20 6c 6f 63 61 6c 2d 62 69 6e 64 2d 74 6f 2d 6b 65 79 20 28 6e 61 6d 65 20 6b 65 79 29 20 28	n.local-bind-to-key.(name.key).(
0460	62 79 74 65 2d 63 6f 64 65 20 22 c3 20 86 09 00 c4 c5 20 21 88 c6 c3 20 c7 08 21 83 2b 00 08 c8	byte-code."........!......!.+...
0480	59 83 25 00 c9 09 21 c9 08 c8 5a 21 50 82 28 00 c9 08 21 82 2c 00 08 ca 0a 21 23 87 22 20 5b 6b	Y.%...!...Z!P.(...!.,....!#.".[k
04a0	65 79 20 6d 65 74 61 2d 70 72 65 66 69 78 2d 63 68 61 72 20 6e 61 6d 65 20 63 75 72 72 65 6e 74	ey.meta-prefix-char.name.current
04c0	2d 6c 6f 63 61 6c 2d 6d 61 70 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 6b 65 2d 6b 65	-local-map.use-local-map.make-ke
04e0	79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 74 65 67 65 72 70 20 31 32 38 20 63 68 61	ymap.define-key.integerp.128.cha
0500	72 2d 74 6f 2d 73 74 72 69 6e 67 20 69 6e 74 65 72 6e 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e	r-to-string.intern].13))..(defun
0520	20 62 69 6e 64 2d 74 6f 2d 6b 65 79 20 28 6e 61 6d 65 20 6b 65 79 29 20 28 62 79 74 65 2d 63 6f	.bind-to-key.(name.key).(byte-co
0540	64 65 20 22 c3 08 c4 09 21 83 0e 00 c5 09 21 82 0f 00 09 c6 0a 21 23 87 22 20 5b 67 6c 6f 62 61	de."....!.....!......!#.".[globa
0560	6c 2d 6d 61 70 20 6b 65 79 20 6e 61 6d 65 20 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 74 65 67 65	l-map.key.name.define-key.intege
0580	72 70 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 69 6e 74 65 72 6e 5d 20 37 29 29 0a 0a 28	rp.char-to-string.intern].7))..(
05a0	64 65 66 75 6e 20 6d 6c 2d 61 75 74 6f 6c 6f 61 64 20 28 6e 61 6d 65 20 66 69 6c 65 29 20 28 62	defun.ml-autoload.(name.file).(b
05c0	79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 21 09 5c 22 87 22 20 5b 6e 61 6d 65 20 66 69 6c 65 20 61	yte-code."...!.\".".[name.file.a
05e0	75 74 6f 6c 6f 61 64 20 69 6e 74 65 72 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 64	utoload.intern].4))..(defun.ml-d
0600	65 66 69 6e 65 2d 73 74 72 69 6e 67 2d 6d 61 63 72 6f 20 28 6e 61 6d 65 20 64 65 66 6e 29 20 28	efine-string-macro.(name.defn).(
0620	62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 09 4d 87 22 20 5b 6e 61 6d 65 20 64 65 66 6e 20 69 6e	byte-code."..!.M.".[name.defn.in
0640	74 65 72 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 75 73 68 2d 62 61 63 6b 2d 63 68 61 72	tern].3))..(defun.push-back-char
0660	61 63 74 65 72 20 28 63 68 61 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b	acter.(char).(byte-code."....".[
0680	75 6e 72 65 61 64 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 63 68 61 72 5d 20 32 29 29 0a 0a 28	unread-command-char.char].2))..(
06a0	64 65 66 75 6e 20 74 6f 2d 63 6f 6c 20 28 63 6f 6c 75 6d 6e 29 20 28 62 79 74 65 2d 63 6f 64 65	defun.to-col.(column).(byte-code
06c0	20 22 c1 08 c2 5c 22 87 22 20 5b 63 6f 6c 75 6d 6e 20 69 6e 64 65 6e 74 2d 74 6f 20 30 5d 20 33	."...\".".[column.indent-to.0].3
06e0	29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 69 73 2d 62 6f 75 6e 64 20 28 26 72 65 73 74 20 73 79	))..(defmacro.is-bound.(&rest.sy
0700	6d 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 09 5c 22 42 87 22 20 5b 73 79 6d 20 73	ms).(byte-code."....\"B.".[sym.s
0720	79 6d 73 20 61 6e 64 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 20 28 62 79	yms.and.mapcar.(lambda.(sym).(by
0740	74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 73 79 6d 20 62 6f 75 6e 64 70 20 71 75 6f	te-code."...DD.".[sym.boundp.quo
0760	74 65 5d 20 33 29 29 5d 20 34 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 63 6c 61 72 65 2d	te].3))].4))..(defmacro.declare-
0780	67 6c 6f 62 61 6c 20 28 26 72 65 73 74 20 73 79 6d 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	global.(&rest.syms).(byte-code."
07a0	c3 c4 c5 0a 5c 22 42 87 22 20 5b 73 79 6d 20 6e 69 6c 20 73 79 6d 73 20 70 72 6f 67 6e 20 6d 61	....\"B.".[sym.nil.syms.progn.ma
07c0	70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2	pcar.(lambda.(sym).(byte-code.".
07e0	08 c1 45 87 22 20 5b 73 79 6d 20 6e 69 6c 20 64 65 66 76 61 72 5d 20 33 29 29 5d 20 34 29 29 0a	..E.".[sym.nil.defvar].3))].4)).
0800	0a 28 64 65 66 6d 61 63 72 6f 20 65 72 72 6f 72 2d 6f 63 63 75 72 72 65 64 20 28 26 72 65 73 74	.(defmacro.error-occurred.(&rest
0820	20 62 6f 64 79 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c0 c3 c4 09 c5 5c 22 42 c6 46 87 22	.body).(byte-code."......\"B.F."
0840	20 5b 6e 69 6c 20 62 6f 64 79 20 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 70 72 6f 67 6e 20	.[nil.body.condition-case.progn.
0860	61 70 70 65 6e 64 20 28 6e 69 6c 29 20 28 65 72 72 6f 72 20 74 29 5d 20 36 29 29 0a 0a 28 64 65	append.(nil).(error.t)].6))..(de
0880	66 75 6e 20 72 65 74 75 72 6e 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 20 28 76 61 6c 75	fun.return-prefix-argument.(valu
08a0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b 70 72 65 66 69 78 2d 61 72 67	e).(byte-code."....".[prefix-arg
08c0	20 76 61 6c 75 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72	.value].2))..(defun.ml-prefix-ar
08e0	67 75 6d 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 83 09 00 c1 82 1e 00	gument.nil.(byte-code.".?.......
0900	08 3c 83 13 00 08 40 82 1e 00 08 c2 3d 83 1d 00 c3 82 1e 00 08 87 22 20 5b 63 75 72 72 65 6e 74	.<....@.....=.........".[current
0920	2d 70 72 65 66 69 78 2d 61 72 67 20 31 20 2d 20 2d 31 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20	-prefix-arg.1.-.-1].2))..(defun.
0940	6d 6c 2d 70 72 69 6e 74 20 28 76 61 72 6e 61 6d 65 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 20	ml-print.(varname).(interactive.
0960	22 76 50 72 69 6e 74 20 76 61 72 69 61 62 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20	"vPrint.variable:.").(byte-code.
0980	22 c1 88 c2 08 21 83 13 00 c3 c4 c5 08 21 08 4a 23 82 19 00 c3 c6 c5 08 21 5c 22 87 22 20 5b 76	"....!.......!.J#.......!\".".[v
09a0	61 72 6e 61 6d 65 20 6e 69 6c 20 62 6f 75 6e 64 70 20 6d 65 73 73 61 67 65 20 22 25 73 20 3d 3e	arname.nil.boundp.message."%s.=>
09c0	20 25 73 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 25 73 20 68 61 73 20 6e 6f 20 76 61 6c 75	.%s".symbol-name."%s.has.no.valu
09e0	65 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 73 65 74 20 28 73 74 72 20 76 61 6c 29	e"].7))..(defun.ml-set.(str.val)
0a00	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 09 4c 87 22 20 5b 73 74 72 20 76 61 6c 20 69 6e	.(byte-code."..!.L.".[str.val.in
0a20	74 65 72 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6d 65 73 73 61 67 65 20 28 26 72	tern].3))..(defun.ml-message.(&r
0a40	65 73 74 20 61 72 67 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 5c 22 5c 22 87	est.args).(byte-code.".....\"\".
0a60	22 20 5b 61 72 67 73 20 6d 65 73 73 61 67 65 20 22 25 73 22 20 61 70 70 6c 79 20 63 6f 6e 63 61	".[args.message."%s".apply.conca
0a80	74 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 6c 69	t].5))..(defun.kill-to-end-of-li
0aa0	6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 6c 83 0d 00 c3 60 60 54 5c 22 82 1e	ne.nil.(byte-code.".l....``T\"..
0ac0	00 c3 60 c4 c5 c0 c1 23 83 1c 00 60 53 82 1d 00 64 5c 22 21 87 22 20 5b 6e 69 6c 20 74 20 6d 6c	..`....#...`S...d\"!.".[nil.t.ml
0ae0	2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 2d 6c 6f 6f 70 20 6b 69 6c 6c 2d 72 65 67 69 6f	-prefix-argument-loop.kill-regio
0b00	6e 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 31 30 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e	n.search-forward.10].8))..(defun
0b20	20 73 65 74 2d 61 75 74 6f 2d 66 69 6c 6c 2d 68 6f 6f 6b 20 28 61 72 67 29 20 28 62 79 74 65 2d	.set-auto-fill-hook.(arg).(byte-
0b40	63 6f 64 65 20 22 c2 09 21 89 10 87 22 20 5b 61 75 74 6f 2d 66 69 6c 6c 2d 68 6f 6f 6b 20 61 72	code."..!...".[auto-fill-hook.ar
0b60	67 20 69 6e 74 65 72 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 61 75 74 6f 2d 65 78 65 63 75	g.intern].3))..(defun.auto-execu
0b80	74 65 20 28 66 75 6e 63 74 69 6f 6e 20 70 61 74 74 65 72 6e 29 20 28 62 79 74 65 2d 63 6f 64 65	te.(function.pattern).(byte-code
0ba0	20 22 c3 08 c4 48 c5 5c 22 83 0f 00 c6 c7 21 82 10 00 c8 88 c9 08 ca c8 4f cb 51 0a 42 09 42 89	."...H.\".....!.........O.Q.B.B.
0bc0	11 87 22 20 5b 70 61 74 74 65 72 6e 20 61 75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 66 75 6e	..".[pattern.auto-mode-alist.fun
0be0	63 74 69 6f 6e 20 2f 3d 20 30 20 34 32 20 65 72 72 6f 72 20 22 4f 6e 6c 79 20 70 61 74 74 65 72	ction./=.0.42.error."Only.patter
0c00	6e 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 2a 20 73 75 70 70 6f 72 74 65 64 20 69 6e 20	ns.starting.with.*.supported.in.
0c20	61 75 74 6f 2d 65 78 65 63 75 74 65 22 20 6e 69 6c 20 22 5c 5c 2e 22 20 31 20 22 24 22 5d 20 36	auto-execute".nil."\\.".1."$"].6
0c40	29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d	))..(defun.move-to-comment-colum
0c60	6e 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 6a 87 22 20 5b 63 6f 6d 6d 65 6e 74 2d	n.nil.(byte-code.".j.".[comment-
0c80	63 6f 6c 75 6d 6e 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 65 72 61 73 65 2d 72 65 67 69 6f 6e	column].1))..(defun.erase-region
0ca0	20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 22 20 5b 64 65 6c 65 74	.nil.(byte-code.".`..\".".[delet
0cc0	65 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74	e-region.mark].4))..(defun.delet
0ce0	65 2d 72 65 67 69 6f 6e 2d 74 6f 2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79	e-region-to-buffer.(bufname).(by
0d00	74 65 2d 63 6f 64 65 20 22 c1 08 60 c2 20 23 88 c3 60 c2 20 5c 22 87 22 20 5b 62 75 66 6e 61 6d	te-code."..`..#..`..\".".[bufnam
0d20	65 20 63 6f 70 79 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61 72 6b 20 64 65 6c 65 74 65 2d 72 65 67	e.copy-to-buffer.mark.delete-reg
0d40	69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 74 6f 2d	ion].6))..(defun.copy-region-to-
0d60	62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 60	buffer.(bufname).(byte-code."..`
0d80	c2 20 23 87 22 20 5b 62 75 66 6e 61 6d 65 20 63 6f 70 79 2d 74 6f 2d 62 75 66 66 65 72 20 6d 61	..#.".[bufname.copy-to-buffer.ma
0da0	72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 70 70 65 6e 64 2d 72 65 67 69 6f 6e 2d 74 6f	rk].5))..(defun.append-region-to
0dc0	2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08	-buffer.(bufname).(byte-code."..
0de0	60 c2 20 23 87 22 20 5b 62 75 66 6e 61 6d 65 20 61 70 70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72	`..#.".[bufname.append-to-buffer
0e00	20 6d 61 72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 70 65 6e 64 2d 72 65 67 69 6f	.mark].5))..(defun.prepend-regio
0e20	6e 2d 74 6f 2d 62 75 66 66 65 72 20 28 62 75 66 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65	n-to-buffer.(bufname).(byte-code
0e40	20 22 c1 08 60 c2 20 23 87 22 20 5b 62 75 66 6e 61 6d 65 20 70 72 65 70 65 6e 64 2d 74 6f 2d 62	."..`..#.".[bufname.prepend-to-b
0e60	75 66 66 65 72 20 6d 61 72 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 6e	uffer.mark].5))..(defun.delete-n
0e80	65 78 74 2d 63 68 61 72 61 63 74 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1	ext-character.nil.(byte-code."..
0ea0	20 21 87 22 20 5b 64 65 6c 65 74 65 2d 63 68 61 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75	.!.".[delete-char.ml-prefix-argu
0ec0	6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 6e 65 78 74 2d 77 6f	ment].3))..(defun.delete-next-wo
0ee0	72 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 c2 20 21 88 60 5c 22 87 22 20	rd.nil.(byte-code.".`...!.`\".".
0f00	5b 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 6d 6c 2d 70	[delete-region.forward-word.ml-p
0f20	72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65	refix-argument].5))..(defun.dele
0f40	74 65 2d 70 72 65 76 69 6f 75 73 2d 77 6f 72 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20	te-previous-word.nil.(byte-code.
0f60	22 c0 60 c1 c2 20 21 88 60 5c 22 87 22 20 5b 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 62 61 63	".`...!.`\".".[delete-region.bac
0f80	6b 77 61 72 64 2d 77 6f 72 64 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 35	kward-word.ml-prefix-argument].5
0fa0	29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 70 72 65 76 69 6f 75 73 2d 63 68 61 72 61	))..(defun.delete-previous-chara
0fc0	63 74 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 64 65 6c	cter.nil.(byte-code."...!.".[del
0fe0	65 74 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75	ete-backward-char.ml-prefix-argu
1000	6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 63 68 61 72 61 63	ment].3))..(defun.forward-charac
1020	74 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 66 6f 72 77	ter.nil.(byte-code."...!.".[forw
1040	61 72 64 2d 63 68 61 72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29	ard-char.ml-prefix-argument].3))
1060	0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 61 63 74 65 72 20 6e 69 6c 20	..(defun.backward-character.nil.
1080	28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 62 61 63 6b 77 61 72 64 2d 63 68 61	(byte-code."...!.".[backward-cha
10a0	72 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75	r.ml-prefix-argument].3))..(defu
10c0	6e 20 6d 6c 2d 6e 65 77 6c 69 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20	n.ml-newline.nil.(byte-code."...
10e0	21 87 22 20 5b 6e 65 77 6c 69 6e 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d	!.".[newline.ml-prefix-argument]
1100	20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6e 65 78 74 2d 6c 69 6e 65 20 6e 69 6c 20 28 62	.3))..(defun.ml-next-line.nil.(b
1120	79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 6e 65 78 74 2d 6c 69 6e 65 20 6d 6c 2d 70	yte-code."...!.".[next-line.ml-p
1140	72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 70	refix-argument].3))..(defun.ml-p
1160	72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20	revious-line.nil.(byte-code."...
1180	21 87 22 20 5b 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67	!.".[previous-line.ml-prefix-arg
11a0	75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c 65 74 65 2d 74 6f 2d 6b 69 6c	ument].3))..(defun.delete-to-kil
11c0	6c 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87	l-buffer.nil.(byte-code.".`..\".
11e0	22 20 5b 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e	".[kill-region.mark].4))..(defun
1200	20 6e 61 72 72 6f 77 2d 72 65 67 69 6f 6e 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0	.narrow-region.nil.(byte-code.".
1220	60 c1 20 5c 22 87 22 20 5b 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20	`..\".".[narrow-to-region.mark].
1240	34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 69 6e 64 65 6e	4))..(defun.ml-newline-and-inden
1260	74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 18 c2 c3 20 21 88 08 6a 29 87 22 20	t.nil.(byte-code."......!..j).".
1280	5b 63 6f 6c 75 6d 6e 20 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6e 65 77 6c	[column.current-indentation.newl
12a0	69 6e 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 34 29 29 0a 0a 28 64 65	ine.ml-prefix-argument].4))..(de
12c0	66 75 6e 20 6e 65 77 6c 69 6e 65 2d 61 6e 64 2d 62 61 63 6b 75 70 20 6e 69 6c 20 28 62 79 74 65	fun.newline-and-backup.nil.(byte
12e0	2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 6f 70 65 6e 2d 6c 69 6e 65 20 6d 6c 2d 70 72 65 66	-code."...!.".[open-line.ml-pref
1300	69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 71 75 6f 74 65 2d 63	ix-argument].3))..(defun.quote-c
1320	68 61 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 71 75 6f 74	har.nil.(byte-code."...!.".[quot
1340	65 64 2d 69 6e 73 65 72 74 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29	ed-insert.ml-prefix-argument].3)
1360	29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 20	)..(defun.ml-current-column.nil.
1380	28 62 79 74 65 2d 63 6f 64 65 20 22 69 54 87 22 20 5b 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20	(byte-code."iT.".[].1))..(defun.
13a0	6d 6c 2d 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65	ml-current-indent.nil.(byte-code
13c0	20 22 c0 20 54 87 22 20 5b 63 75 72 72 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 5d 20 32 29	."..T.".[current-indentation].2)
13e0	29 0a 0a 28 64 65 66 75 6e 20 72 65 67 69 6f 6e 2d 61 72 6f 75 6e 64 2d 6d 61 74 63 68 20 28 26	)..(defun.region-around-match.(&
1400	6f 70 74 69 6f 6e 61 6c 20 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 21 21 88 c3 08	optional.n).(byte-code."...!!...
1420	21 62 87 22 20 5b 6e 20 73 65 74 2d 6d 61 72 6b 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67	!b.".[n.set-mark.match-beginning
1440	20 6d 61 74 63 68 2d 65 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 67 69 6f 6e 2d 74	.match-end].4))..(defun.region-t
1460	6f 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5e 60 c1	o-string.nil.(byte-code.".`..^`.
1480	20 5d 5c 22 87 22 20 5b 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6d 61 72 6b 5d 20 36	.]\".".[buffer-substring.mark].6
14a0	29 29 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 6e 61 6d	))..(defun.use-abbrev-table.(nam
14c0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 09 c4 50 21 18 c5 08 21 86 10 00 c6 08 c2 5c 22	e).(byte-code."...P!...!......\"
14e0	88 08 4a 29 87 22 20 5b 73 79 6d 62 6f 6c 20 6e 61 6d 65 20 6e 69 6c 20 69 6e 74 65 72 6e 20 22	..J).".[symbol.name.nil.intern."
1500	2d 61 62 62 72 65 76 2d 74 61 62 6c 65 22 20 62 6f 75 6e 64 70 20 64 65 66 69 6e 65 2d 61 62 62	-abbrev-table".boundp.define-abb
1520	72 65 76 2d 74 61 62 6c 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 68 6f	rev-table].5))..(defun.define-ho
1540	6f 6b 65 64 2d 6c 6f 63 61 6c 2d 61 62 62 72 65 76 20 28 6e 61 6d 65 20 65 78 70 20 68 6f 6f 6b	oked-local-abbrev.(name.exp.hook
1560	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 c4 0a 21 23 87 22 20 5b 6e 61 6d 65 20 65 78	).(byte-code.".....!#.".[name.ex
1580	70 20 68 6f 6f 6b 20 64 65 66 69 6e 65 2d 6c 6f 63 61 6c 2d 61 62 62 72 65 76 20 69 6e 74 65 72	p.hook.define-local-abbrev.inter
15a0	6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 68 6f 6f 6b 65 64 2d 67 6c 6f	n].5))..(defun.define-hooked-glo
15c0	62 61 6c 2d 61 62 62 72 65 76 20 28 6e 61 6d 65 20 65 78 70 20 68 6f 6f 6b 29 20 28 62 79 74 65	bal-abbrev.(name.exp.hook).(byte
15e0	2d 63 6f 64 65 20 22 c3 08 09 c4 0a 21 23 87 22 20 5b 6e 61 6d 65 20 65 78 70 20 68 6f 6f 6b 20	-code.".....!#.".[name.exp.hook.
1600	64 65 66 69 6e 65 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 20 69 6e 74 65 72 6e 5d 20 35 29 29	define-global-abbrev.intern].5))
1620	0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 77 6f 72 64 2d 6c 6f 77 65 72 20 6e 69 6c 20 28 62 79	..(defun.case-word-lower.nil.(by
1640	74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 6d 6c 2d 63 61 73 69 66 79 2d 77 6f 72 64 20 64	te-code."..!.".[ml-casify-word.d
1660	6f 77 6e 63 61 73 65 2d 72 65 67 69 6f 6e 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65	owncase-region].2))..(defun.case
1680	2d 77 6f 72 64 2d 75 70 70 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87	-word-upper.nil.(byte-code."..!.
16a0	22 20 5b 6d 6c 2d 63 61 73 69 66 79 2d 77 6f 72 64 20 75 70 63 61 73 65 2d 72 65 67 69 6f 6e 5d	".[ml-casify-word.upcase-region]
16c0	20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 77 6f 72 64 2d 63 61 70 69 74 61 6c 69 7a	.2))..(defun.case-word-capitaliz
16e0	65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 6d 6c 2d 63 61 73 69	e.nil.(byte-code."..!.".[ml-casi
1700	66 79 2d 77 6f 72 64 20 63 61 70 69 74 61 6c 69 7a 65 2d 72 65 67 69 6f 6e 5d 20 32 29 29 0a 0a	fy-word.capitalize-region].2))..
1720	28 64 65 66 75 6e 20 6d 6c 2d 63 61 73 69 66 79 2d 77 6f 72 64 20 28 66 75 6e 29 20 28 62 79 74	(defun.ml-casify-word.(fun).(byt
1740	65 2d 63 6f 64 65 20 22 8a c1 c2 21 88 c3 c4 21 88 c5 08 60 c3 c6 20 21 88 60 23 29 87 22 20 5b	e-code."...!...!...`...!.`#).".[
1760	66 75 6e 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20	fun.forward-char.1.forward-word.
1780	2d 31 20 66 75 6e 63 61 6c 6c 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 38	-1.funcall.ml-prefix-argument].8
17a0	29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 72 65 67 69 6f 6e 2d 6c 6f 77 65 72 20 6e 69 6c	))..(defun.case-region-lower.nil
17c0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 22 20 5b 64 6f 77 6e 63 61 73 65 2d	.(byte-code.".`..\".".[downcase-
17e0	72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 72 65	region.mark].4))..(defun.case-re
1800	67 69 6f 6e 2d 75 70 70 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c	gion-upper.nil.(byte-code.".`..\
1820	22 87 22 20 5b 75 70 63 61 73 65 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64	".".[upcase-region.mark].4))..(d
1840	65 66 75 6e 20 63 61 73 65 2d 72 65 67 69 6f 6e 2d 63 61 70 69 74 61 6c 69 7a 65 20 6e 69 6c 20	efun.case-region-capitalize.nil.
1860	28 62 79 74 65 2d 63 6f 64 65 20 22 c0 60 c1 20 5c 22 87 22 20 5b 63 61 70 69 74 61 6c 69 7a 65	(byte-code.".`..\".".[capitalize
1880	2d 72 65 67 69 6f 6e 20 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20 73 61 76 65 64	-region.mark].4))..(defvar.saved
18a0	2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20	-command-line-args.nil)..(defun.
18c0	61 72 67 63 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 09 00 09 10 c2 89 11 88 09	argc.nil.(byte-code."...........
18e0	47 87 22 20 5b 73 61 76 65 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 63 6f 6d	G.".[saved-command-line-args.com
1900	6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 6e 69 6c 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20	mand-line-args.nil].2))..(defun.
1920	61 72 67 76 20 28 69 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 09 00 09 10 c2 89 11 88 0b	argv.(i).(byte-code."...........
1940	08 38 87 22 20 5b 73 61 76 65 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 63 6f	.8.".[saved-command-line-args.co
1960	6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 20 6e 69 6c 20 69 5d 20 32 29 29 0a 0a 28 64 65 66	mmand-line-args.nil.i].2))..(def
1980	75 6e 20 69 6e 76 69 73 69 62 6c 65 2d 61 72 67 63 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65	un.invisible-argc.nil.(byte-code
19a0	20 22 08 86 05 00 09 47 87 22 20 5b 73 61 76 65 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61	.".....G.".[saved-command-line-a
19c0	72 67 73 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 5d 20 31 29 29 0a 0a 28 64 65 66	rgs.command-line-args].1))..(def
19e0	75 6e 20 69 6e 76 69 73 69 62 6c 65 2d 61 72 67 76 20 28 69 29 20 28 62 79 74 65 2d 63 6f 64 65	un.invisible-argv.(i).(byte-code
1a00	20 22 08 09 86 06 00 0a 38 87 22 20 5b 69 20 73 61 76 65 64 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e	."......8.".[i.saved-command-lin
1a20	65 2d 61 72 67 73 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2d 61 72 67 73 5d 20 32 29 29 0a 0a 28	e-args.command-line-args].2))..(
1a40	64 65 66 75 6e 20 65 78 69 74 2d 65 6d 61 63 73 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76	defun.exit-emacs.nil.(interactiv
1a60	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c0 c1 c2 8f 87 22 20 5b 6e 69 6c 20 28 62 79	e).(byte-code.".......".[nil.(by
1a80	74 65 2d 63 6f 64 65 20 22 c0 20 87 22 20 5b 65 78 69 74 2d 72 65 63 75 72 73 69 76 65 2d 65 64	te-code."...".[exit-recursive-ed
1aa0	69 74 5d 20 32 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 87 22 20	it].2).((error.(byte-code."...".
1ac0	5b 6b 69 6c 6c 2d 65 6d 61 63 73 5d 20 32 29 29 29 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d	[kill-emacs].2)))].3))..(defun.m
1ae0	6c 2d 62 75 66 66 65 72 2d 73 69 7a 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 64 65	l-buffer-size.nil.(byte-code."de
1b00	5a 87 22 20 5b 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 65 76 69 6f 75 73 2d 63 6f 6d 6d	Z.".[].2))..(defun.previous-comm
1b20	61 6e 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 87 22 20 5b 6c 61 73 74 2d 63 6f	and.nil.(byte-code."..".[last-co
1b40	6d 6d 61 6e 64 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d	mmand].1))..(defun.beginning-of-
1b60	77 69 6e 64 6f 77 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 62 87 22 20 5b 77 69	window.nil.(byte-code."..b.".[wi
1b80	6e 64 6f 77 2d 73 74 61 72 74 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 64 2d 6f 66 2d 77	ndow-start].2))..(defun.end-of-w
1ba0	69 6e 64 6f 77 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 62 88 c1 c2 20 c3 5a 21	indow.nil.(byte-code."..b.....Z!
1bc0	87 22 20 5b 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 76 65 72 74 69 63 61 6c 2d 6d 6f 74 69 6f 6e	.".[window-start.vertical-motion
1be0	20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 32 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c	.window-height.2].5))..(defun.ml
1c00	2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63	-search-forward.(string).(byte-c
1c20	6f 64 65 20 22 c2 08 c1 c1 c3 20 24 87 22 20 5b 73 74 72 69 6e 67 20 6e 69 6c 20 73 65 61 72 63	ode."......$.".[string.nil.searc
1c40	68 2d 66 6f 72 77 61 72 64 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 36 29	h-forward.ml-prefix-argument].6)
1c60	29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28	)..(defun.ml-re-search-forward.(
1c80	73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 c1 c1 c3 20 24 87 22 20 5b 73	string).(byte-code."......$.".[s
1ca0	74 72 69 6e 67 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6d 6c 2d 70	tring.nil.re-search-forward.ml-p
1cc0	72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 73	refix-argument].6))..(defun.ml-s
1ce0	65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f	earch-backward.(string).(byte-co
1d00	64 65 20 22 c2 08 c1 c1 c3 20 24 87 22 20 5b 73 74 72 69 6e 67 20 6e 69 6c 20 73 65 61 72 63 68	de."......$.".[string.nil.search
1d20	2d 62 61 63 6b 77 61 72 64 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 36 29	-backward.ml-prefix-argument].6)
1d40	29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20	)..(defun.ml-re-search-backward.
1d60	28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 c1 c1 c3 20 24 87 22 20 5b	(string).(byte-code."......$.".[
1d80	73 74 72 69 6e 67 20 6e 69 6c 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 6d 6c	string.nil.re-search-backward.ml
1da0	2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 75	-prefix-argument].6))..(defvar.u
1dc0	73 65 2d 75 73 65 72 73 2d 73 68 65 6c 6c 20 31 20 22 5c 0a 4d 6f 63 6b 6c 69 73 70 20 63 6f 6d	se-users-shell.1."\.Mocklisp.com
1de0	70 61 74 69 62 69 6c 69 74 79 20 76 61 72 69 61 62 6c 65 3b 20 31 20 6d 65 61 6e 73 20 75 73 65	patibility.variable;.1.means.use
1e00	20 73 68 65 6c 6c 20 66 72 6f 6d 20 53 48 45 4c 4c 20 65 6e 76 20 76 61 72 2e 0a 30 20 6d 65 61	.shell.from.SHELL.env.var..0.mea
1e20	6e 73 20 75 73 65 20 2f 62 69 6e 2f 73 68 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 75 73 65 2d 63	ns.use./bin/sh.")..(defvar.use-c
1e40	73 68 2d 6f 70 74 69 6f 6e 2d 66 20 31 20 22 5c 0a 4d 6f 63 6b 6c 69 73 70 20 63 6f 6d 70 61 74	sh-option-f.1."\.Mocklisp.compat
1e60	69 62 69 6c 69 74 79 20 76 61 72 69 61 62 6c 65 3b 20 31 20 6d 65 61 6e 73 20 70 61 73 73 20 2d	ibility.variable;.1.means.pass.-
1e80	66 20 77 68 65 6e 20 63 61 6c 6c 69 6e 67 20 63 73 68 2e 22 29 0a 0a 28 64 65 66 75 6e 20 66 69	f.when.calling.csh.")..(defun.fi
1ea0	6c 74 65 72 2d 72 65 67 69 6f 6e 20 28 63 6f 6d 6d 61 6e 64 29 20 28 62 79 74 65 2d 63 6f 64 65	lter-region.(command).(byte-code
1ec0	20 22 c8 09 c9 5c 22 83 0b 00 0a 82 0c 00 ca cb cc 08 21 cd 5c 22 1b 18 ce 60 cf 20 08 c4 c4 c5	."...\"...........!.\"...`......
1ee0	0b 85 5c 22 00 0e 06 83 29 00 d0 82 2a 00 d1 d2 0e 07 50 26 08 2a 87 22 20 5b 73 68 65 6c 6c 20	..\"....)...*.....P&.*.".[shell.
1f00	75 73 65 2d 75 73 65 72 73 2d 73 68 65 6c 6c 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20	use-users-shell.shell-file-name.
1f20	63 73 68 20 74 20 6e 69 6c 20 75 73 65 2d 63 73 68 2d 6f 70 74 69 6f 6e 2d 66 20 63 6f 6d 6d 61	csh.t.nil.use-csh-option-f.comma
1f40	6e 64 20 2f 3d 20 30 20 22 2f 62 69 6e 2f 73 68 22 20 65 71 75 61 6c 20 66 69 6c 65 2d 6e 61 6d	nd./=.0."/bin/sh".equal.file-nam
1f60	65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 63 73 68 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73	e-nondirectory."csh".call-proces
1f80	73 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 20 22 2d 63 66 22 20 22 2d 63 22 20 22 65 78 65 63 20 22	s-region.mark."-cf"."-c"."exec."
1fa0	5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 65 63 75 74 65 2d 6d 6f 6e 69 74 6f 72 2d 63	].14))..(defun.execute-monitor-c
1fc0	6f 6d 6d 61 6e 64 20 28 63 6f 6d 6d 61 6e 64 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 09 c9	ommand.(command).(byte-code."...
1fe0	5c 22 83 0b 00 0a 82 0c 00 ca cb cc 08 21 cd 5c 22 1b 18 ce 08 c4 c5 c5 0b 85 1f 00 0e 06 83 26	\"...........!.\"..............&
2000	00 cf 82 27 00 d0 d1 0e 07 50 26 06 2a 87 22 20 5b 73 68 65 6c 6c 20 75 73 65 2d 75 73 65 72 73	...'.....P&.*.".[shell.use-users
2020	2d 73 68 65 6c 6c 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 73 68 20 6e 69 6c 20 74	-shell.shell-file-name.csh.nil.t
2040	20 75 73 65 2d 63 73 68 2d 6f 70 74 69 6f 6e 2d 66 20 63 6f 6d 6d 61 6e 64 20 2f 3d 20 30 20 22	.use-csh-option-f.command./=.0."
2060	2f 62 69 6e 2f 73 68 22 20 65 71 75 61 6c 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65	/bin/sh".equal.file-name-nondire
2080	63 74 6f 72 79 20 22 63 73 68 22 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 2d 63 66 22 20 22	ctory."csh".call-process."-cf"."
20a0	2d 63 22 20 22 65 78 65 63 20 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 73 79	-c"."exec."].11))..(defun.use-sy
20c0	6e 74 61 78 2d 74 61 62 6c 65 20 28 6e 61 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2	ntax-table.(name).(byte-code."..
20e0	08 c3 50 21 4a 21 87 22 20 5b 6e 61 6d 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20	..P!J!.".[name.set-syntax-table.
2100	69 6e 74 65 72 6e 20 22 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 22 5d 20 34 29 29 0a 0a 28 64 65	intern."-syntax-table"].4))..(de
2120	66 75 6e 20 6c 69 6e 65 2d 74 6f 2d 74 6f 70 2d 6f 66 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 28 62	fun.line-to-top-of-window.nil.(b
2140	79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 53 21 87 22 20 5b 72 65 63 65 6e 74 65 72 20 6d 6c 2d 70	yte-code."...S!.".[recenter.ml-p
2160	72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 70	refix-argument].3))..(defun.ml-p
2180	72 65 76 69 6f 75 73 2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 28 62 79	revious-page.(&optional.arg).(by
21a0	74 65 2d 63 6f 64 65 20 22 09 86 06 00 c3 20 18 08 c4 56 85 19 00 c5 c2 21 88 08 53 89 10 88 82	te-code.".........V.....!..S....
21c0	07 00 88 08 c4 57 85 2c 00 c6 c2 21 88 08 54 89 10 88 82 1a 00 29 87 22 20 5b 63 6f 75 6e 74 20	.....W.,...!..T......).".[count.
21e0	61 72 67 20 6e 69 6c 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 20 30 20 73 63 72	arg.nil.ml-prefix-argument.0.scr
2200	6f 6c 6c 2d 64 6f 77 6e 20 73 63 72 6f 6c 6c 2d 75 70 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20	oll-down.scroll-up].6))..(defun.
2220	6d 6c 2d 6e 65 78 74 2d 70 61 67 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20	ml-next-page.nil.(byte-code."...
2240	5b 21 87 22 20 5b 70 72 65 76 69 6f 75 73 2d 70 61 67 65 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72	[!.".[previous-page.ml-prefix-ar
2260	67 75 6d 65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 67 65 2d 6e 65 78 74 2d 77 69	gument].3))..(defun.page-next-wi
2280	6e 64 6f 77 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20	ndow.(&optional.arg).(byte-code.
22a0	22 09 86 06 00 c3 20 18 08 c4 56 85 19 00 c5 c2 21 88 08 53 89 10 88 82 07 00 88 08 c4 57 85 2c	".........V.....!..S.........W.,
22c0	00 c5 c6 21 88 08 54 89 10 88 82 1a 00 29 87 22 20 5b 63 6f 75 6e 74 20 61 72 67 20 6e 69 6c 20	...!..T......).".[count.arg.nil.
22e0	6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 20 30 20 73 63 72 6f 6c 6c 2d 6f 74 68 65	ml-prefix-argument.0.scroll-othe
2300	72 2d 77 69 6e 64 6f 77 20 2d 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6e 65 78 74 2d	r-window.-].6))..(defun.ml-next-
2320	77 69 6e 64 6f 77 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 73	window.nil.(byte-code."...!.".[s
2340	65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6e 65 78 74 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a 28	elect-window.next-window].3))..(
2360	64 65 66 75 6e 20 6d 6c 2d 70 72 65 76 69 6f 75 73 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 28 62 79	defun.ml-previous-window.nil.(by
2380	74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 70	te-code."...!.".[select-window.p
23a0	72 65 76 69 6f 75 73 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 6f	revious-window].3))..(defun.scro
23c0	6c 6c 2d 6f 6e 65 2d 6c 69 6e 65 2d 75 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0	ll-one-line-up.nil.(byte-code.".
23e0	c1 20 21 87 22 20 5b 73 63 72 6f 6c 6c 2d 75 70 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d	..!.".[scroll-up.ml-prefix-argum
2400	65 6e 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 72 6f 6c 6c 2d 6f 6e 65 2d 6c 69 6e 65	ent].3))..(defun.scroll-one-line
2420	2d 64 6f 77 6e 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 73 63	-down.nil.(byte-code."...!.".[sc
2440	72 6f 6c 6c 2d 64 6f 77 6e 20 6d 6c 2d 70 72 65 66 69 78 2d 61 72 67 75 6d 65 6e 74 5d 20 33 29	roll-down.ml-prefix-argument].3)
2460	29 0a 0a 28 64 65 66 75 6e 20 73 70 6c 69 74 2d 63 75 72 72 65 6e 74 2d 77 69 6e 64 6f 77 20 6e	)..(defun.split-current-window.n
2480	69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 73 70 6c 69 74 2d 77 69 6e	il.(byte-code."...!.".[split-win
24a0	64 6f 77 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e	dow.selected-window].3))..(defun
24c0	20 6c 61 73 74 2d 6b 65 79 2d 73 74 72 75 63 6b 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20	.last-key-struck.nil.(byte-code.
24e0	22 08 87 22 20 5b 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 5d 20 31 29 29 0a 0a 28 64	"..".[last-command-char].1))..(d
2500	65 66 75 6e 20 65 78 65 63 75 74 65 2d 6d 6c 69 73 70 2d 6c 69 6e 65 20 28 73 74 72 69 6e 67 29	efun.execute-mlisp-line.(string)
2520	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 21 21 87 22 20 5b 73 74 72 69 6e 67 20 65 76 61	.(byte-code."...!!.".[string.eva
2540	6c 20 72 65 61 64 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 64 6f 74 2d 74 6f 2d	l.read].3))..(defun.move-dot-to-
2560	78 2d 79 20 28 78 20 79 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 20 21 62 88 c4 08 53 21	x-y.(x.y).(byte-code."...!b...S!
2580	88 c5 09 53 21 87 22 20 5b 79 20 78 20 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 65 6c 65 63 74	...S!.".[y.x.window-start.select
25a0	65 64 2d 77 69 6e 64 6f 77 20 76 65 72 74 69 63 61 6c 2d 6d 6f 74 69 6f 6e 20 6d 6f 76 65 2d 74	ed-window.vertical-motion.move-t
25c0	6f 2d 63 6f 6c 75 6d 6e 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 6d 6f 64 69 66 79 2d	o-column].5))..(defun.ml-modify-
25e0	73 79 6e 74 61 78 2d 65 6e 74 72 79 20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65	syntax-entry.(string).(byte-code
2600	20 22 c6 0a 47 0a c7 c8 4f 1b 19 18 0a c7 48 c9 55 83 19 00 0b c7 ca 49 82 1a 00 cb 88 0a c8 48	."..G...O.....H.U......I.......H
2620	cc 55 83 38 00 0a cd 48 ca 55 83 32 00 0b c7 ce 49 82 35 00 cf d0 21 82 39 00 cb 88 0a d1 48 d2	.U.8...H.U.2....I.5...!.9.....H.
2640	55 83 57 00 0a cd 48 ca 55 83 51 00 0b c7 d3 49 82 54 00 cf d0 21 82 58 00 cb 88 08 09 57 85 a5	U.W...H.U.Q....I.T...!.X.....W..
2660	00 d4 0a 08 48 0b 5c 22 88 08 54 89 10 88 08 09 57 85 76 00 0a 08 48 c9 55 83 a0 00 0a 08 53 48	....H.\"..T.....W.v...H.U.....SH
2680	0a 08 54 48 1d 1c 0c 0d 58 85 96 00 d4 0c 0b 5c 22 88 0c 54 89 14 88 82 83 00 88 c8 08 5c 5c 89	..TH....X......\"..T.........\\.
26a0	10 2a 82 a1 00 cb 88 82 59 00 2b 87 22 20 5b 69 20 6c 65 6e 20 73 74 72 69 6e 67 20 64 61 74 61	.*......Y.+.".[i.len.string.data
26c0	73 74 72 69 6e 67 20 63 20 6c 69 6d 20 35 20 30 20 32 20 34 35 20 33 32 20 6e 69 6c 20 31 32 33	string.c.lim.5.0.2.45.32.nil.123
26e0	20 34 20 36 30 20 65 72 72 6f 72 20 22 54 77 6f 2d 63 68 61 72 20 63 6f 6d 6d 65 6e 74 20 64 65	.4.60.error."Two-char.comment.de
2700	6c 69 6d 69 74 65 72 3a 20 75 73 65 20 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79	limiter:.use.modify-syntax-entry
2720	20 64 69 72 65 63 74 6c 79 22 20 33 20 31 32 35 20 36 32 20 6d 6f 64 69 66 79 2d 73 79 6e 74 61	.directly".3.125.62.modify-synta
2740	78 2d 65 6e 74 72 79 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6c 2d 73 75 62 73 74 72 20 28	x-entry].8))..(defun.ml-substr.(
2760	73 74 72 69 6e 67 20 66 72 6f 6d 20 74 6f 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 47 18 0a	string.from.to).(byte-code.".G..
2780	c4 57 83 11 00 0a 08 5c 5c 89 12 82 12 00 c5 88 0b c4 57 83 21 00 0b 08 5c 5c 89 13 82 5c 22 00	.W.....\\.........W.!...\\...\".
27a0	c5 88 09 0a 0a 0b 5c 5c 4f 29 87 22 20 5b 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 20 66 72 6f 6d	......\\O).".[length.string.from
27c0	20 74 6f 20 30 20 6e 69 6c 5d 20 34 29 29 0a	.to.0.nil].4)).