blob: efcfac8abd63091aef2022b9fbaad67903f5aa70 (plain)

ofs	hex dump	ascii
0000	0a 28 64 65 66 76 61 72 20 6c 70 72 2d 63 6f 6d 6d 61 6e 64 20 28 69 66 20 28 6d 65 6d 71 20 73	.(defvar.lpr-command.(if.(memq.s
0020	79 73 74 65 6d 2d 74 79 70 65 20 28 71 75 6f 74 65 20 28 75 73 67 2d 75 6e 69 78 2d 76 20 68 70	ystem-type.(quote.(usg-unix-v.hp
0040	75 78 20 73 69 6c 69 63 6f 6e 2d 67 72 61 70 68 69 63 73 2d 75 6e 69 78 29 29 29 20 22 6c 70 22	ux.silicon-graphics-unix)))."lp"
0060	20 22 6c 70 72 22 29 20 22 5c 0a 53 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 70 72 69	."lpr")."\.Shell.command.for.pri
0080	6e 74 69 6e 67 20 61 20 66 69 6c 65 22 29 0a 0a 28 64 65 66 75 6e 20 6c 70 72 2d 62 75 66 66 65	nting.a.file")..(defun.lpr-buffe
00a0	72 20 6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 61	r.nil."\.Print.buffer.contents.a
00c0	73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20 60 6c 70 72 27 2e 0a 60 6c 70 72 2d	s.with.Unix.command.`lpr'..`lpr-
00e0	73 77 69 74 63 68 65 73 27 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 73 77 69	switches'.is.a.list.of.extra.swi
0100	74 63 68 65 73 20 28 73 74 72 69 6e 67 73 29 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70 72 2e 22	tches.(strings).to.pass.to.lpr."
0120	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 c2 65 64	.(interactive).(byte-code."...ed
0140	08 23 87 22 20 5b 6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d 72 65 67	.#.".[lpr-switches.nil.print-reg
0160	69 6f 6e 2d 31 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 62 75 66 66 65 72 20	ion-1].4))..(defun.print-buffer.
0180	6e 69 6c 20 22 5c 0a 50 72 69 6e 74 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 61 73 20	nil."\.Print.buffer.contents.as.
01a0	77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20 60 6c 70 72 20 2d 70 27 2e 0a 60 6c 70 72	with.Unix.command.`lpr.-p'..`lpr
01c0	2d 73 77 69 74 63 68 65 73 27 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20 73 77	-switches'.is.a.list.of.extra.sw
01e0	69 74 63 68 65 73 20 28 73 74 72 69 6e 67 73 29 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70 72 2e	itches.(strings).to.pass.to.lpr.
0200	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 c2 65	".(interactive).(byte-code."...e
0220	64 c3 08 42 23 87 22 20 5b 6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d	d..B#.".[lpr-switches.nil.print-
0240	72 65 67 69 6f 6e 2d 31 20 22 2d 70 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6c 70 72 2d 72	region-1."-p"].5))..(defun.lpr-r
0260	65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 50 72 69 6e 74 20 72 65 67 69 6f	egion.(start.end)."\.Print.regio
0280	6e 20 63 6f 6e 74 65 6e 74 73 20 61 73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20	n.contents.as.with.Unix.command.
02a0	60 6c 70 72 27 2e 0a 60 6c 70 72 2d 73 77 69 74 63 68 65 73 27 20 69 73 20 61 20 6c 69 73 74 20	`lpr'..`lpr-switches'.is.a.list.
02c0	6f 66 20 65 78 74 72 61 20 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e 67 73 29 20 74 6f 20 70	of.extra.switches.(strings).to.p
02e0	61 73 73 20 74 6f 20 6c 70 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20 28	ass.to.lpr.".(interactive."r").(
0300	62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20	byte-code."......#.".[start.end.
0320	6c 70 72 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 5d	lpr-switches.nil.print-region-1]
0340	20 34 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74	.4))..(defun.print-region.(start
0360	20 65 6e 64 29 20 22 5c 0a 50 72 69 6e 74 20 72 65 67 69 6f 6e 20 63 6f 6e 74 65 6e 74 73 20 61	.end)."\.Print.region.contents.a
0380	73 20 77 69 74 68 20 55 6e 69 78 20 63 6f 6d 6d 61 6e 64 20 60 6c 70 72 20 2d 70 27 2e 0a 60 6c	s.with.Unix.command.`lpr.-p'..`l
03a0	70 72 2d 73 77 69 74 63 68 65 73 27 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 65 78 74 72 61 20	pr-switches'.is.a.list.of.extra.
03c0	73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e 67 73 29 20 74 6f 20 70 61 73 73 20 74 6f 20 6c 70	switches.(strings).to.pass.to.lp
03e0	72 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 63 6f 64 65	r.".(interactive."r").(byte-code
0400	20 22 c3 88 c4 08 09 c5 0a 42 23 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 6c 70 72 2d 73 77 69	.".......B#.".[start.end.lpr-swi
0420	74 63 68 65 73 20 6e 69 6c 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 20 22 2d 70 22 5d 20 35	tches.nil.print-region-1."-p"].5
0440	29 29 0a 0a 28 64 65 66 75 6e 20 70 72 69 6e 74 2d 72 65 67 69 6f 6e 2d 31 20 28 73 74 61 72 74	))..(defun.print-region-1.(start
0460	20 65 6e 64 20 73 77 69 74 63 68 65 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca 20 cb 50 0a	.end.switches).(byte-code."...P.
0480	19 18 8a cc cd 21 88 ce 0a cf 5c 22 85 35 00 70 1b d0 d1 21 71 88 d2 20 88 d3 20 88 d4 0b 0c 0d	.....!....\".5.p...!q...........
04a0	23 88 09 89 12 88 d5 65 64 5c 22 88 65 14 64 89 15 29 88 d6 d7 d8 d9 0c 0d 0e 06 c7 c7 c7 26 06	#......ed\".e.d..)............&.
04c0	d8 0e 08 da 3d 85 50 00 db 08 dc 08 46 0e 09 5c 22 5c 22 5c 22 88 cc dd 21 29 2a 87 22 20 5b 6e	....=.P.....F..\"\"\"...!)*.".[n
04e0	61 6d 65 20 77 69 64 74 68 20 74 61 62 2d 77 69 64 74 68 20 6f 6c 64 62 75 66 20 73 74 61 72 74	ame.width.tab-width.oldbuf.start
0500	20 65 6e 64 20 6c 70 72 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 20 73 79 73 74 65 6d 2d 74 79 70 65	.end.lpr-command.nil.system-type
0520	20 73 77 69 74 63 68 65 73 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 20 45 6d 61 63 73 20 62 75	.switches.buffer-name.".Emacs.bu
0540	66 66 65 72 22 20 6d 65 73 73 61 67 65 20 22 53 70 6f 6f 6c 69 6e 67 2e 2e 2e 22 20 2f 3d 20 38	ffer".message."Spooling..."./=.8
0560	20 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 20 2a 73 70 6f 6f 6c 20 74 65 6d 70	.get-buffer-create.".*spool.temp
0580	2a 22 20 77 69 64 65 6e 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 69 6e 73 65 72 74 2d 62 75 66	*".widen.erase-buffer.insert-buf
05a0	66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 75 6e 74 61 62 69 66 79 20 61 70 70 6c 79 20 63 61 6c	fer-substring.untabify.apply.cal
05c0	6c 2d 70 72 6f 63 65 73 73 2d 72 65 67 69 6f 6e 20 6e 63 6f 6e 63 20 6c 69 73 74 20 62 65 72 6b	l-process-region.nconc.list.berk
05e0	65 6c 65 79 2d 75 6e 69 78 20 22 2d 4a 22 20 22 2d 54 22 20 22 53 70 6f 6f 6c 69 6e 67 2e 2e 2e	eley-unix."-J"."-T"."Spooling...
0600	64 6f 6e 65 22 5d 20 31 38 29 29 0a	done"].18)).