Avoid leaking buffers from inf-clojure--process-response

Author: arichiardi

inf-clojure.el

@@ -1220,25 +1220,25 @@ output from and including the `inf-clojure-prompt`."
         (sanitized-command (inf-clojure--sanitize-command command)))
     (when (not (string-empty-p sanitized-command))
       (inf-clojure--log-string command "----CMD->")
-      (set-buffer (inf-clojure--get-redirect-buffer))
-      (erase-buffer)
-      (comint-redirect-send-command-to-process sanitized-command redirect-buffer-name process nil t)
+      (with-current-buffer (inf-clojure--get-redirect-buffer)
+        (erase-buffer)
+        (comint-redirect-send-command-to-process sanitized-command redirect-buffer-name process nil t))
       ;; Wait for the process to complete
-      (set-buffer (process-buffer process))
-      (while (and (null comint-redirect-completed)
-                  (accept-process-output process 1 0 t))
-        (sleep-for 0.01))
+      (with-current-buffer (process-buffer process)
+        (while (and (null comint-redirect-completed)
+                    (accept-process-output process 1 0 t))
+          (sleep-for 0.01)))
       ;; Collect the output
-      (set-buffer redirect-buffer-name)
-      (goto-char (point-min))
-      (let* ((buffer-string (buffer-substring-no-properties (point-min) (point-max)))
-             (boundaries (inf-clojure--string-boundaries buffer-string inf-clojure-prompt beg-regexp end-regexp))
-             (beg-pos (car boundaries))
-             (end-pos (car (cdr boundaries)))
-             (prompt-pos (car (cdr (cdr boundaries))))
-             (response-string (substring buffer-string beg-pos (min end-pos prompt-pos))))
-        (inf-clojure--log-string buffer-string "<-RES----")
-        response-string))))
+      (with-current-buffer redirect-buffer-name
+        (goto-char (point-min))
+        (let* ((buffer-string (buffer-substring-no-properties (point-min) (point-max)))
+               (boundaries (inf-clojure--string-boundaries buffer-string inf-clojure-prompt beg-regexp end-regexp))
+               (beg-pos (car boundaries))
+               (end-pos (car (cdr boundaries)))
+               (prompt-pos (car (cdr (cdr boundaries))))
+               (response-string (substring buffer-string beg-pos (min end-pos prompt-pos))))
+          (inf-clojure--log-string buffer-string "<-RES----")
+          response-string)))))
 
 (defun inf-clojure--nil-string-match-p (string)
   "Return true iff STRING is not nil.