diff options
| author | Richard M. Stallman | 1993-06-05 08:39:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-05 08:39:42 +0000 |
| commit | 553624bf48e4ac40c98cef5de995e5cef95740a3 (patch) | |
| tree | 7f88c18929e00a68a84bad319f7cca64bd78060c | |
| parent | 80da01904ca6c21d7eda350e0c75a412029ef6f2 (diff) | |
| download | emacs-553624bf48e4ac40c98cef5de995e5cef95740a3.tar.gz emacs-553624bf48e4ac40c98cef5de995e5cef95740a3.zip | |
(x-selection-timeout): Set it, using x-get-resource.
| -rw-r--r-- | lisp/term/x-win.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index a0aca0814a3..ba9fee85cad 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -529,6 +529,13 @@ This returns ARGS with the arguments that have been processed removed." | |||
| 529 | (setq initial-frame-alist (append initial-frame-alist | 529 | (setq initial-frame-alist (append initial-frame-alist |
| 530 | (x-parse-geometry res-geometry))))) | 530 | (x-parse-geometry res-geometry))))) |
| 531 | 531 | ||
| 532 | ;; Set x-selection-timeout, measured in milliseconds. | ||
| 533 | (let ((res-selection-timeout | ||
| 534 | (x-get-resource "selectionTimeout" "SelectionTimeout"))) | ||
| 535 | (setq x-selection-timeout 5000) | ||
| 536 | (if res-selection-timeout | ||
| 537 | (setq x-selection-timeout (string-to-number res-selection-timeout)))) | ||
| 538 | |||
| 532 | (defun x-win-suspend-error () | 539 | (defun x-win-suspend-error () |
| 533 | (error "Suspending an emacs running under X makes no sense")) | 540 | (error "Suspending an emacs running under X makes no sense")) |
| 534 | (add-hook 'suspend-hook 'x-win-suspend-error) | 541 | (add-hook 'suspend-hook 'x-win-suspend-error) |