procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-05 08:39:42 +00:00
parent 80da01904c
commit 553624bf48
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/term/x-win.el
View file

@ -529,6 +529,13 @@ This returns ARGS with the arguments that have been processed removed."
(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)