Add DEFAULT-WINDOW-WIDTH, the value returned by the X-SIZE operation

on buffer output ports when the buffer does not appear in any window.

diff --git a/v7/src/edwin/bufout.scm b/v7/src/edwin/bufout.scm
index d7b2d2d1d7d25dd116f525ba93552ee1fe01068d..f414424186aafb38b26129a2e2aeba605ff34345 100644 (file)
--- a/v7/src/edwin/bufout.scm
+++ b/v7/src/edwin/bufout.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufout.scm,v 1.5 1991/06/18 20:31:43 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufout.scm,v 1.6 1991/08/16 01:31:00 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -115,13 +115,15 @@
 (define (operation/close port)
   (mark-temporary! (output-port/mark port)))
 
+(define default-window-width false)
+
 (define (operation/x-size port)
   (let ((sizes
         (map window-x-size
              (buffer-windows
               (mark-buffer (output-port/mark port))))))
     (if (null? sizes)
-       79
+       (or default-window-width 79)
        (apply min sizes))))
 
 (define mark-output-port-template

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index e919d304c2948de684e2829321f1379a47f265d9..7a021d37589bd3c99e483416a6aa4c139f6c9b2e 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.50 1991/08/13 02:30:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.51 1991/08/16 01:31:50 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -550,6 +550,7 @@ MIT in each case. |#
   (files "bufout")
   (parent (edwin))
   (export (edwin)
+         default-window-width
          fresh-line
          fresh-lines
          mark->output-port