Skip to content

Commit 21172f4

Browse files
committed
[#780] make sure to dispatch requests in connection buffer
1 parent 837635a commit 21172f4

File tree

1 file changed

+3
-4
lines changed

1 file changed

+3
-4
lines changed

nrepl-client.el

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -463,11 +463,10 @@ specification. Everything else is encoded as string."
463463
;; Start decoding only if the last letter is 'e'
464464
(when (eq ?e (aref string (1- (length string))))
465465
(let ((response-q (process-get proc :response-q)))
466-
;; (nrepl-log-message string-q)
467-
;; (nrepl-log-message response-q)
468466
(nrepl-bdecode string-q response-q)
469-
(while (queue-head response-q)
470-
(nrepl--dispatch-response (queue-dequeue response-q)))))))
467+
(with-current-buffer (process-buffer proc)
468+
(while (queue-head response-q)
469+
(nrepl--dispatch-response (queue-dequeue response-q))))))))
471470

472471
(defun nrepl--dispatch-response (response)
473472
"Dispatch the RESPONSE to associated callback.

0 commit comments

Comments
 (0)