From d7b68021ceb241fed4c082bc7a6585a987c0aab4 Mon Sep 17 00:00:00 2001
From: Jack Jansen <jack.jansen@cwi.nl>
Date: Fri, 12 Jan 2001 23:42:28 +0000
Subject: [PATCH] Fixed Carbon command-dot handling. There is still a problem,
 though, and you may have to hit it repeatedly.

---
 Mac/Python/macglue.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index bcfe09e452..8fdbc23acb 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -482,8 +482,8 @@ scan_event_queue(flush)
 	int flush;
 {
 #if TARGET_API_MAC_CARBON
-	/* CARBONXXXX To be implemented */
-	return;
+	if ( CheckEventQueueForUserCancel() )
+		interrupted = 1;
 #else
 	register EvQElPtr q;
 	
-- 
2.50.1