Mercurial > emacs
comparison lisp/term/x-win.el @ 2103:bd76e0e3622c
* term/x-win.el: Disable suspending under X windows by setting
suspend-hooks, not suspend-hook. The latter is an obsolete name.
Use add-hook instead of setting suspend-hooks directly.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 11 Mar 1993 07:01:17 +0000 |
| parents | d8ba7550a0cc |
| children | e56f3fa61815 |
comparison
equal
deleted
inserted
replaced
| 2102:b11495a4ecdf | 2103:bd76e0e3622c |
|---|---|
| 506 (setq command-line-args (x-handle-args command-line-args)) | 506 (setq command-line-args (x-handle-args command-line-args)) |
| 507 (x-open-connection (or x-display-name | 507 (x-open-connection (or x-display-name |
| 508 (setq x-display-name (getenv "DISPLAY")))) | 508 (setq x-display-name (getenv "DISPLAY")))) |
| 509 | 509 |
| 510 (setq frame-creation-function 'x-create-frame) | 510 (setq frame-creation-function 'x-create-frame) |
| 511 (setq suspend-hook | 511 |
| 512 '(lambda () | 512 (defun x-win-suspend-error () |
| 513 (error "Suspending an emacs running under X makes no sense"))) | 513 (error "Suspending an emacs running under X makes no sense")) |
| 514 (add-hook 'suspend-hooks 'x-win-suspend-error) | |
| 514 | 515 |
| 515 ;;; Arrange for the kill and yank functions to set and check the clipboard. | 516 ;;; Arrange for the kill and yank functions to set and check the clipboard. |
| 516 (setq interprogram-cut-function 'x-select-text) | 517 (setq interprogram-cut-function 'x-select-text) |
| 517 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value) | 518 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value) |
| 518 | 519 |