diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-06 20:22:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-06 20:22:19 +0000 |
| commit | 67ec7a685dbc95e2c8c33c6d95e5169e7967bbb4 (patch) | |
| tree | 6fd0b976352b86c618a9d55c2a19139e85d7a8b4 /lisp/term/wyse50.el | |
| parent | ae3b1442ce05e69d6c32c6a1a10fb56a7b384230 (diff) | |
| download | emacs-67ec7a685dbc95e2c8c33c6d95e5169e7967bbb4.tar.gz | |
(kill-emacs-hook): Use add-hook.
Diffstat (limited to 'lisp/term/wyse50.el')
| -rw-r--r-- | lisp/term/wyse50.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el index 64bd9532de4..55010fec572 100644 --- a/lisp/term/wyse50.el +++ b/lisp/term/wyse50.el @@ -142,9 +142,9 @@ M-r M-x move-to-window-line, Funct up-arrow or down-arrow are similar ;;; scrolled of the screen. Suspending (C-z) does not cause this problem. ;;; On such terminals, Emacs should sacrifice the first and last character of ;;; each mode line, rather than a whole screen column! -(setq kill-emacs-hook - (function (lambda () (interactive) - (send-string-to-terminal - (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))) +(add-hook 'kill-emacs-hook + (function (lambda () (interactive) + (send-string-to-terminal + (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))) ;;; wyse50.el ends here |