+ (kill-emacs)))
+
+(defun orphan-watchdog (pid)
+ "Initiate orphan watchdog check."
+ ; If process-attributes returns nil right away, that probably means
+ ; it is unimplimented. So we delay two minutes before killing emacs.
+ (if (process-attributes pid)
+ (run-at-time 60 60 'orphan-watchdog-check pid)
+ (run-at-time 120 60 'orphan-watchdog-check pid)))