From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Apr 1994 20:22:19 +0000 (+0000)
Subject: (kill-emacs-hook): Use add-hook.
X-Git-Tag: emacs-19.34~9146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67ec7a685dbc95e2c8c33c6d95e5169e7967bbb4;p=emacs.git

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

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