(kill-emacs-hook): Use add-hook.

diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el
index 64bd9532de4ee5498b8f4c97167f4d05491eed4b..55010fec5727b1069fdd76ebae8e99d37da9cf44 100644 (file)
--- 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