diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-03-11 07:01:17 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-03-11 07:01:17 +0000 |
| commit | 51420cc7c2711e2ccf3b1fa20ab8c9861c91380a (patch) | |
| tree | 515134d4926a791ff058ec706b0b6310469d8f23 /lisp/term/x-win.el | |
| parent | b1839491710924caf83bfdc2533adfc6ab34aacb (diff) | |
| download | emacs-51420cc7c2711e2ccf3b1fa20ab8c9861c91380a.tar.gz emacs-51420cc7c2711e2ccf3b1fa20ab8c9861c91380a.tar.bz2 emacs-51420cc7c2711e2ccf3b1fa20ab8c9861c91380a.zip | |
* 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.
Diffstat (limited to 'lisp/term/x-win.el')
| -rw-r--r-- | lisp/term/x-win.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 91a50f6491c..a8f9ecb571d 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -508,9 +508,10 @@ This returns ARGS with the arguments that have been processed removed." (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) |