Optimize list scanning in response

Author: arichiardi

inf-clojure.el

@@ -965,18 +965,15 @@ the `inf-clojure-prompt`."
       ;; Collect the output
       (set-buffer work-buffer)
       (goto-char (point-min))
-      ;; Skip past the command, if it was echoed
-      (and (looking-at command)
-           (forward-line))
-      (let* ((beg (if beg-string
-                      (progn (search-forward beg-string nil t) (match-beginning 0))
-                    (point)))
-             (end (if end-string
-                      (search-forward end-string nil t)
-                    (point-max)))
-             (buffer-string (buffer-substring-no-properties beg end)))
-        (when (and buffer-string (string-match inf-clojure-prompt buffer-string))
-          (substring buffer-string 0 (match-beginning 0)))))))
+      (let* ((beg (or (when (and beg-string (search-forward beg-string nil t))
+                        (match-beginning 0))
+                      (point-min)))
+             (end (or (when end-string
+                        (search-forward end-string nil t))
+                      (point-max)))
+             (prompt (when (search-forward inf-clojure-prompt nil t)
+                       (match-beginning 0))))
+        (buffer-substring-no-properties beg (or prompt end))))))
 
 (defun inf-clojure--nil-string-match-p (string)
   "Return true iff STRING is not nil.
@@ -1025,7 +1022,7 @@ for evaluation, therefore FORM should not include it."
 See variable `inf-clojure-arglists-form'."
   (thread-first
       (format (inf-clojure-arglists-form) fn)
-    (inf-clojure--process-response (inf-clojure-proc))
+    (inf-clojure--process-response (inf-clojure-proc) "(" ")")
     (inf-clojure--read-or-nil)
     (inf-clojure--list-or-nil)))
 
@@ -1098,7 +1095,7 @@ See variable `inf-clojure-buffer'."
   (when (not (string-blank-p expr))
     (thread-first
         (format (inf-clojure-completion-form) (substring-no-properties expr))
-      (inf-clojure--process-response (inf-clojure-proc))
+      (inf-clojure--process-response (inf-clojure-proc) "(" ")")
       (inf-clojure--read-or-nil)
       (inf-clojure--list-or-nil))))