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.

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 5a22ce5852c2f72db2c73a93284c84c3185c9bbc..d92d0e0b34ba3756e91d30c657336dead4dc49b0 100644 (file)
--- 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 c3cf342b010580f9210b1ae6e57724e23466300c..f1f9a064e65ec8a26c935d6fc34486d5a168fc36 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.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))
 \f
-(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."