branch: elpa/inf-clojure
commit c8b49cc4a6ae09f84092ff408f8520ab96db04fb
Author: Bozhidar Batsov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
Use pcase-let to destructure string boundaries
---
inf-clojure.el | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index 5d589aae39..d565893a11 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -1316,14 +1316,11 @@ output from and including the `inf-clojure-prompt`."
;; Collect the output
(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)))))
+ (let ((buffer-string (buffer-substring-no-properties (point-min)
(point-max))))
+ (pcase-let ((`(,beg-pos ,end-pos ,prompt-pos)
+ (inf-clojure--string-boundaries buffer-string
inf-clojure-prompt beg-regexp end-regexp)))
+ (inf-clojure--log-string buffer-string "<-RES----")
+ (substring buffer-string beg-pos (min end-pos prompt-pos))))))))
(defun inf-clojure--nil-string-match-p (string)
"Return non-nil if STRING represents a nil REPL response."
