blob: 22867f35278f8c1a2f362bb5be5d7353c99ea891 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20	.(defun.forward-page.(&optional.
0020	63 6f 75 6e 74 29 20 22 5c 0a 4d 6f 76 65 20 66 6f 72 77 61 72 64 20 74 6f 20 70 61 67 65 20 62	count)."\.Move.forward.to.page.b
0040	6f 75 6e 64 61 72 79 2e 20 20 57 69 74 68 20 61 72 67 2c 20 72 65 70 65 61 74 2c 20 6f 72 20 67	oundary...With.arg,.repeat,.or.g
0060	6f 20 62 61 63 6b 20 69 66 20 6e 65 67 61 74 69 76 65 2e 0a 41 20 70 61 67 65 20 62 6f 75 6e 64	o.back.if.negative..A.page.bound
0080	61 72 79 20 69 73 20 61 6e 79 20 6c 69 6e 65 20 77 68 6f 73 65 20 62 65 67 69 6e 6e 69 6e 67 20	ary.is.any.line.whose.beginning.
00a0	6d 61 74 63 68 65 73 20 74 68 65 20 72 65 67 65 78 70 20 20 70 61 67 65 2d 64 65 6c 69 6d 69 74	matches.the.regexp..page-delimit
00c0	65 72 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 63 6f 64	er.".(interactive."p").(byte-cod
00e0	65 20 22 c2 88 08 86 09 00 c4 89 10 88 08 c5 56 85 12 00 6d 3f 85 2c 00 c6 09 c2 c3 23 83 21 00	e."............V...m?.,.....#.!.
0100	c2 82 23 00 64 62 88 08 53 89 10 88 82 0a 00 88 08 c5 57 85 35 00 6f 3f 85 56 00 c7 c8 21 88 c9	..#.db..S.........W.5.o?.V...!..
0120	09 c2 c3 23 83 4b 00 ca c5 21 62 82 4d 00 65 62 88 08 54 89 10 88 82 2d 00 87 22 20 5b 63 6f 75	...#.K...!b.M.eb..T....-..".[cou
0140	6e 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 6e 69 6c 20 74 20 31 20 30 20 72 65 2d 73	nt.page-delimiter.nil.t.1.0.re-s
0160	65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 72 65	earch-forward.forward-char.-1.re
0180	2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 6d 61 74 63 68 2d 65 6e 64 5d 20 37 29 29 0a	-search-backward.match-end].7)).
01a0	0a 28 64 65 66 75 6e 20 62 61 63 6b 77 61 72 64 2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c	.(defun.backward-page.(&optional
01c0	20 63 6f 75 6e 74 29 20 22 5c 0a 4d 6f 76 65 20 62 61 63 6b 77 61 72 64 20 74 6f 20 70 61 67 65	.count)."\.Move.backward.to.page
01e0	20 62 6f 75 6e 64 61 72 79 2e 20 20 57 69 74 68 20 61 72 67 2c 20 72 65 70 65 61 74 2c 20 6f 72	.boundary...With.arg,.repeat,.or
0200	20 67 6f 20 66 77 64 20 69 66 20 6e 65 67 61 74 69 76 65 2e 0a 41 20 70 61 67 65 20 62 6f 75 6e	.go.fwd.if.negative..A.page.boun
0220	64 61 72 79 20 69 73 20 61 6e 79 20 6c 69 6e 65 20 77 68 6f 73 65 20 62 65 67 69 6e 6e 69 6e 67	dary.is.any.line.whose.beginning
0240	20 6d 61 74 63 68 65 73 20 74 68 65 20 72 65 67 65 78 70 20 20 70 61 67 65 2d 64 65 6c 69 6d 69	.matches.the.regexp..page-delimi
0260	74 65 72 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 63 6f	ter.".(interactive."p").(byte-co
0280	64 65 20 22 c1 88 08 86 09 00 c2 89 10 88 c3 08 5b 21 87 22 20 5b 63 6f 75 6e 74 20 6e 69 6c 20	de."............[!.".[count.nil.
02a0	31 20 66 6f 72 77 61 72 64 2d 70 61 67 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 72 6b	1.forward-page].2))..(defun.mark
02c0	2d 70 61 67 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 50 75 74 20 6d 61 72	-page.(&optional.arg)."\.Put.mar
02e0	6b 20 61 74 20 65 6e 64 20 6f 66 20 70 61 67 65 2c 20 70 6f 69 6e 74 20 61 74 20 62 65 67 69 6e	k.at.end.of.page,.point.at.begin
0300	6e 69 6e 67 2e 0a 41 20 6e 75 6d 65 72 69 63 20 61 72 67 20 73 70 65 63 69 66 69 65 73 20 74 6f	ning..A.numeric.arg.specifies.to
0320	20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20 6f 72 20 62 61 63 6b 77 61 72 64 20 62 79 20 74 68 61	.move.forward.or.backward.by.tha
0340	74 20 6d 61 6e 79 20 70 61 67 65 73 2c 0a 74 68 75 73 20 6d 61 72 6b 69 6e 67 20 61 20 70 61 67	t.many.pages,.thus.marking.a.pag
0360	65 20 6f 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 6f 6e 65 20 70 6f 69 6e 74 20 77 61 73 20 6f	e.other.than.the.one.point.was.o
0380	72 69 67 69 6e 61 6c 6c 79 20 69 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29	riginally.in.".(interactive."P")
03a0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 83 0c 00 c3 08 21 82 0d 00 c4 89 10 88 08 c4 56	.(byte-code."........!.........V
03c0	83 1c 00 c5 08 21 82 26 00 08 c4 57 85 26 00 c5 08 53 21 88 c5 20 88 c6 c1 c2 5c 22 88 c5 c7 21	.....!.&...W.&...S!.......\"...!
03e0	87 22 20 5b 61 72 67 20 6e 69 6c 20 74 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c	.".[arg.nil.t.prefix-numeric-val
0400	75 65 20 30 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 70 75 73 68 2d 6d 61 72 6b 20 2d 31 5d 20	ue.0.forward-page.push-mark.-1].
0420	37 29 29 0a 0a 28 64 65 66 75 6e 20 6e 61 72 72 6f 77 2d 74 6f 2d 70 61 67 65 20 28 26 6f 70 74	7))..(defun.narrow-to-page.(&opt
0440	69 6f 6e 61 6c 20 61 72 67 29 20 22 5c 0a 4d 61 6b 65 20 74 65 78 74 20 6f 75 74 73 69 64 65 20	ional.arg)."\.Make.text.outside.
0460	63 75 72 72 65 6e 74 20 70 61 67 65 20 69 6e 76 69 73 69 62 6c 65 2e 0a 41 20 6e 75 6d 65 72 69	current.page.invisible..A.numeri
0480	63 20 61 72 67 20 73 70 65 63 69 66 69 65 73 20 74 6f 20 6d 6f 76 65 20 66 6f 72 77 61 72 64 20	c.arg.specifies.to.move.forward.
04a0	6f 72 20 62 61 63 6b 77 61 72 64 20 62 79 20 74 68 61 74 20 6d 61 6e 79 20 70 61 67 65 73 2c 0a	or.backward.by.that.many.pages,.
04c0	74 68 75 73 20 73 68 6f 77 69 6e 67 20 61 20 70 61 67 65 20 6f 74 68 65 72 20 74 68 61 6e 20 74	thus.showing.a.page.other.than.t
04e0	68 65 20 6f 6e 65 20 70 6f 69 6e 74 20 77 61 73 20 6f 72 69 67 69 6e 61 6c 6c 79 20 69 6e 2e 22	he.one.point.was.originally.in."
0500	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 65 20 22 c2	.(interactive."P").(byte-code.".
0520	88 08 83 0c 00 c3 08 21 82 0d 00 c4 89 10 88 8a c5 20 88 08 c4 56 83 20 00 c6 08 21 82 2a 00 08	.......!.............V.....!.*..
0540	c4 57 85 2a 00 c6 08 53 21 88 c6 20 88 8a c7 20 88 c8 09 21 29 85 3b 00 c7 20 88 c9 60 c6 ca 21	.W.*...S!..........!).;.....`..!
0560	88 6c 85 48 00 6f 3f 85 4e 00 cb cc 21 88 60 5c 22 29 87 22 20 5b 61 72 67 20 70 61 67 65 2d 64	.l.H.o?.N...!.`\").".[arg.page-d
0580	65 6c 69 6d 69 74 65 72 20 6e 69 6c 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75	elimiter.nil.prefix-numeric-valu
05a0	65 20 30 20 77 69 64 65 6e 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 62 65 67 69 6e 6e 69 6e 67	e.0.widen.forward-page.beginning
05c0	2d 6f 66 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65	-of-line.looking-at.narrow-to-re
05e0	67 69 6f 6e 20 2d 31 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 31 33 29 29 0a 0a 28 64	gion.-1.forward-line.1].13))..(d
0600	65 66 75 6e 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 2d 70 61 67 65 20 6e 69 6c 20 22 5c 0a 52 65 70	efun.count-lines-page.nil."\.Rep
0620	6f 72 74 20 6e 75 6d 62 65 72 20 6f 66 20 6c 69 6e 65 73 20 6f 6e 20 63 75 72 72 65 6e 74 20 70	ort.number.of.lines.on.current.p
0640	61 67 65 2c 20 61 6e 64 20 68 6f 77 20 6d 61 6e 79 20 61 72 65 20 62 65 66 6f 72 65 20 6f 72 20	age,.and.how.many.are.before.or.
0660	61 66 74 65 72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74	after.point.".(interactive).(byt
0680	65 2d 63 6f 64 65 20 22 c7 88 8a 60 c7 c7 c7 c7 c7 1d 1c 1b 1a 19 18 c8 20 88 c9 20 88 ca 0e 06	e-code."...`....................
06a0	21 86 1e 00 cb 20 88 60 89 12 88 cc 20 88 60 89 11 88 cd 09 0a 5c 22 13 cd 09 08 5c 22 14 cd 08	!......`......`......\"....\"...
06c0	0a 5c 22 89 15 88 ce cf 0b 0c 0d 24 2e 06 29 87 22 20 5b 6f 70 6f 69 6e 74 20 62 65 67 20 65 6e	.\"........$..).".[opoint.beg.en
06e0	64 20 74 6f 74 61 6c 20 62 65 66 6f 72 65 20 61 66 74 65 72 20 70 61 67 65 2d 64 65 6c 69 6d 69	d.total.before.after.page-delimi
0700	74 65 72 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 70 61 67 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f	ter.nil.forward-page.beginning-o
0720	66 2d 6c 69 6e 65 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 62 61	f-line.looking-at.end-of-line.ba
0740	63 6b 77 61 72 64 2d 70 61 67 65 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 6d 65 73 73 61 67 65 20	ckward-page.count-lines.message.
0760	22 50 61 67 65 20 68 61 73 20 25 64 20 6c 69 6e 65 73 20 28 25 64 20 2b 20 25 64 29 22 5d 20 31	"Page.has.%d.lines.(%d.+.%d)"].1
0780	33 29 29 0a 0a 28 64 65 66 75 6e 20 77 68 61 74 2d 70 61 67 65 20 6e 69 6c 20 22 5c 0a 50 72 69	3))..(defun.what-page.nil."\.Pri
07a0	6e 74 20 70 61 67 65 20 61 6e 64 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 6f 66 20 70 6f 69 6e 74	nt.page.and.line.number.of.point
07c0	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 c4 88 8c	.".(interactive).(byte-code."...
07e0	c5 20 88 8a c6 20 88 c7 60 19 18 c7 62 88 c8 0a 09 c3 23 85 21 00 08 54 89 10 88 82 11 00 88 c9	........`...b.....#.!..T........
0800	ca 08 cb 60 09 5c 22 54 23 2a 29 29 87 22 20 5b 63 6f 75 6e 74 20 6f 70 6f 69 6e 74 20 70 61 67	...`.\"T#*)).".[count.opoint.pag
0820	65 2d 64 65 6c 69 6d 69 74 65 72 20 74 20 6e 69 6c 20 77 69 64 65 6e 20 62 65 67 69 6e 6e 69 6e	e-delimiter.t.nil.widen.beginnin
0840	67 2d 6f 66 2d 6c 69 6e 65 20 31 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6d 65	g-of-line.1.re-search-forward.me
0860	73 73 61 67 65 20 22 50 61 67 65 20 25 64 2c 20 6c 69 6e 65 20 25 64 22 20 63 6f 75 6e 74 2d 6c	ssage."Page.%d,.line.%d".count-l
0880	69 6e 65 73 5d 20 39 29 29 0a	ines].9)).