diff lisp/term/x-win.el @ 3493:b37b09c0b43d

(x-selection-timeout): Set it, using x-get-resource.

--- 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)