From 432a86295edff162ddb07a55d555d9af87d384a2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 14 Sep 1992 20:14:31 +0000 Subject: [PATCH] For FOCUS-IN events, don't generate a SELECT-SCREEN operation if the screen is already selected. This should prevent spurious failures of PROMPT-FOR-CHAR. --- v7/src/edwin/xterm.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm index 982daca67..5a76a0653 100644 --- a/v7/src/edwin/xterm.scm +++ b/v7/src/edwin/xterm.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xterm.scm,v 1.34 1992/09/02 02:35:42 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/xterm.scm,v 1.35 1992/09/14 20:14:31 cph Exp $ ;;; ;;; Copyright (c) 1989-92 Massachusetts Institute of Technology ;;; @@ -528,7 +528,8 @@ (define-event-handler event-type:focus-in (lambda (screen event) event - (make-input-event select-screen screen))) + (and (not (selected-screen? screen)) + (make-input-event select-screen screen)))) (define-event-handler event-type:delete-window (lambda (screen event) -- 2.25.1