File tree Expand file tree Collapse file tree 1 file changed +3
-4
lines changed Expand file tree Collapse file tree 1 file changed +3
-4
lines changed Original file line number Diff line number Diff line change @@ -463,11 +463,10 @@ specification. Everything else is encoded as string."
463
463
; ; Start decoding only if the last letter is 'e'
464
464
(when (eq ?e (aref string (1- (length string))))
465
465
(let ((response-q (process-get proc :response-q )))
466
- ; ; (nrepl-log-message string-q)
467
- ; ; (nrepl-log-message response-q)
468
466
(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))))))))
471
470
472
471
(defun nrepl--dispatch-response (response )
473
472
" Dispatch the RESPONSE to associated callback.
You can’t perform that action at this time.
0 commit comments