mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(timer-kill-emacs-hook): New function.

Browse Source 
(kill-emacs-hook): Add the new hook.
This commit is contained in:
Richard M. Stallman 1994-04-06 00:11:17 +00:00
parent e37f06d7db
commit e2ec008d00
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/timer.el
View File

@ -40,6 +40,17 @@
;; rescheduling or people who otherwise expect to use the process frequently
"If non-nil, don't exit the timer process when no more events are pending.")
;; This should not be necessary, but on some systems, we get
;; unkillable processes without this.
;; It may be a kernel bug, but that's not certain.
(defun timer-kill-emacs-hook ()
(if timer-process
(progn
(set-process-sentinel timer-process nil)
(set-process-filter timer-process nil)
(delete-process timer-process))))
(add-hook 'kill-emacs-hook 'timer-kill-emacs-hook)
;;;###autoload
(defun run-at-time (time repeat function &rest args)
"Run a function at a time, and optionally on a regular interval.