blob: 712cc34b2bc4eae5fe334b4f1400fbbac6147f6f (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20	.(defvar.text-mode-syntax-table.
0020	6e 69 6c 20 22 5c 0a 53 79 6e 74 61 78 20 74 61 62 6c 65 20 75 73 65 64 20 77 68 69 6c 65 20 69	nil."\.Syntax.table.used.while.i
0040	6e 20 74 65 78 74 20 6d 6f 64 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 74 65 78 74 2d 6d 6f 64	n.text.mode.")..(defvar.text-mod
0060	65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 41 62 62 72 65 76 20 74 61 62	e-abbrev-table.nil."\.Abbrev.tab
0080	6c 65 20 75 73 65 64 20 77 68 69 6c 65 20 69 6e 20 74 65 78 74 20 6d 6f 64 65 2e 22 29 0a 0a 28	le.used.while.in.text.mode.")..(
00a0	64 65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 74 65 78 74 2d	define-abbrev-table.(quote.text-
00c0	6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a 0a 28 69 66 20 74 65 78	mode-abbrev-table).nil)..(if.tex
00e0	74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 28 73 65 74 71 20 74 65	t-mode-syntax-table.nil.(setq.te
0100	78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61	xt-mode-syntax-table.(make-synta
0120	78 2d 74 61 62 6c 65 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33	x-table)).(modify-syntax-entry.3
0140	34 20 22 2e 20 20 20 22 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29	4."....".text-mode-syntax-table)
0160	20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 2e 20 20 20 22 20	.(modify-syntax-entry.92."....".
0180	74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d	text-mode-syntax-table).(modify-
01a0	73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 77 20 20 20 22 20 74 65 78 74 2d 6d 6f 64 65	syntax-entry.39."w...".text-mode
01c0	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 29 0a 0a 28 64 65 66 76 61 72 20 74 65 78 74 2d 6d 6f	-syntax-table))..(defvar.text-mo
01e0	64 65 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 69 66 20 74 65 78 74 2d 6d 6f 64 65 2d	de-map.nil."\.")..(if.text-mode-
0200	6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b	map.nil.(setq.text-mode-map.(mak
0220	65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65	e-sparse-keymap)).(define-key.te
0240	78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 74 61 62 2d 74 6f 2d 74 61	xt-mode-map.".".(quote.tab-to-ta
0260	62 2d 73 74 6f 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 74 65 78 74 2d 6d 6f 64 65 2d 6d	b-stop)).(define-key.text-mode-m
0280	61 70 20 22 1b 73 22 20 28 71 75 6f 74 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 29 29 20 28 64 65	ap.".s".(quote.center-line)).(de
02a0	66 69 6e 65 2d 6b 65 79 20 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 53 22 20 28 71 75 6f	fine-key.text-mode-map.".S".(quo
02c0	74 65 20 63 65 6e 74 65 72 2d 70 61 72 61 67 72 61 70 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 74	te.center-paragraph)))..(defun.t
02e0	65 78 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65	ext-mode.nil."\.Major.mode.for.e
0300	64 69 74 69 6e 67 20 74 65 78 74 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 68 75 6d 61 6e 73 20	diting.text.intended.for.humans.
0320	74 6f 20 72 65 61 64 2e 20 20 53 70 65 63 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 3a 5c 5c 7b 74 65	to.read...Special.commands:\\{te
0340	78 74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f 6e 20 74 65 78 74 2d 6d 6f 64	xt-mode-map}.Turning.on.text-mod
0360	65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c	e.calls.the.value.of.the.variabl
0380	65 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 2c 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20	e.text-mode-hook,.if.that.value.
03a0	69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65	is.non-nil.".(interactive).(byte
03c0	2d 63 6f 64 65 20 22 c6 88 c7 20 88 c8 08 21 88 c9 89 11 88 ca 89 12 88 0c 89 13 88 cb 0d 21 88	-code.".......!...............!.
03e0	cc cd 21 87 22 20 5b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d	..!.".[text-mode-map.mode-name.m
0400	61 6a 6f 72 2d 6d 6f 64 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 78	ajor-mode.local-abbrev-table.tex
0420	74 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 73 79	t-mode-abbrev-table.text-mode-sy
0440	6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61	ntax-table.nil.kill-all-local-va
0460	72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 22 54 65 78 74 22 20 74 65 78	riables.use-local-map."Text".tex
0480	74 2d 6d 6f 64 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 72 75 6e 2d 68 6f 6f 6b	t-mode.set-syntax-table.run-hook
04a0	73 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 69	s.text-mode-hook].5))..(defvar.i
04c0	6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20	ndented-text-mode-map.nil)..(if.
04e0	69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71	indented-text-mode-map.nil.(setq
0500	20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70	.indented-text-mode-map.(make-sp
0520	61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 64 65 6e 74	arse-keymap)).(define-key.indent
0540	65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 09 22 20 28 71 75 6f 74 65 20 69 6e 64 65	ed-text-mode-map.".".(quote.inde
0560	6e 74 2d 72 65 6c 61 74 69 76 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 64 65 6e 74	nt-relative)).(define-key.indent
0580	65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 73 22 20 28 71 75 6f 74 65 20 63 65 6e	ed-text-mode-map.".s".(quote.cen
05a0	74 65 72 2d 6c 69 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 64 65 6e 74 65 64 2d	ter-line)).(define-key.indented-
05c0	74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 53 22 20 28 71 75 6f 74 65 20 63 65 6e 74 65 72	text-mode-map.".S".(quote.center
05e0	2d 70 61 72 61 67 72 61 70 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 65 6e 74 65 64 2d 74	-paragraph)))..(defun.indented-t
0600	65 78 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65	ext-mode.nil."\.Major.mode.for.e
0620	64 69 74 69 6e 67 20 69 6e 64 65 6e 74 65 64 20 74 65 78 74 20 69 6e 74 65 6e 64 65 64 20 66 6f	diting.indented.text.intended.fo
0640	72 20 68 75 6d 61 6e 73 20 74 6f 20 72 65 61 64 2e 5c 5c 7b 69 6e 64 65 6e 74 65 64 2d 74 65 78	r.humans.to.read.\\{indented-tex
0660	74 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 54 75 72 6e 69 6e 67 20 6f 6e 20 69 6e 64 65 6e 74 65 64 2d	t-mode-map}.Turning.on.indented-
0680	74 65 78 74 2d 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65	text-mode.calls.the.value.of.the
06a0	20 76 61 72 69 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 2c 0a 69 66 20 74 68 61	.variable.text-mode-hook,.if.tha
06c0	74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	t.value.is.non-nil.".(interactiv
06e0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c9 20 88 ca 08 21 88 cb c3 c1 5c 22 88 0b 89	e).(byte-code.".......!....\"...
0700	12 88 cc 0c 21 88 cd c5 21 88 ce 89 15 88 ca 0e 06 21 88 cf 89 16 07 88 d0 89 16 08 88 d1 d2 21	....!...!........!.............!
0720	87 22 20 5b 74 65 78 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 6c 6f 63 61 6c 2d 61 62 62 72	.".[text-mode-map.nil.local-abbr
0740	65 76 2d 74 61 62 6c 65 20 74 65 78 74 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20	ev-table.text-mode-abbrev-table.
0760	74 65 78 74 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 69 6e 64 65 6e 74 2d 6c 69	text-mode-syntax-table.indent-li
0780	6e 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 2d 6d	ne-function.indented-text-mode-m
07a0	61 70 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6b 69 6c 6c 2d 61 6c 6c	ap.mode-name.major-mode.kill-all
07c0	2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 64	-local-variables.use-local-map.d
07e0	65 66 69 6e 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61	efine-abbrev-table.set-syntax-ta
0800	62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 69 6e 64 65 6e 74 2d 72	ble.make-local-variable.indent-r
0820	65 6c 61 74 69 76 65 2d 6d 61 79 62 65 20 22 49 6e 64 65 6e 74 65 64 20 54 65 78 74 22 20 69 6e	elative-maybe."Indented.Text".in
0840	64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 20 72 75 6e 2d 68 6f 6f 6b 73 20 74 65 78 74 2d	dented-text-mode.run-hooks.text-
0860	6d 6f 64 65 2d 68 6f 6f 6b 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 70 61	mode-hook].8))..(defun.center-pa
0880	72 61 67 72 61 70 68 20 6e 69 6c 20 22 5c 0a 43 65 6e 74 65 72 20 65 61 63 68 20 6c 69 6e 65 20	ragraph.nil."\.Center.each.line.
08a0	69 6e 20 74 68 65 20 70 61 72 61 67 72 61 70 68 20 61 74 20 6f 72 20 61 66 74 65 72 20 70 6f 69	in.the.paragraph.at.or.after.poi
08c0	6e 74 2e 0a 53 65 65 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66	nt..See.center-line.for.more.inf
08e0	6f 2e 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 c1 88	o.".(interactive).(byte-code."..
0900	8a c2 20 88 6e 86 0d 00 c3 c4 21 88 60 18 c5 20 88 c6 60 08 5c 22 29 29 87 22 20 5b 65 6e 64 20	....n.....!.`.....`.\")).".[end.
0920	6e 69 6c 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 6e 65 77 6c 69 6e 65 20 31 20	nil.forward-paragraph.newline.1.
0940	62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 20 63 65 6e 74 65 72 2d 72 65 67 69 6f 6e	backward-paragraph.center-region
0960	5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 72 65 67 69 6f 6e 20 28 66 72 6f	].6))..(defun.center-region.(fro
0980	6d 20 74 6f 29 20 22 5c 0a 43 65 6e 74 65 72 20 65 61 63 68 20 6c 69 6e 65 20 73 74 61 72 74 69	m.to)."\.Center.each.line.starti
09a0	6e 67 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 53 65 65 20 63 65 6e 74 65 72 2d 6c 69 6e	ng.in.the.region..See.center-lin
09c0	65 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22	e.for.more.info.".(interactive."
09e0	72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08 09 56 85 10 00 09 1a 08 11 0a 89 10 29	r").(byte-code."....V..........)
0a00	88 8a 8c c4 08 09 5c 22 88 08 62 88 6d 3f 85 2a 00 c5 20 88 c6 c7 21 88 82 1b 00 29 29 87 22 20	......\"..b.m?.*......!....)).".
0a20	5b 66 72 6f 6d 20 74 6f 20 74 65 6d 20 6e 69 6c 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f	[from.to.tem.nil.narrow-to-regio
0a40	6e 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 35 29	n.center-line.forward-line.1].5)
0a60	29 0a 0a 28 64 65 66 75 6e 20 63 65 6e 74 65 72 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 43 65 6e	)..(defun.center-line.nil."\.Cen
0a80	74 65 72 20 74 68 65 20 6c 69 6e 65 20 70 6f 69 6e 74 20 69 73 20 6f 6e 2c 20 77 69 74 68 69 6e	ter.the.line.point.is.on,.within
0aa0	20 74 68 65 20 77 69 64 74 68 20 73 70 65 63 69 66 69 65 64 20 62 79 20 60 66 69 6c 6c 2d 63 6f	.the.width.specified.by.`fill-co
0ac0	6c 75 6d 6e 27 2e 0a 54 68 69 73 20 6d 65 61 6e 73 20 61 64 6a 75 73 74 69 6e 67 20 74 68 65 20	lumn'..This.means.adjusting.the.
0ae0	69 6e 64 65 6e 74 61 74 69 6f 6e 20 74 6f 20 6d 61 74 63 68 0a 74 68 65 20 64 69 73 74 61 6e 63	indentation.to.match.the.distanc
0b00	65 20 62 65 74 77 65 65 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 74 65 78 74 20 61 6e	e.between.the.end.of.the.text.an
0b20	64 20 60 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 27 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20	d.`fill-column'.".(interactive).
0b40	28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a c3 18 c4 20 88 c5 20 88 c6 20 88 c5 20 88 69 89 10	(byte-code.".................i..
0b60	88 c4 20 88 09 c7 c8 0a 09 08 23 c9 5c 22 5c 5c 6a 29 29 87 22 20 5b 6c 69 6e 65 2d 6c 65 6e 67	..........#.\"\\j)).".[line-leng
0b80	74 68 20 6c 65 66 74 2d 6d 61 72 67 69 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6e 69 6c 20 62	th.left-margin.fill-column.nil.b
0ba0	65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 64 65 6c 65 74 65 2d 68 6f 72 69 7a 6f 6e 74	eginning-of-line.delete-horizont
0bc0	61 6c 2d 73 70 61 63 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 2f 20 2d 20 32 5d 20 31 31 29 29	al-space.end-of-line./.-.2].11))
0be0	0a	.