diff options
| author | Richard M. Stallman | 1994-04-06 20:22:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-06 20:22:19 +0000 |
| commit | 67ec7a685dbc95e2c8c33c6d95e5169e7967bbb4 (patch) | |
| tree | 6fd0b976352b86c618a9d55c2a19139e85d7a8b4 | |
| parent | ae3b1442ce05e69d6c32c6a1a10fb56a7b384230 (diff) | |
| download | emacs-67ec7a685dbc95e2c8c33c6d95e5169e7967bbb4.tar.gz emacs-67ec7a685dbc95e2c8c33c6d95e5169e7967bbb4.zip | |
(kill-emacs-hook): Use add-hook.
| -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 | |||
| 142 | ;;; scrolled of the screen. Suspending (C-z) does not cause this problem. | 142 | ;;; scrolled of the screen. Suspending (C-z) does not cause this problem. |
| 143 | ;;; On such terminals, Emacs should sacrifice the first and last character of | 143 | ;;; On such terminals, Emacs should sacrifice the first and last character of |
| 144 | ;;; each mode line, rather than a whole screen column! | 144 | ;;; each mode line, rather than a whole screen column! |
| 145 | (setq kill-emacs-hook | 145 | (add-hook 'kill-emacs-hook |
| 146 | (function (lambda () (interactive) | 146 | (function (lambda () (interactive) |
| 147 | (send-string-to-terminal | 147 | (send-string-to-terminal |
| 148 | (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))) | 148 | (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))) |
| 149 | 149 | ||
| 150 | ;;; wyse50.el ends here | 150 | ;;; wyse50.el ends here |