From 11a07d139ea95a62fc30942f088cbc256364ecbc Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 27 Feb 1992 19:14:19 +0000
Subject: [PATCH] Move the variables for the PRINT library (which contains the
 commands LPR-BUFFER, LPR-REGION, PRINT-BUFFER, and PRINT-REGION) from
 print.scm to loadef.scm.

---
 v7/src/edwin/loadef.scm | 12 +++++++++++-
 v7/src/edwin/print.scm  | 12 +-----------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 5a22ce585..d92d0e0b3 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.14 1992/01/10 18:52:19 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.15 1992/02/27 19:14:19 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -154,6 +154,16 @@ Otherwise, a new buffer is created for each topic."
 (define-library 'print
   '("print" (EDWIN)))
 
+(define-variable lpr-switches
+  "List of strings to pass as extra switch args to lpr when it is invoked."
+  '()
+  list-of-strings?)
+
+(define-variable lpr-command
+  "Shell command for printing a file"
+  "lpr"
+  string?)
+
 (define-autoload-command 'lpr-buffer 'PRINT
   "Print buffer contents with Unix command `lpr'.")
 
diff --git a/v7/src/edwin/print.scm b/v7/src/edwin/print.scm
index c3cf342b0..f1f9a064e 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.4 1991/10/26 22:05:36 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.5 1992/02/27 19:14:03 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -46,16 +46,6 @@
 
 (declare (usual-integrations))
 
-(define-variable lpr-switches
-  "List of strings to pass as extra switch args to lpr when it is invoked."
-  '()
-  list-of-strings?)
-
-(define-variable lpr-command
-  "Shell command for printing a file"
-  "lpr"
-  string?)
-
 (define-command lpr-buffer
   "Print buffer contents as with Unix command `lpr'.
 Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
-- 
2.25.1