Export Edwin variables to the (edwin) package:

  X-SCREEN-NAME-FORMAT
  X-SCREEN-ICON-NAME-FORMAT
  X-SCREEN-ICON-NAME-LENGTH

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index a0752fe18c1c63473d688b1b740b4931f1126602..c6fb709136c5bf65156d8de2a867f22609129ac2 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.48 1991/08/06 22:52:31 bal Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.49 1991/08/09 18:42:23 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -281,7 +281,10 @@ MIT in each case. |#
          x-button2-up
          x-button3-up
          x-button4-up
-         x-button5-up)
+         x-button5-up
+         edwin-variable$x-screen-name-format
+         edwin-variable$x-screen-icon-name-format
+         edwin-variable$x-screen-icon-name-length)
   (export (edwin x-screen)
          update-xterm-screen-names!))