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