Repaginate.

diff --git a/v7/src/edwin/print.scm b/v7/src/edwin/print.scm
index a208e2f39f26b3aad3d3320087b00f798d45ba22..cf3416546761862c66c8ca05e8e77aa29cca9c9c 100644 (file)
--- 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)))
-\f
+
 (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")))
-
+\f
 (define (print-region-switches region print-command?)
   (let ((switches (ref-variable lpr-switches))
        (title (print-region-title-string region)))