blob: 5b4b6b1b9b7bb221aa7f70fdd3699e8dcd5cb529 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 75 6e 20 75 6e 64 65 72 6c 69 6e 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20	.(defun.underline-region.(start.
0020	65 6e 64 29 20 22 5c 0a 55 6e 64 65 72 6c 69 6e 65 20 61 6c 6c 20 6e 6f 6e 62 6c 61 6e 6b 20 63	end)."\.Underline.all.nonblank.c
0040	68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68 65 20 72 65 67 69 6f 6e 2e 0a 57 6f 72 6b 73 20 62	haracters.in.the.region..Works.b
0060	79 20 6f 76 65 72 73 74 72 69 6b 69 6e 67 20 75 6e 64 65 72 73 63 6f 72 65 73 2e 0a 43 61 6c 6c	y.overstriking.underscores..Call
0080	65 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 74 61 6b 65 73 20 74 77 6f 20 61 72 67 75 6d	ed.from.program,.takes.two.argum
00a0	65 6e 74 73 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 0a 77 68 69 63 68 20 73 70 65 63 69 66 79	ents.START.and.END.which.specify
00c0	20 74 68 65 20 72 61 6e 67 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 2e 22 20 28 69 6e 74 65	.the.range.to.operate.on.".(inte
00e0	72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 8a c4 20 18 c5	ractive."r").(byte-code.".......
0100	08 09 0a 5d 5c 22 88 09 0a 5e 62 88 60 08 57 85 28 00 c6 c7 21 86 20 00 c8 63 88 c9 ca 21 88 82	...]\"...^b.`.W.(...!....c...!..
0120	12 00 29 29 87 22 20 5b 65 6e 64 31 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 6d 61 6b 65 2d	..)).".[end1.start.end.nil.make-
0140	6d 61 72 6b 65 72 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b	marker.move-marker.looking-at."[
0160	5f 00 2d 20 5d 22 20 22 5f 08 22 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 5d 20 36 29 29 0a	_.-.]"."_.".forward-char.1].6)).
0180	0a 28 64 65 66 75 6e 20 75 6e 75 6e 64 65 72 6c 69 6e 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72	.(defun.ununderline-region.(star
01a0	74 20 65 6e 64 29 20 22 5c 0a 52 65 6d 6f 76 65 20 61 6c 6c 20 75 6e 64 65 72 6c 69 6e 69 6e 67	t.end)."\.Remove.all.underlining
01c0	20 28 6f 76 65 72 73 74 72 75 63 6b 20 75 6e 64 65 72 73 63 6f 72 65 73 29 20 69 6e 20 74 68 65	.(overstruck.underscores).in.the
01e0	20 72 65 67 69 6f 6e 2e 0a 43 61 6c 6c 65 64 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 2c 20 74 61	.region..Called.from.program,.ta
0200	6b 65 73 20 74 77 6f 20 61 72 67 75 6d 65 6e 74 73 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 0a	kes.two.arguments.START.and.END.
0220	77 68 69 63 68 20 73 70 65 63 69 66 79 20 74 68 65 20 72 61 6e 67 65 20 74 6f 20 6f 70 65 72 61	which.specify.the.range.to.opera
0240	74 65 20 6f 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28 62 79 74 65 2d	te.on.".(interactive."r").(byte-
0260	63 6f 64 65 20 22 c4 88 8a c5 20 18 c6 08 09 0a 5d 5c 22 88 09 0a 5e 62 88 c7 c8 08 c3 23 85 21	code."..........]\"...^b.....#.!
0280	00 c9 ca 21 88 82 12 00 29 29 87 22 20 5b 65 6e 64 31 20 73 74 61 72 74 20 65 6e 64 20 74 20 6e	...!....)).".[end1.start.end.t.n
02a0	69 6c 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 73 65 61 72 63	il.make-marker.move-marker.searc
02c0	68 2d 66 6f 72 77 61 72 64 20 22 5f 08 22 20 64 65 6c 65 74 65 2d 63 68 61 72 20 2d 32 5d 20 36	h-forward."_.".delete-char.-2].6
02e0	29 29 0a	)).