Handle all errors returned by zmq-poller-wait-all

Newer versions of `zmq-poller` signal an EAGAIN error
This commit is contained in:
Nathaniel Nicandro 2018-01-21 01:04:38 -06:00
parent 78a9b376eb
commit c1b2330cc9

View file

@ -416,7 +416,7 @@ PRIORITIES - An alist of (CTYPE . PRIORITY) pairs where CTYPE is
sorted order." sorted order."
`(let ((events (condition-case nil `(let ((events (condition-case nil
(zmq-poller-wait-all ,poller (length ,channels) ,timeout) (zmq-poller-wait-all ,poller (length ,channels) ,timeout)
(zmq-EINTR nil)))) ((zmq-EAGAIN zmq-EINTR zmq-ETIMEDOUT) nil))))
(when (alist-get 0 events) (when (alist-get 0 events)
;; Got input from stdin, do the command it ;; Got input from stdin, do the command it
;; specifies ;; specifies