Check for missing repls in cider-switch-to-repl-buffer

  Situation that should occur with broken links during development only.

1 files changed, 12 insertions, 11 deletions

diff --git a/cider-mode.el b/cider-mode.el
index 1426688b..93a2a191 100644
--- a/cider-mode.el
+++ b/cider-mode.el
@@ -108,17 +108,18 @@ Hint: You can use `display-buffer-reuse-frames' and
 `special-display-buffer-names' to customize the frame in which
 the buffer should appear."
   (interactive "P")
-  (let* ((repls (sesman-ensure-linked-session 'CIDER))
-         (type (cider-repl-type-for-buffer))
-         (a-repl)
-         (the-repl (seq-find (lambda (buf)
-                               (when (member buf repls)
-                                 (unless a-repl
-                                   (setq a-repl buf))
-                                 (equal type (cider-repl-type-for-buffer buf))))
-                             (buffer-list))))
-    (let ((repl (or the-repl a-repl)))
-      (cider--switch-to-repl-buffer repl set-namespace))))
+  (if-let* ((repls (cider-repls)))
+      (let* ((type (cider-repl-type-for-buffer))
+             (a-repl)
+             (the-repl (seq-find (lambda (buf)
+                                   (when (member buf repls)
+                                     (unless a-repl
+                                       (setq a-repl buf))
+                                     (equal type (cider-repl-type-for-buffer buf))))
+                                 (buffer-list))))
+        (let ((repl (or the-repl a-repl)))
+          (cider--switch-to-repl-buffer repl set-namespace)))
+    (user-error "No linked REPL")))
 
 (declare-function cider-load-buffer "cider-interaction")