mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/jsonrpc.el (jsonrpc-request): Clarify comment.

Browse source
This commit is contained in:
João Távora 2018-08-11 14:19:10 +01:00
parent c580443325
commit d7b9737e69
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/jsonrpc.el
View file

@ -283,7 +283,7 @@ ignored."
(let* ((tag (cl-gensym "jsonrpc-request-catch-tag")) id-and-timer
cancelled
(retval
(unwind-protect ; protect against user-quit, for example
(unwind-protect
(catch tag
(setq
id-and-timer
@ -310,6 +310,10 @@ ignored."
(setq cancelled t)
`(cancelled ,cancel-on-input-retval))
(t (while t (accept-process-output nil 30)))))
;; In normal operation, cancellation is handled by the
;; timeout function and response filter, but we still have
;; to protect against user-quit (C-g) or the
;; `cancel-on-input' case.
(pcase-let* ((`(,id ,timer) id-and-timer))
(remhash id (jsonrpc--request-continuations connection))
(remhash (list deferred (current-buffer))