Mercurial > emacs
comparison lisp/term/x-win.el @ 4280:fcc66d1d9289
(x-selection-timeout): Use 20000 as default.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 25 Jul 1993 22:32:07 +0000 |
| parents | 79dc5c3370f8 |
| children | 2e51ffb537a8 |
comparison
equal
deleted
inserted
replaced
| 4279:d69483b37e0a | 4280:fcc66d1d9289 |
|---|---|
| 572 (cons '(reverse . t) default-frame-alist))))) | 572 (cons '(reverse . t) default-frame-alist))))) |
| 573 | 573 |
| 574 ;; Set x-selection-timeout, measured in milliseconds. | 574 ;; Set x-selection-timeout, measured in milliseconds. |
| 575 (let ((res-selection-timeout | 575 (let ((res-selection-timeout |
| 576 (x-get-resource "selectionTimeout" "SelectionTimeout"))) | 576 (x-get-resource "selectionTimeout" "SelectionTimeout"))) |
| 577 (setq x-selection-timeout 5000) | 577 (setq x-selection-timeout 20000) |
| 578 (if res-selection-timeout | 578 (if res-selection-timeout |
| 579 (setq x-selection-timeout (string-to-number res-selection-timeout)))) | 579 (setq x-selection-timeout (string-to-number res-selection-timeout)))) |
| 580 | 580 |
| 581 (defun x-win-suspend-error () | 581 (defun x-win-suspend-error () |
| 582 (error "Suspending an emacs running under X makes no sense")) | 582 (error "Suspending an emacs running under X makes no sense")) |