# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739269582 0
# Node ID b37b09c0b43df36ff89dd22487f3f9286abdc86b
# Parent  3e75726d76c769c961477a16af858ef8073d3f05
(x-selection-timeout): Set it, using x-get-resource.

diff -r 3e75726d76c7 -r b37b09c0b43d lisp/term/x-win.el
--- a/lisp/term/x-win.el	Sat Jun 05 08:37:45 1993 +0000
+++ b/lisp/term/x-win.el	Sat Jun 05 08:39:42 1993 +0000
@@ -529,6 +529,13 @@
       (setq initial-frame-alist (append initial-frame-alist
 					(x-parse-geometry res-geometry)))))
 
+;; Set x-selection-timeout, measured in milliseconds.
+(let ((res-selection-timeout
+       (x-get-resource "selectionTimeout" "SelectionTimeout")))
+  (setq x-selection-timeout 5000)
+  (if res-selection-timeout
+      (setq x-selection-timeout (string-to-number res-selection-timeout))))
+
 (defun x-win-suspend-error ()
   (error "Suspending an emacs running under X makes no sense"))
 (add-hook 'suspend-hook 'x-win-suspend-error)