From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 16 Aug 1991 01:31:50 +0000 (+0000)
Subject: Add DEFAULT-WINDOW-WIDTH, the value returned by the X-SIZE operation
X-Git-Tag: 20090517-FFI~10359
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6a66b02a6493eb9b09ba2686313e9743c623cf86;p=mit-scheme.git

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 d7b2d2d1d..f41442418 100644
--- 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 e919d304c..7a021d375 100644
--- 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