Mercurial > emacs
changeset 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 | b11495a4ecdf |
| children | 6afe42b3e483 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Thu Mar 11 07:00:12 1993 +0000 +++ b/lisp/term/x-win.el Thu Mar 11 07:01:17 1993 +0000 @@ -508,9 +508,10 @@ (setq x-display-name (getenv "DISPLAY")))) (setq frame-creation-function 'x-create-frame) -(setq suspend-hook - '(lambda () - (error "Suspending an emacs running under X makes no sense"))) + +(defun x-win-suspend-error () + (error "Suspending an emacs running under X makes no sense")) +(add-hook 'suspend-hooks 'x-win-suspend-error) ;;; Arrange for the kill and yank functions to set and check the clipboard. (setq interprogram-cut-function 'x-select-text)