Mercurial > emacs

changeset 6706:b7b510d4e406

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(kill-emacs-hook): Use add-hook.
author Richard M. Stallman <rms@gnu.org>
date Wed, 06 Apr 1994 20:22:19 +0000
parents 301d0609754b
children 31fce442168a
files lisp/term/wyse50.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/wyse50.el	Wed Apr 06 06:57:24 1994 +0000
+++ b/lisp/term/wyse50.el	Wed Apr 06 20:22:19 1994 +0000
@@ -142,9 +142,9 @@
 ;;; 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