Eliminate definition of WITH-THREAD-EVENTS-BLOCKED, which is now

implemented by the runtime system.

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index cf212368ac71996b52abe7919e9162ad835b9a31..a9540f91c9e2a7cb4e2b56352198de49b6914020 100644 (file)
--- 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)))