blob: 1bbca206bcebb997aa449a38ede49c73fff8fde0 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 61 62 62 72 65 76 2d 6d 6f 64 65 20 28 61 72 67 29 20 22 5c 0a 54 6f 67	.(defun.abbrev-mode.(arg)."\.Tog
0020	67 6c 65 20 61 62 62 72 65 76 20 6d 6f 64 65 2e 0a 57 69 74 68 20 61 72 67 2c 20 74 75 72 6e 20	gle.abbrev.mode..With.arg,.turn.
0040	61 62 62 72 65 76 20 6d 6f 64 65 20 6f 6e 20 69 66 66 20 61 72 67 20 69 73 20 70 6f 73 69 74 69	abbrev.mode.on.iff.arg.is.positi
0060	76 65 2e 0a 49 6e 20 61 62 62 72 65 76 20 6d 6f 64 65 2c 20 69 6e 73 65 72 74 69 6e 67 20 61 6e	ve..In.abbrev.mode,.inserting.an
0080	20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 63 61 75 73 65 73 20 69 74 20 74 6f 20 65 78 70 61 6e	.abbreviation.causes.it.to.expan
00a0	64 0a 61 6e 64 20 62 65 20 72 65 70 6c 61 63 65 64 20 62 79 20 69 74 73 20 65 78 70 61 6e 73 69	d.and.be.replaced.by.its.expansi
00c0	6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64	on.".(interactive."P").(byte-cod
00e0	65 20 22 c2 88 09 3f 83 0c 00 08 3f 82 11 00 c3 09 21 c4 56 89 10 88 c5 c6 20 21 87 22 20 5b 61	e."...?....?.....!.V......!.".[a
0100	62 62 72 65 76 2d 6d 6f 64 65 20 61 72 67 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69	bbrev-mode.arg.nil.prefix-numeri
0120	63 2d 76 61 6c 75 65 20 30 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20	c-value.0.set-buffer-modified-p.
0140	62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20	buffer-modified-p].4))..(defvar.
0160	65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4b 65 79 6d 61 70 20 75	edit-abbrevs-map.nil."\.Keymap.u
0180	73 65 64 20 69 6e 20 65 64 69 74 2d 61 62 62 72 65 76 73 2e 22 29 0a 0a 28 69 66 20 65 64 69 74	sed.in.edit-abbrevs.")..(if.edit
01a0	2d 61 62 62 72 65 76 73 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 65 64 69 74 2d 61 62 62 72	-abbrevs-map.nil.(setq.edit-abbr
01c0	65 76 73 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64	evs-map.(make-sparse-keymap)).(d
01e0	65 66 69 6e 65 2d 6b 65 79 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 22 18 13 22 20	efine-key.edit-abbrevs-map."..".
0200	28 71 75 6f 74 65 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 72 65 64 65 66 69 6e 65 29 29 20 28	(quote.edit-abbrevs-redefine)).(
0220	64 65 66 69 6e 65 2d 6b 65 79 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 22 03 03 22	define-key.edit-abbrevs-map.".."
0240	20 28 71 75 6f 74 65 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 72 65 64 65 66 69 6e 65 29 29 29	.(quote.edit-abbrevs-redefine)))
0260	0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 61 6c 6c 2d 61 62 62 72 65 76 73 20 6e 69 6c 20 22 5c	..(defun.kill-all-abbrevs.nil."\
0280	0a 55 6e 64 65 66 69 6e 65 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 61 62 62 72 65 76 73 2e 22 20	.Undefine.all.defined.abbrevs.".
02a0	28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 09 18 08 85	(interactive).(byte-code."......
02c0	16 00 c3 08 40 4a 21 88 08 41 89 10 88 82 04 00 29 87 22 20 5b 74 61 62 6c 65 73 20 61 62 62 72	....@J!..A......).".[tables.abbr
02e0	65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 2d 6c 69 73 74 20 6e 69 6c 20 63 6c 65 61 72 2d 61 62 62	ev-table-name-list.nil.clear-abb
0300	72 65 76 2d 74 61 62 6c 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 73 65 72 74 2d 61 62	rev-table].4))..(defun.insert-ab
0320	62 72 65 76 73 20 6e 69 6c 20 22 5c 0a 49 6e 73 65 72 74 20 61 66 74 65 72 20 70 6f 69 6e 74 20	brevs.nil."\.Insert.after.point.
0340	61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 61 62 62	a.description.of.all.defined.abb
0360	72 65 76 73 2e 0a 4d 61 72 6b 20 69 73 20 73 65 74 20 61 66 74 65 72 20 74 68 65 20 69 6e 73 65	revs..Mark.is.set.after.the.inse
0380	72 74 65 64 20 74 65 78 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d	rted.text.".(interactive).(byte-
03a0	63 6f 64 65 20 22 c3 88 c4 8a 09 18 08 85 18 00 c5 08 40 c2 5c 22 88 08 41 89 10 88 82 06 00 29	code."............@.\"..A......)
03c0	88 60 29 21 87 22 20 5b 74 61 62 6c 65 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65	.`)!.".[tables.abbrev-table-name
03e0	2d 6c 69 73 74 20 74 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b 20 69 6e 73 65 72 74 2d 61 62 62	-list.t.nil.push-mark.insert-abb
0400	72 65 76 2d 74 61 62 6c 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66	rev-table-description].5))..(def
0420	75 6e 20 6c 69 73 74 2d 61 62 62 72 65 76 73 20 6e 69 6c 20 22 5c 0a 44 69 73 70 6c 61 79 20 61	un.list-abbrevs.nil."\.Display.a
0440	20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 61 62 62 72 65 76 73 2e 22 20 28	.list.of.all.defined.abbrevs.".(
0460	69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 20 21 87	interactive).(byte-code.".....!.
0480	22 20 5b 6e 69 6c 20 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 70 72 65 70 61 72 65 2d 61 62	".[nil.display-buffer.prepare-ab
04a0	62 72 65 76 2d 6c 69 73 74 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 70 72	brev-list-buffer].3))..(defun.pr
04c0	65 70 61 72 65 2d 61 62 62 72 65 76 2d 6c 69 73 74 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 62 79	epare-abbrev-list-buffer.nil.(by
04e0	74 65 2d 63 6f 64 65 20 22 8a c4 c5 21 71 88 c6 20 88 09 18 08 85 1d 00 c7 08 40 c2 5c 22 88 08	te-code."...!q............@.\"..
0500	41 89 10 88 82 0b 00 29 88 65 62 88 c8 c3 21 88 c9 20 29 88 c4 c5 21 87 22 20 5b 74 61 62 6c 65	A......).eb...!...)...!.".[table
0520	73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 2d 6c 69 73 74 20 74 20 6e 69 6c 20 67	s.abbrev-table-name-list.t.nil.g
0540	65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 41 62 62 72 65 76 73 2a 22 20 65 72 61	et-buffer-create."*Abbrevs*".era
0560	73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 64 65	se-buffer.insert-abbrev-table-de
0580	73 63 72 69 70 74 69 6f 6e 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20	scription.set-buffer-modified-p.
05a0	65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 6f 64 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 65	edit-abbrevs-mode].7))..(defun.e
05c0	64 69 74 2d 61 62 62 72 65 76 73 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f	dit-abbrevs-mode.nil."\.Major.mo
05e0	64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 62 62 72 65	de.for.editing.the.list.of.abbre
0600	76 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 5c 5c 7b 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d	v.definitions..\\{edit-abbrevs-m
0620	61 70 7d 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3	ap}".(interactive).(byte-code.".
0640	88 c4 89 10 88 c5 89 11 88 c6 0a 21 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d	...........!.".[major-mode.mode-
0660	6e 61 6d 65 20 65 64 69 74 2d 61 62 62 72 65 76 73 2d 6d 61 70 20 6e 69 6c 20 65 64 69 74 2d 61	name.edit-abbrevs-map.nil.edit-a
0680	62 62 72 65 76 73 2d 6d 6f 64 65 20 22 45 64 69 74 2d 41 62 62 72 65 76 73 22 20 75 73 65 2d 6c	bbrevs-mode."Edit-Abbrevs".use-l
06a0	6f 63 61 6c 2d 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 61 62 62 72 65	ocal-map].2))..(defun.edit-abbre
06c0	76 73 20 6e 69 6c 20 22 5c 0a 41 6c 74 65 72 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f	vs.nil."\.Alter.abbrev.definitio
06e0	6e 73 20 62 79 20 65 64 69 74 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 6d 2e 0a 53 65	ns.by.editing.a.list.of.them..Se
0700	6c 65 63 74 73 20 61 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61 20 6c 69 73 74	lects.a.buffer.containing.a.list
0720	20 6f 66 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 59 6f 75 20 63 61 6e 20	.of.abbrev.definitions..You.can.
0740	65 64 69 74 20 74 68 65 6d 20 61 6e 64 20 74 79 70 65 20 43 2d 63 20 43 2d 63 20 74 6f 20 72 65	edit.them.and.type.C-c.C-c.to.re
0760	64 65 66 69 6e 65 20 61 62 62 72 65 76 73 0a 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 79 6f 75 72	define.abbrevs.according.to.your
0780	20 65 64 69 74 69 6e 67 2e 0a 42 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 61 20 68 65 61 64	.editing..Buffer.contains.a.head
07a0	65 72 20 6c 69 6e 65 20 66 6f 72 20 65 61 63 68 20 61 62 62 72 65 76 20 74 61 62 6c 65 2c 0a 20	er.line.for.each.abbrev.table,..
07c0	77 68 69 63 68 20 69 73 20 74 68 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 20 6e 61 6d 65 20 69	which.is.the.abbrev.table.name.i
07e0	6e 20 70 61 72 65 6e 74 68 65 73 65 73 2e 0a 54 68 69 73 20 69 73 20 66 6f 6c 6c 6f 77 65 64 20	n.parentheses..This.is.followed.
0800	62 79 20 6f 6e 65 20 6c 69 6e 65 20 70 65 72 20 61 62 62 72 65 76 20 69 6e 20 74 68 61 74 20 74	by.one.line.per.abbrev.in.that.t
0820	61 62 6c 65 3a 0a 4e 41 4d 45 20 20 20 55 53 45 43 4f 55 4e 54 20 20 20 45 58 50 41 4e 53 49 4f	able:.NAME...USECOUNT...EXPANSIO
0840	4e 20 20 20 48 4f 4f 4b 0a 77 68 65 72 65 20 4e 41 4d 45 20 61 6e 64 20 45 58 50 41 4e 53 49 4f	N...HOOK.where.NAME.and.EXPANSIO
0860	4e 20 61 72 65 20 73 74 72 69 6e 67 73 20 77 69 74 68 20 71 75 6f 74 65 73 2c 0a 55 53 45 43 4f	N.are.strings.with.quotes,.USECO
0880	55 4e 54 20 69 73 20 61 6e 20 69 6e 74 65 67 65 72 2c 20 61 6e 64 20 48 4f 4f 4b 20 69 73 20 61	UNT.is.an.integer,.and.HOOK.is.a
08a0	6e 79 20 76 61 6c 69 64 20 66 75 6e 63 74 69 6f 6e 0a 6f 72 20 6d 61 79 20 62 65 20 6f 6d 69 74	ny.valid.function.or.may.be.omit
08c0	74 65 64 20 28 69 74 20 69 73 20 75 73 75 61 6c 6c 79 20 6f 6d 69 74 74 65 64 29 2e 22 20 28 69	ted.(it.is.usually.omitted).".(i
08e0	6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 20 21 87 22	nteractive).(byte-code.".....!."
0900	20 5b 6e 69 6c 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 70 72 65 70 61 72 65 2d 61	.[nil.switch-to-buffer.prepare-a
0920	62 62 72 65 76 2d 6c 69 73 74 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 65	bbrev-list-buffer].3))..(defun.e
0940	64 69 74 2d 61 62 62 72 65 76 73 2d 72 65 64 65 66 69 6e 65 20 6e 69 6c 20 22 5c 0a 52 65 64 65	dit-abbrevs-redefine.nil."\.Rede
0960	66 69 6e 65 20 61 62 62 72 65 76 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 63 75 72 72 65 6e	fine.abbrevs.according.to.curren
0980	74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65	t.buffer.contents.".(interactive
09a0	29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c0 21 88 c3 c1 21 87 22 20 5b 74 20 6e 69 6c	).(byte-code."....!...!.".[t.nil
09c0	20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 73 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66	.define-abbrevs.set-buffer-modif
09e0	69 65 64 2d 70 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76	ied-p].3))..(defun.define-abbrev
0a00	73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 61 62 62 72	s.(&optional.arg)."\.Define.abbr
0a20	65 76 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 63 75 72 72 65 6e 74 20 76 69 73 69 62 6c 65	evs.according.to.current.visible
0a40	20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 2e 0a 53 65 65 20 64 6f 63 75 6d 65 6e 74 61 74	.buffer.contents..See.documentat
0a60	69 6f 6e 20 6f 66 20 65 64 69 74 2d 61 62 62 72 65 76 73 20 66 6f 72 20 69 6e 66 6f 20 6f 6e 20	ion.of.edit-abbrevs.for.info.on.
0a80	74 68 65 20 66 6f 72 6d 61 74 20 6f 66 20 74 68 65 0a 74 65 78 74 20 79 6f 75 20 6d 75 73 74 20	the.format.of.the.text.you.must.
0aa0	68 61 76 65 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e	have.in.the.buffer..With.argumen
0ac0	74 2c 20 65 6c 69 6d 69 6e 61 74 65 20 61 6c 6c 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69	t,.eliminate.all.abbrev.definiti
0ae0	6f 6e 73 20 65 78 63 65 70 74 0a 74 68 65 20 6f 6e 65 73 20 64 65 66 69 6e 65 64 20 66 72 6f 6d	ons.except.the.ones.defined.from
0b00	20 74 68 65 20 62 75 66 66 65 72 20 6e 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22	.the.buffer.now.".(interactive."
0b20	50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 85 08 00 ca 20 88 8a 65 62 88 6d 3f 85	P").(byte-code."..........eb.m?.
0b40	17 00 cb cc c1 c2 23 85 6f 00 70 1b cd 0b 21 1c c1 1d ce cf 21 88 ce cf 21 88 6c 3f 85 65 00 cd	......#.o.p...!.....!...!.l?.e..
0b60	0b 21 16 06 cd 0b 21 16 07 cd 0b 21 89 16 08 88 d0 d1 21 88 6c 3f 85 4c 00 cd 0b 21 89 16 09 88	.!....!....!......!.l?.L...!....
0b80	d0 d1 21 88 0e 06 0e 08 0e 09 0e 07 46 0d 42 89 15 88 82 26 00 88 d2 0c 0d 5c 22 2b 88 82 0d 00	..!.........F.B....&.....\"+....
0ba0	29 87 22 20 5b 61 72 67 20 6e 69 6c 20 74 20 62 75 66 20 74 61 62 6c 65 20 61 62 62 72 65 76 73	).".[arg.nil.t.buf.table.abbrevs
0bc0	20 6e 61 6d 65 20 63 6f 75 6e 74 20 65 78 70 20 68 6f 6f 6b 20 6b 69 6c 6c 2d 61 6c 6c 2d 61 62	.name.count.exp.hook.kill-all-ab
0be0	62 72 65 76 73 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 28 22 20 72 65 61	brevs.re-search-forward."^(".rea
0c00	64 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b	d.forward-line.1.skip-chars-back
0c20	77 61 72 64 20 22 20 09 0a 0c 22 20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 5d	ward."....".define-abbrev-table]
0c40	20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 61 64 2d 61 62 62 72 65 76 2d 66 69 6c 65 20 28	.17))..(defun.read-abbrev-file.(
0c60	66 69 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 71 75 69 65 74 6c 79 29 20 22 5c 0a 52 65 61 64 20	file.&optional.quietly)."\.Read.
0c80	61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 72 6f 6d 20 66 69 6c 65 20 77 72 69	abbrev.definitions.from.file.wri
0ca0	74 74 65 6e 20 77 69 74 68 20 77 72 69 74 65 2d 61 62 62 72 65 76 2d 66 69 6c 65 2e 0a 54 61 6b	tten.with.write-abbrev-file..Tak
0cc0	65 73 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 61 72 67 75 6d 65 6e 74 2e 0a 4f 70 74 69 6f 6e	es.file.name.as.argument..Option
0ce0	61 6c 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73	al.second.argument.non-nil.means
0d00	20 64 6f 6e 27 74 20 70 72 69 6e 74 20 61 6e 79 74 68 69 6e 67 2e 22 20 28 69 6e 74 65 72 61 63	.don't.print.anything.".(interac
0d20	74 69 76 65 20 22 66 52 65 61 64 20 61 62 62 72 65 76 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74	tive."fRead.abbrev.file:.").(byt
0d40	65 2d 63 6f 64 65 20 22 c2 88 c7 08 85 0b 00 08 47 c8 56 83 12 00 08 82 13 00 09 c2 0b 23 88 c5	e-code."........G.V..........#..
0d60	14 c2 89 16 06 87 22 20 5b 66 69 6c 65 20 61 62 62 72 65 76 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e	......".[file.abbrev-file-name.n
0d80	69 6c 20 71 75 69 65 74 6c 79 20 73 61 76 65 2d 61 62 62 72 65 76 73 20 74 20 61 62 62 72 65 76	il.quietly.save-abbrevs.t.abbrev
0da0	73 2d 63 68 61 6e 67 65 64 20 6c 6f 61 64 20 30 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 71 75	s-changed.load.0].4))..(defun.qu
0dc0	69 65 74 6c 79 2d 72 65 61 64 2d 61 62 62 72 65 76 2d 66 69 6c 65 20 28 66 69 6c 65 29 20 22 5c	ietly-read-abbrev-file.(file)."\
0de0	0a 52 65 61 64 20 61 62 62 72 65 76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 66 72 6f 6d 20 66 69	.Read.abbrev.definitions.from.fi
0e00	6c 65 20 77 72 69 74 74 65 6e 20 77 69 74 68 20 77 72 69 74 65 2d 61 62 62 72 65 76 2d 66 69 6c	le.written.with.write-abbrev-fil
0e20	65 2e 0a 54 61 6b 65 73 20 66 69 6c 65 20 6e 61 6d 65 20 61 73 20 61 72 67 75 6d 65 6e 74 2e 20	e..Takes.file.name.as.argument..
0e40	20 44 6f 65 73 20 6e 6f 74 20 70 72 69 6e 74 20 61 6e 79 74 68 69 6e 67 2e 22 20 28 62 79 74 65	.Does.not.print.anything.".(byte
0e60	2d 63 6f 64 65 20 22 c2 08 c1 5c 22 87 22 20 5b 66 69 6c 65 20 74 20 72 65 61 64 2d 61 62 62 72	-code."...\".".[file.t.read-abbr
0e80	65 76 2d 66 69 6c 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 77 72 69 74 65 2d 61 62 62 72 65	ev-file].3))..(defun.write-abbre
0ea0	76 2d 66 69 6c 65 20 28 66 69 6c 65 29 20 22 5c 0a 57 72 69 74 65 20 61 6c 6c 20 61 62 62 72 65	v-file.(file)."\.Write.all.abbre
0ec0	76 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 74 6f 20 66 69 6c 65 20 6f 66 20 4c 69 73 70 20 63 6f	v.definitions.to.file.of.Lisp.co
0ee0	64 65 2e 0a 54 68 65 20 66 69 6c 65 20 63 61 6e 20 62 65 20 6c 6f 61 64 65 64 20 74 6f 20 64 65	de..The.file.can.be.loaded.to.de
0f00	66 69 6e 65 20 74 68 65 20 73 61 6d 65 20 61 62 62 72 65 76 73 2e 22 20 28 69 6e 74 65 72 61 63	fine.the.same.abbrevs.".(interac
0f20	74 69 76 65 20 22 46 57 72 69 74 65 20 61 62 62 72 65 76 20 66 69 6c 65 3a 20 22 29 20 28 62 79	tive."FWrite.abbrev.file:.").(by
0f40	74 65 2d 63 6f 64 65 20 22 c4 88 08 85 0a 00 08 47 c5 56 86 10 00 09 89 10 88 8a c6 c7 21 71 88	te-code.".......G.V..........!q.
0f60	c8 20 88 0b 1a 0a 85 2e 00 c9 0a 40 c4 5c 22 88 0a 41 89 12 88 82 1c 00 29 88 ca cb 64 08 23 88	...........@.\"..A......)...d.#.
0f80	c8 20 29 87 22 20 5b 66 69 6c 65 20 61 62 62 72 65 76 2d 66 69 6c 65 2d 6e 61 6d 65 20 74 61 62	..).".[file.abbrev-file-name.tab
0fa0	6c 65 73 20 61 62 62 72 65 76 2d 74 61 62 6c 65 2d 6e 61 6d 65 2d 6c 69 73 74 20 6e 69 6c 20 30	les.abbrev-table-name-list.nil.0
0fc0	20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 77 72 69 74 65 2d 61 62 62 72 65	.get-buffer-create.".write-abbre
0fe0	76 2d 66 69 6c 65 22 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 61 62 62 72	v-file".erase-buffer.insert-abbr
1000	65 76 2d 74 61 62 6c 65 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 77 72 69 74 65 2d 72 65 67 69 6f	ev-table-description.write-regio
1020	6e 20 31 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 6d 6f 64 65 2d 61 62 62 72 65 76	n.1].7))..(defun.add-mode-abbrev
1040	20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6d 6f 64 65 2d 73 70 65 63 69 66 69 63 20 61	.(arg)."\.Define.mode-specific.a
1060	62 62 72 65 76 20 66 6f 72 20 6c 61 73 74 20 77 6f 72 64 28 73 29 20 62 65 66 6f 72 65 20 70 6f	bbrev.for.last.word(s).before.po
1080	69 6e 74 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 68 6f 77 20 6d 61 6e 79 20 77 6f 72 64 73 20	int..Argument.is.how.many.words.
10a0	62 65 66 6f 72 65 20 70 6f 69 6e 74 20 66 6f 72 6d 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 3b	before.point.form.the.expansion;
10c0	0a 6f 72 20 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 65 20 72 65 67 69 6f 6e 20 69 73 20 74 68 65	.or.zero.means.the.region.is.the
10e0	20 65 78 70 61 6e 73 69 6f 6e 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20	.expansion..A.negative.argument.
1100	6d 65 61 6e 73 20 74 6f 20 75 6e 64 65 66 69 6e 65 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20	means.to.undefine.the.specified.
1120	61 62 62 72 65 76 2e 0a 52 65 61 64 73 20 74 68 65 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 69	abbrev..Reads.the.abbreviation.i
1140	6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20	n.the.minibuffer.".(interactive.
1160	22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 08 83 0b 00 09 82 12 00 0a 86 12 00	"p").(byte-code."...............
1180	c6 c7 21 c8 0b 23 87 22 20 5b 6f 6e 6c 79 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 73 20 67 6c	..!..#.".[only-global-abbrevs.gl
11a0	6f 62 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74	obal-abbrev-table.local-abbrev-t
11c0	61 62 6c 65 20 61 72 67 20 6e 69 6c 20 61 64 64 2d 61 62 62 72 65 76 20 65 72 72 6f 72 20 22 4e	able.arg.nil.add-abbrev.error."N
11e0	6f 20 70 65 72 2d 6d 6f 64 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 2e 22 20 22 4d 6f 64 65 22	o.per-mode.abbrev.table."."Mode"
1200	5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 20	].5))..(defun.add-global-abbrev.
1220	28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 67 6c 6f 62 61 6c 20 28 61 6c 6c 20 6d 6f 64 65	(arg)."\.Define.global.(all.mode
1240	73 29 20 61 62 62 72 65 76 20 66 6f 72 20 6c 61 73 74 20 77 6f 72 64 28 73 29 20 62 65 66 6f 72	s).abbrev.for.last.word(s).befor
1260	65 20 70 6f 69 6e 74 2e 0a 41 72 67 75 6d 65 6e 74 20 69 73 20 68 6f 77 20 6d 61 6e 79 20 77 6f	e.point..Argument.is.how.many.wo
1280	72 64 73 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 66 6f 72 6d 20 74 68 65 20 65 78 70 61 6e 73	rds.before.point.form.the.expans
12a0	69 6f 6e 3b 0a 6f 72 20 7a 65 72 6f 20 6d 65 61 6e 73 20 74 68 65 20 72 65 67 69 6f 6e 20 69 73	ion;.or.zero.means.the.region.is
12c0	20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 2e 0a 41 20 6e 65 67 61 74 69 76 65 20 61 72 67 75 6d	.the.expansion..A.negative.argum
12e0	65 6e 74 20 6d 65 61 6e 73 20 74 6f 20 75 6e 64 65 66 69 6e 65 20 74 68 65 20 73 70 65 63 69 66	ent.means.to.undefine.the.specif
1300	69 65 64 20 61 62 62 72 65 76 2e 0a 52 65 61 64 73 20 74 68 65 20 61 62 62 72 65 76 69 61 74 69	ied.abbrev..Reads.the.abbreviati
1320	6f 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74	on.in.the.minibuffer.".(interact
1340	69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 c4 09 23 87 22 20 5b	ive."p").(byte-code."......#.".[
1360	67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 61 72 67 20 6e 69 6c 20 61 64 64 2d	global-abbrev-table.arg.nil.add-
1380	61 62 62 72 65 76 20 22 47 6c 6f 62 61 6c 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64	abbrev."Global"].4))..(defun.add
13a0	2d 61 62 62 72 65 76 20 28 74 61 62 6c 65 20 74 79 70 65 20 61 72 67 29 20 28 62 79 74 65 2d 63	-abbrev.(table.type.arg).(byte-c
13c0	6f 64 65 20 22 09 c5 59 85 1c 00 c6 60 09 c5 55 83 13 00 c7 20 82 1b 00 8a c8 09 5b 21 88 60 29	ode."..Y....`..U...........[!.`)
13e0	5c 22 c9 1a 18 ca cb cc 0b 08 23 21 89 12 88 08 3f 86 40 00 cd 0a 0c 5c 22 3f 86 40 00 ce cb cf	\"........#!....?.@....\"?.@....
1400	0a cd 0a 0c 5c 22 23 21 85 4a 00 d0 0c d1 0a 21 08 23 2a 87 22 20 5b 65 78 70 20 61 72 67 20 6e	....\"#!.J.....!.#*.".[exp.arg.n
1420	61 6d 65 20 74 79 70 65 20 74 61 62 6c 65 20 30 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e	ame.type.table.0.buffer-substrin
1440	67 20 6d 61 72 6b 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 6e 69 6c 20 72 65 61 64 2d 73 74 72	g.mark.forward-word.nil.read-str
1460	69 6e 67 20 66 6f 72 6d 61 74 20 22 25 73 20 61 62 62 72 65 76 20 66 6f 72 20 5c 22 25 73 5c 22	ing.format."%s.abbrev.for.\"%s\"
1480	3a 20 22 20 61 62 62 72 65 76 2d 65 78 70 61 6e 73 69 6f 6e 20 79 2d 6f 72 2d 6e 2d 70 20 22 25	:.".abbrev-expansion.y-or-n-p."%
14a0	73 20 65 78 70 61 6e 64 73 20 74 6f 20 5c 22 25 73 5c 22 3b 20 72 65 64 65 66 69 6e 65 3f 20 22	s.expands.to.\"%s\";.redefine?."
14c0	20 64 65 66 69 6e 65 2d 61 62 62 72 65 76 20 64 6f 77 6e 63 61 73 65 5d 20 31 34 29 29 0a 0a 28	.define-abbrev.downcase].14))..(
14e0	64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 6d 6f 64 65 2d 61 62 62 72 65 76 20 28 61	defun.inverse-add-mode-abbrev.(a
1500	72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6c 61 73 74 20 77 6f 72 64 20 62 65 66 6f 72 65 20 70	rg)."\.Define.last.word.before.p
1520	6f 69 6e 74 20 61 73 20 61 20 6d 6f 64 65 2d 73 70 65 63 69 66 69 63 20 61 62 62 72 65 76 2e 0a	oint.as.a.mode-specific.abbrev..
1540	57 69 74 68 20 61 72 67 75 6d 65 6e 74 20 4e 2c 20 64 65 66 69 6e 65 73 20 74 68 65 20 4e 74 68	With.argument.N,.defines.the.Nth
1560	20 77 6f 72 64 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 52 65 61 64 73 20 74 68 65 20 65 78	.word.before.point..Reads.the.ex
1580	70 61 6e 73 69 6f 6e 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 45 78 70 61 6e	pansion.in.the.minibuffer..Expan
15a0	64 73 20 74 68 65 20 61 62 62 72 65 76 69 61 74 69 6f 6e 20 61 66 74 65 72 20 64 65 66 69 6e 69	ds.the.abbreviation.after.defini
15c0	6e 67 20 69 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d	ng.it.".(interactive."p").(byte-
15e0	63 6f 64 65 20 22 c4 88 c5 08 83 0b 00 09 82 12 00 0a 86 12 00 c6 c7 21 c8 0b 23 87 22 20 5b 6f	code.".................!..#.".[o
1600	6e 6c 79 2d 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 73 20 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76	nly-global-abbrevs.global-abbrev
1620	2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 61 72 67 20 6e 69	-table.local-abbrev-table.arg.ni
1640	6c 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 65 72 72 6f 72 20 22 4e 6f 20 70	l.inverse-add-abbrev.error."No.p
1660	65 72 2d 6d 6f 64 65 20 61 62 62 72 65 76 20 74 61 62 6c 65 2e 22 20 22 4d 6f 64 65 22 5d 20 35	er-mode.abbrev.table."."Mode"].5
1680	29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 67 6c 6f 62 61 6c 2d 61 62	))..(defun.inverse-add-global-ab
16a0	62 72 65 76 20 28 61 72 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 6c 61 73 74 20 77 6f 72 64 20 62	brev.(arg)."\.Define.last.word.b
16c0	65 66 6f 72 65 20 70 6f 69 6e 74 20 61 73 20 61 20 67 6c 6f 62 61 6c 20 28 6d 6f 64 65 2d 69 6e	efore.point.as.a.global.(mode-in
16e0	64 65 70 65 6e 64 65 6e 74 29 20 61 62 62 72 65 76 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74	dependent).abbrev..With.argument
1700	20 4e 2c 20 64 65 66 69 6e 65 73 20 74 68 65 20 4e 74 68 20 77 6f 72 64 20 62 65 66 6f 72 65 20	.N,.defines.the.Nth.word.before.
1720	70 6f 69 6e 74 2e 0a 52 65 61 64 73 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 69 6e 20 74 68	point..Reads.the.expansion.in.th
1740	65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 45 78 70 61 6e 64 73 20 74 68 65 20 61 62 62 72 65 76	e.minibuffer..Expands.the.abbrev
1760	69 61 74 69 6f 6e 20 61 66 74 65 72 20 64 65 66 69 6e 69 6e 67 20 69 74 2e 22 20 28 69 6e 74 65	iation.after.defining.it.".(inte
1780	72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 08 c4 09 23	ractive."p").(byte-code."......#
17a0	87 22 20 5b 67 6c 6f 62 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 61 72 67 20 6e 69 6c 20	.".[global-abbrev-table.arg.nil.
17c0	69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 22 47 6c 6f 62 61 6c 22 5d 20 34 29 29	inverse-add-abbrev."Global"].4))
17e0	0a 0a 28 64 65 66 75 6e 20 69 6e 76 65 72 73 65 2d 61 64 64 2d 61 62 62 72 65 76 20 28 74 61 62	..(defun.inverse-add-abbrev.(tab
1800	6c 65 20 74 79 70 65 20 61 72 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 c6 c6 1a 19 18 8a	le.type.arg).(byte-code.".......
1820	c7 0b 5b 21 88 c8 60 c7 c9 21 88 60 89 11 5c 22 89 10 29 88 ca cb cc 0c 08 23 21 89 12 88 cd 08	..[!..`..!.`..\"..)......#!.....
1840	0d 5c 22 3f 86 36 00 ce cb cf 08 cd 08 0d 5c 22 23 21 85 48 00 d0 0d d1 08 21 0a 23 88 8a 09 62	.\"?.6........\"#!.H.....!.#...b
1860	88 d2 20 29 2b 87 22 20 5b 6e 61 6d 65 20 6e 61 6d 65 6c 6f 63 20 65 78 70 20 61 72 67 20 74 79	...)+.".[name.nameloc.exp.arg.ty
1880	70 65 20 74 61 62 6c 65 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 62 75 66 66 65 72	pe.table.nil.forward-word.buffer
18a0	2d 73 75 62 73 74 72 69 6e 67 20 31 20 72 65 61 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20	-substring.1.read-string.format.
18c0	22 25 73 20 65 78 70 61 6e 73 69 6f 6e 20 66 6f 72 20 5c 22 25 73 5c 22 3a 20 22 20 61 62 62 72	"%s.expansion.for.\"%s\":.".abbr
18e0	65 76 2d 65 78 70 61 6e 73 69 6f 6e 20 79 2d 6f 72 2d 6e 2d 70 20 22 25 73 20 65 78 70 61 6e 64	ev-expansion.y-or-n-p."%s.expand
1900	73 20 74 6f 20 5c 22 25 73 5c 22 3b 20 72 65 64 65 66 69 6e 65 3f 20 22 20 64 65 66 69 6e 65 2d	s.to.\"%s\";.redefine?.".define-
1920	61 62 62 72 65 76 20 64 6f 77 6e 63 61 73 65 20 65 78 70 61 6e 64 2d 61 62 62 72 65 76 5d 20 31	abbrev.downcase.expand-abbrev].1
1940	34 29 29 0a 0a 28 64 65 66 75 6e 20 61 62 62 72 65 76 2d 70 72 65 66 69 78 2d 6d 61 72 6b 20 28	4))..(defun.abbrev-prefix-mark.(
1960	26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 61 72 6b 20 63 75 72 72 65 6e 74 20 70	&optional.arg)."\.Mark.current.p
1980	6f 69 6e 74 20 61 73 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 6e 20 61 62 62 72	oint.as.the.beginning.of.an.abbr
19a0	65 76 2e 0a 41 62 62 72 65 76 20 74 6f 20 62 65 20 65 78 70 61 6e 64 65 64 20 73 74 61 72 74 73	ev..Abbrev.to.be.expanded.starts
19c0	20 68 65 72 65 20 72 61 74 68 65 72 20 74 68 61 6e 20 61 74 0a 62 65 67 69 6e 6e 69 6e 67 20 6f	.here.rather.than.at.beginning.o
19e0	66 20 77 6f 72 64 2e 20 20 54 68 69 73 20 77 61 79 2c 20 79 6f 75 20 63 61 6e 20 65 78 70 61 6e	f.word...This.way,.you.can.expan
1a00	64 20 61 6e 20 61 62 62 72 65 76 0a 77 69 74 68 20 61 20 70 72 65 66 69 78 3a 20 69 6e 73 65 72	d.an.abbrev.with.a.prefix:.inser
1a20	74 20 74 68 65 20 70 72 65 66 69 78 2c 20 75 73 65 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 2c 0a	t.the.prefix,.use.this.command,.
1a40	74 68 65 6e 20 69 6e 73 65 72 74 20 74 68 65 20 61 62 62 72 65 76 2e 22 20 28 69 6e 74 65 72 61	then.insert.the.abbrev.".(intera
1a60	63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08 86 08 00 c4 20 88	ctive."P").(byte-code.".........
1a80	c5 20 11 70 89 12 88 c6 63 87 22 20 5b 61 72 67 20 61 62 62 72 65 76 2d 73 74 61 72 74 2d 6c 6f	...p....c.".[arg.abbrev-start-lo
1aa0	63 61 74 69 6f 6e 20 61 62 62 72 65 76 2d 73 74 61 72 74 2d 6c 6f 63 61 74 69 6f 6e 2d 62 75 66	cation.abbrev-start-location-buf
1ac0	66 65 72 20 6e 69 6c 20 65 78 70 61 6e 64 2d 61 62 62 72 65 76 20 70 6f 69 6e 74 2d 6d 61 72 6b	fer.nil.expand-abbrev.point-mark
1ae0	65 72 20 22 2d 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 65 78 70 61 6e 64 2d 72 65 67 69 6f	er."-"].4))..(defun.expand-regio
1b00	6e 2d 61 62 62 72 65 76 73 20 28 73 74 61 72 74 20 65 6e 64 20 26 6f 70 74 69 6f 6e 61 6c 20 6e	n-abbrevs.(start.end.&optional.n
1b20	6f 71 75 65 72 79 29 20 22 5c 0a 46 6f 72 20 61 62 62 72 65 76 20 6f 63 63 75 72 72 65 6e 63 65	oquery)."\.For.abbrev.occurrence
1b40	20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2c 20 6f 66 66 65 72 20 74 6f 20 65 78 70 61 6e 64 20	.in.the.region,.offer.to.expand.
1b60	69 74 2e 0a 54 68 65 20 75 73 65 72 20 69 73 20 61 73 6b 65 64 20 74 6f 20 74 79 70 65 20 79 20	it..The.user.is.asked.to.type.y.
1b80	6f 72 20 6e 20 66 6f 72 20 65 61 63 68 20 6f 63 63 75 72 72 65 6e 63 65 2e 0a 41 20 6e 75 6d 65	or.n.for.each.occurrence..A.nume
1ba0	72 69 63 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 64 6f 6e 27 74 20 71 75 65 72 79 3b 20	ric.argument.means.don't.query;.
1bc0	65 78 70 61 6e 64 20 61 6c 6c 20 61 62 62 72 65 76 73 2e 0a 43 61 6c 6c 69 6e 67 20 66 72 6f 6d	expand.all.abbrevs..Calling.from
1be0	20 61 20 70 72 6f 67 72 61 6d 2c 20 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 53 54 41 52 54 20	.a.program,.arguments.are.START.
1c00	45 4e 44 20 26 6f 70 74 69 6f 6e 61 6c 20 4e 4f 51 55 45 52 59 2e 22 20 28 69 6e 74 65 72 61 63	END.&optional.NOQUERY.".(interac
1c20	74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 8a 08 09 5e 62 88 64 08	tive."r").(byte-code.".....^b.d.
1c40	09 5d 5a 1a 6d 3f 85 1c 00 c6 c7 21 88 60 64 0a 5a 58 85 3f 00 c8 20 1b c9 20 85 3a 00 ca 0b 21	.]Z.m?.....!.`d.ZX.?.......:...!
1c60	88 cb 20 88 0c 86 35 00 cc cd 21 85 3a 00 c9 20 29 88 82 0e 00 29 29 87 22 20 5b 73 74 61 72 74	......5...!.:...)....)).".[start
1c80	20 65 6e 64 20 6c 69 6d 20 6d 6f 64 70 20 6e 6f 71 75 65 72 79 20 6e 69 6c 20 66 6f 72 77 61 72	.end.lim.modp.noquery.nil.forwar
1ca0	64 2d 77 6f 72 64 20 31 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 65 78 70 61 6e	d-word.1.buffer-modified-p.expan
1cc0	64 2d 61 62 62 72 65 76 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 75	d-abbrev.set-buffer-modified-p.u
1ce0	6e 65 78 70 61 6e 64 2d 61 62 62 72 65 76 20 79 2d 6f 72 2d 6e 2d 70 20 22 45 78 70 61 6e 64 20	nexpand-abbrev.y-or-n-p."Expand.
1d00	74 68 69 73 3f 20 22 5d 20 39 29 29 0a	this?."].9)).