File tree Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Expand file tree Collapse file tree 1 file changed +4
-1
lines changed Original file line number Diff line number Diff line change @@ -379,7 +379,9 @@ containing the remainder of the input strings which could not be
379
379
decoded. RESPONSE-Q is the original queue with successfully decoded messages
380
380
enqueued and with slot STUB containing a nested stack of an incompletely
381
381
decoded message or nil if the strings were completely decoded."
382
- (with-temp-buffer
382
+ (with-current-buffer (get-buffer-create " *nrepl-decoding*" )
383
+ (fundamental-mode )
384
+ (erase-buffer )
383
385
(if (queue-p string-q)
384
386
(while (queue-head string-q)
385
387
(insert (queue-dequeue string-q)))
@@ -400,6 +402,7 @@ decoded message or nil if the strings were completely decoded."
400
402
(setf (nrepl-response-queue-stub response-q) (cdr istack))
401
403
(queue-enqueue response-q (cadr istack))
402
404
(setf (nrepl-response-queue-stub response-q) nil ))
405
+ (erase-buffer )
403
406
(cons string-q response-q))))
404
407
405
408
(defun nrepl-bencode (object )
You can’t perform that action at this time.
0 commit comments