Add printer output commands LPR-BUFFER, PRINT-BUFFER, LPR-REGION, and

PRINT-REGION.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 7aa9d0cf414fa2514c8d68001098311645b9c9af..48230120e134ba83f30373eab51a07f5095ccd0f 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.25 1991/09/18 13:56:26 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.26 1991/09/20 20:47:15 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -146,6 +146,7 @@ MIT in each case. |#
              "modlin"
              "motcom"
              "pasmod"
+             "print"
              "process"
              "prompt"
              "rcs"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 77d2ea001c440bf3367e78adaf11d4416b3428d1..deff743524d13cabe717cd0eb304381dccb9d951 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -141,6 +141,8 @@
               edwin-syntax-table)
     ("paths"   (edwin)
               syntax-table/system-internal)
+    ("print"   (edwin)
+              edwin-syntax-table)
     ("process" (edwin process)
               edwin-syntax-table)
     ("prompt"  (edwin prompt)

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 05fa7b68d05952b83a52a5ad517f5cef69f8adfb..93c11cc66f771876496823e406ac372658781584 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.61 1991/09/18 13:56:05 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.62 1991/09/20 20:47:00 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -99,7 +99,8 @@ MIT in each case. |#
         "midas"
         "pasmod"
         "tximod"
-        "manual")                      ; man page display
+        "manual"                       ; man page display
+        "print")                       ; printer output
   (parent ())
   (import (runtime rep)
          hook/repl-eval)

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 08f0370c031420decc92f94923fe429d10c9c7e1..6e71adbca637aab764ad61270aba4921e409f1c8 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.11 1991/09/18 13:56:13 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.12 1991/09/20 20:46:33 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -134,4 +134,19 @@ modified version of TeX input format.")
   '("manual" (EDWIN)))
 
 (define-autoload-command 'manual-entry 'MANUAL
-  "Display UNIX man page.")
\ No newline at end of file
+  "Display UNIX man page.")
+
+(define-library 'print
+  '("print" (EDWIN)))
+
+(define-autoload-command 'lpr-buffer 'PRINT
+  "Print buffer contents with Unix command `lpr'.")
+
+(define-autoload-command 'print-buffer 'PRINT
+  "Print buffer contents as with Unix command `lpr -p'.")
+
+(define-autoload-command 'lpr-region 'PRINT
+  "Print region contents as with Unix command `lpr'.")
+
+(define-autoload-command 'print-region 'PRINT
+  "Print region contents as with Unix command `lpr -p'.")
\ No newline at end of file