From 90e98bb9482953bf0b670f51bd9dc3861dcd610e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 1999 05:53:39 +0000
Subject: [PATCH] Eliminate definition of WITH-THREAD-EVENTS-BLOCKED, which is
 now implemented by the runtime system.

---
 v7/src/edwin/xterm.scm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index cf212368a..a9540f91c 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xterm.scm,v 1.57 1999/02/22 05:05:10 cph Exp $
+;;; $Id: xterm.scm,v 1.58 1999/02/28 05:53:39 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -1183,15 +1183,6 @@
 	      (receive-selection xterm property 'C_STRING time))
 	     (else #f))))))
 
-(define (with-thread-events-blocked thunk)
-  (let ((block-events?))
-    (dynamic-wind (lambda ()
-		    (set! block-events? (block-thread-events))
-		    unspecific)
-		  thunk
-		  (lambda ()
-		    (if (not block-events?) (unblock-thread-events))))))
-
 (define (request-selection xterm selection target property time)
   (let ((display (x-window-display xterm))
 	(window (x-window-id xterm)))
-- 
2.25.1