mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-04-06 20:22:19 +00:00
parent ae3b1442ce
commit 67ec7a685d
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/term/wyse50.el
View file

@ -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