From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Sep 1992 22:32:36 +0000 (+0000)
Subject: Fix think-o in window-configuration stuff.
X-Git-Tag: 20090517-FFI~8992
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=21b27bbb9368d56b4c455aa5eb1fe853a53128ac;p=mit-scheme.git

Fix think-o in window-configuration stuff.
---

diff --git a/v7/src/edwin/buffrm.scm b/v7/src/edwin/buffrm.scm
index d05cd8126..966a056d9 100644
--- a/v7/src/edwin/buffrm.scm
+++ b/v7/src/edwin/buffrm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffrm.scm,v 1.44 1992/09/08 18:39:59 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/buffrm.scm,v 1.45 1992/09/08 22:32:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -424,8 +424,8 @@ Automatically becomes local when set in any fashion."
 	      (window-configuration/screen-y-size configuration)))
       (begin
 	(delete-other-windows (screen-window0 screen))
-	(let ((x-size (window-configuration/screen-x-size configuration))
-	      (y-size (window-configuration/screen-y-size configuration))
+	(let ((x-size (window-configuration/root-x-size configuration))
+	      (y-size (window-configuration/root-y-size configuration))
 	      (frame (screen-root-window screen)))
 	  (if (not (and (= x-size (window-x-size frame))
 			(= y-size (window-y-size frame))))