I exported *pp-auto-highlighter*

cph did something for os2.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 327ac5eb05d9363cdeeb083131a45a1da9387a2e..3fa82b7bfdfd4c80174d23ebc6084048c1f5a621 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.237 1994/11/20 08:45:11 cph Exp $
+$Id: runtime.pkg,v 14.238 1994/12/02 16:42:11 adams Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxprm")
     ((dos nt) "dosprm")
+    ((os/2) "os2prm")
     (else)))
 
 (define-package (package)
@@ -450,6 +451,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxdir")
     ((dos nt) "dosdir")
+    ((os/2) "os2dir")
     ;;(else "unkdir")
     (else))
   (parent ())
@@ -1569,19 +1571,10 @@ MIT in each case. |#
    (else))
   (initialization (initialize-package!)))
 
-;; DOS and NT pathanme packages present in both to allow band sharing.
-
 (define-package (runtime pathname dos)
   (parent (runtime pathname))
   (file-case os-type
-   ((dos nt) "dospth")
-   (else))
-  (initialization (initialize-package!)))
-
-(define-package (runtime pathname nt)
-  (parent (runtime pathname))
-  (file-case os-type
-   ((nt dos) "ntpth")
+   ((dos nt os/2) "dospth")
    (else))
   (initialization (initialize-package!)))
 
@@ -1603,6 +1596,7 @@ MIT in each case. |#
   (files "pp")
   (parent ())
   (export ()
+         *pp-auto-highlighter*
          *pp-avoid-circularity?*
          *pp-default-as-code?*
          *pp-forced-x-size*

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 327ac5eb05d9363cdeeb083131a45a1da9387a2e..3fa82b7bfdfd4c80174d23ebc6084048c1f5a621 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.237 1994/11/20 08:45:11 cph Exp $
+$Id: runtime.pkg,v 14.238 1994/12/02 16:42:11 adams Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxprm")
     ((dos nt) "dosprm")
+    ((os/2) "os2prm")
     (else)))
 
 (define-package (package)
@@ -450,6 +451,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxdir")
     ((dos nt) "dosdir")
+    ((os/2) "os2dir")
     ;;(else "unkdir")
     (else))
   (parent ())
@@ -1569,19 +1571,10 @@ MIT in each case. |#
    (else))
   (initialization (initialize-package!)))
 
-;; DOS and NT pathanme packages present in both to allow band sharing.
-
 (define-package (runtime pathname dos)
   (parent (runtime pathname))
   (file-case os-type
-   ((dos nt) "dospth")
-   (else))
-  (initialization (initialize-package!)))
-
-(define-package (runtime pathname nt)
-  (parent (runtime pathname))
-  (file-case os-type
-   ((nt dos) "ntpth")
+   ((dos nt os/2) "dospth")
    (else))
   (initialization (initialize-package!)))
 
@@ -1603,6 +1596,7 @@ MIT in each case. |#
   (files "pp")
   (parent ())
   (export ()
+         *pp-auto-highlighter*
          *pp-avoid-circularity?*
          *pp-default-as-code?*
          *pp-forced-x-size*