Formatting
This commit is contained in:
parent
ce0bc6b3c3
commit
83c442798d
@ -81,13 +81,13 @@
|
|||||||
(funcall create-process)
|
(funcall create-process)
|
||||||
(let ((tryout 0))
|
(let ((tryout 0))
|
||||||
(prodigy-every 1
|
(prodigy-every 1
|
||||||
(lambda (next)
|
(lambda (next)
|
||||||
(setq tryout (1+ tryout))
|
(setq tryout (1+ tryout))
|
||||||
(if (process-live-p process)
|
(if (process-live-p process)
|
||||||
(when callback (funcall callback))
|
(when callback (funcall callback))
|
||||||
(if (= tryout prodigy-start-tryouts)
|
(if (= tryout prodigy-start-tryouts)
|
||||||
(prodigy-set-status service 'failed)
|
(prodigy-set-status service 'failed)
|
||||||
(funcall next))))))
|
(funcall next))))))
|
||||||
(plist-put service :process process)
|
(plist-put service :process process)
|
||||||
(when (not (plist-get service :inhibit-process-filter))
|
(when (not (plist-get service :inhibit-process-filter))
|
||||||
(set-process-filter
|
(set-process-filter
|
||||||
|
Loading…
Reference in New Issue
Block a user