diff options
author | David Bremner <david@tethera.net> | 2014-01-12 19:56:25 -0400 |
---|---|---|
committer | David Bremner <david@tethera.net> | 2014-01-12 19:56:25 -0400 |
commit | 79b6b0190b36f5c9f14af48a3af675d2a16a46f3 (patch) | |
tree | b01cf560437b942cfbe1a5ade83da86749620179 /test | |
parent | b65ca8e0ba5e234cfdbf957a454d386da526a6fc (diff) | |
parent | f2e1f0b006d281b9b0a3361dcae37b019eecd502 (diff) |
Merge tag 'debian/0.17-3'
uploaded to Debian unstable
Diffstat (limited to 'test')
-rw-r--r-- | test/test-lib.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/test/test-lib.el b/test/test-lib.el index d26b49f7..37fcb3d0 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -77,19 +77,22 @@ invisible text." (setq start next-pos))) str)) +;; process-attributes is not defined everywhere, so define an +;; alternate way to test if a process still exists. + +(defun test-process-running (pid) + (= 0 + (signal-process pid 0))) + (defun orphan-watchdog-check (pid) "Periodically check that the process with id PID is still running, quit if it terminated." - (if (not (process-attributes pid)) + (if (not (test-process-running pid)) (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))) + (run-at-time 60 60 'orphan-watchdog-check pid)) (defun hook-counter (hook) "Count how many times a hook is called. Increments |