From 6405e1c631f4da48fb6720463a48667e83b70418 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 30 Nov 2000 06:27:01 +0000
Subject: [PATCH] FOCUS-IN events must not cause X-WINDOW-SET-INPUT-FOCUS to be
 called. Use dynamic binding to prevent this from happening.

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

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 8ca820701..b861a97e1 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xterm.scm,v 1.63 2000/10/26 18:03:15 cph Exp $
+;;; $Id: xterm.scm,v 1.64 2000/11/30 06:27:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -716,7 +716,11 @@
     (if x-screen-ignore-focus-button?
 	(set! ignore-button-state 'IGNORE-BUTTON-DOWN))
     (and (not (selected-screen? screen))
-	 (make-input-event 'SELECT-SCREEN select-screen screen))))
+	 (make-input-event 'SELECT-SCREEN
+			   (lambda (screen)
+			     (fluid-let ((last-focus-time #f))
+			       (select-screen screen)))
+			   screen))))
 
 (define-event-handler event-type:delete-window
   (lambda (screen event)
-- 
2.25.1