From 16c5ee54ad581d9747c57d530405002ed342d94b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Jul 1991 22:51:16 +0000
Subject: [PATCH] Fix SIGSEGV that occurred when deleting the selected window
 in complicated combinations of windows.

---
 v7/src/edwin/comwin.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/comwin.scm b/v7/src/edwin/comwin.scm
index 073b4f724..d05a98a71 100644
--- a/v7/src/edwin/comwin.scm
+++ b/v7/src/edwin/comwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comwin.scm,v 1.141 1991/05/09 15:54:11 markf Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comwin.scm,v 1.142 1991/07/09 22:51:16 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -404,7 +404,11 @@
        (let ((adjust-size!
 	      (lambda (window)
 		(if (current-window? leaf)
-		    (select-window window))
+		    (select-window
+		     (let loop ((window window))
+		       (if (combination? window)
+			   (loop (combination-child window))
+			   window))))
 		(unlink-leaf! leaf)
 		(if (combination-vertical? superior)
 		    (=> window :set-y-size!
-- 
2.25.1