Mercurial > emacs
comparison lisp/term/x-win.el @ 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 | 4177a984e5c0 |
| children | ff9679293922 |
comparison
equal
deleted
inserted
replaced
| 3492:3e75726d76c7 | 3493:b37b09c0b43d |
|---|---|
| 527 (let ((res-geometry (x-get-resource "geometry" "Geometry"))) | 527 (let ((res-geometry (x-get-resource "geometry" "Geometry"))) |
| 528 (if res-geometry | 528 (if res-geometry |
| 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) |
| 535 | 542 |
| 536 ;;; Arrange for the kill and yank functions to set and check the clipboard. | 543 ;;; Arrange for the kill and yank functions to set and check the clipboard. |