From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Apr 1994 00:11:17 +0000 (+0000)
Subject: (timer-kill-emacs-hook): New function.
X-Git-Tag: emacs-19.34~9159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2ec008d003a2492bc375b059d653b955296e047;p=emacs.git

(timer-kill-emacs-hook): New function.
(kill-emacs-hook): Add the new hook.
---

diff --git a/lisp/timer.el b/lisp/timer.el
index c069e13159e..7b1d570c548 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -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.