From 5f8553f489ed3049bb30d868e3151fd19a477ab7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 28 Aug 1992 21:03:19 +0000
Subject: [PATCH] Repaginate.

---
 v7/src/edwin/print.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/print.scm b/v7/src/edwin/print.scm
index a208e2f39..cf3416546 100644
--- a/v7/src/edwin/print.scm
+++ b/v7/src/edwin/print.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.8 1992/08/28 21:02:43 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.9 1992/08/28 21:03:19 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -73,7 +73,7 @@ Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
   "r"
   (lambda  (region)
     (print-region/internal region true)))
-
+
 (define (print-region/internal region print-command?)
   (let ((switches (print-region-switches region print-command?))
 	(source-buffer (mark-buffer (region-start region)))
@@ -100,7 +100,7 @@ Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
 				       (car switches)
 				       (loop (cdr switches)))))))
     (append-message "done")))
-
+
 (define (print-region-switches region print-command?)
   (let ((switches (ref-variable lpr-switches))
 	(title (print-region-title-string region)))
-- 
2.25.1