From: Chris Hanson Date: Tue, 9 Jul 1991 22:51:16 +0000 (+0000) Subject: Fix SIGSEGV that occurred when deleting the selected window in X-Git-Tag: 20090517-FFI~10474 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=16c5ee54ad581d9747c57d530405002ed342d94b;p=mit-scheme.git Fix SIGSEGV that occurred when deleting the selected window in complicated combinations of windows. --- 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!