[nongnu] elpa/inf-clojure 3cfc4f0bd5 2/3: Don't use outer let

[ELPA Syncer]

branch: elpa/inf-clojure
commit 3cfc4f0bd598146b4ca664b8a3da2e5410681a36
Author: Justin Tirrell <jjttjj@gmail.com>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Don't use outer let
---
 inf-clojure.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index 0dbc7f6031..01d6f1bc9b 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -281,17 +281,17 @@ ALWAYS-ASK).  Otherwise get a list of all active 
inf-clojure
 REPLS and offer a choice.  It's recommended to rename REPL
 buffers after they are created with `rename-buffer'."
   (interactive "P")
-  (let ((new-repl-buffer
-         (if (and (not always-ask)
-                  (inf-clojure-repl-p))
-             (setq inf-clojure-buffer (current-buffer))
-           (let ((repl-buffers (inf-clojure-repls)))
-             (if (> (length repl-buffers) 0)
-                 (when-let ((repl-buffer (completing-read "Select default 
REPL: " repl-buffers nil t)))
-                   (setq inf-clojure-buffer (get-buffer repl-buffer)))
-               (user-error "No buffers have an inf-clojure process"))))))
-    (when new-repl-buffer
-      (message "Current inf-clojure REPL set to %s" new-repl-buffer))))
+  (if (and (not always-ask)
+           (inf-clojure-repl-p))
+      (progn
+        (setq inf-clojure-buffer (current-buffer))
+        (message "Current inf-clojure REPL set to %s" inf-clojure-buffer))
+    (let ((repl-buffers (inf-clojure-repls)))
+      (if (> (length repl-buffers) 0)
+          (when-let ((repl-buffer (completing-read "Select default REPL: " 
repl-buffers nil t)))
+            (setq inf-clojure-buffer (get-buffer repl-buffer))
+            (message "Current inf-clojure REPL set to %s" inf-clojure-buffer))
+        (user-error "No buffers have an inf-clojure process")))))
 
 (defvar inf-clojure--repl-type-lock nil
   "Global lock for protecting against proc filter race conditions.