changeset 3493:b37b09c0b43d

(x-selection-timeout): Set it, using x-get-resource.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Jun 1993 08:39:42 +0000
parents 3e75726d76c7
children ddc7da3f66d1
files lisp/term/x-win.el
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)