From 21b27bbb9368d56b4c455aa5eb1fe853a53128ac Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 8 Sep 1992 22:32:36 +0000 Subject: [PATCH] Fix think-o in window-configuration stuff. --- v7/src/edwin/buffrm.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))) -- 2.25.1