Add workaround for broken X selection clients, such as GTK+.

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index a9540f91c9e2a7cb4e2b56352198de49b6914020..c3f5fab3243df7686f6dac134c91916bbc88d981 100644 (file)
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xterm.scm,v 1.58 1999/02/28 05:53:39 cph Exp $
+;;; $Id: xterm.scm,v 1.59 1999/12/10 17:52:16 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -1028,17 +1028,21 @@
            (hash-table/put! table display result)
            result)))))
 
+;;; **** In the next two procedures, we must allow TIME to be 0, even
+;;; though the ICCCM forbids this, because existing clients use that
+;;; value.  An example of a broken client is GTK+ version 1.2.6.
+
 (define (display/selection-record display name time)
   (let ((record (hash-table/get (display/selection-records display) name #f)))
     (and record
-        (<= (selection-record/time record) time)
+        (or (= 0 time) (<= (selection-record/time record) time))
         record)))
 
 (define (display/delete-selection-record! display name time)
   (let ((records (display/selection-records display)))
     (if (let ((record (hash-table/get records name #f)))
          (and record
-              (<= (selection-record/time record) time)))
+              (or (= 0 time) (<= (selection-record/time record) time))))
        (hash-table/remove! records name))))
 
 (define-structure (selection-record (conc-name selection-record/))