Skip to content

Commit 44d7c46

Browse files
xiongtxbbatsov
authored andcommitted
Replace {if, when}-let with {if, when}-let*
`cider-compat` now defines `{if, when}-let*` to match Emacs 26. See: https://travis-ci.org/clojure-emacs/cider/jobs/317868987#L1065
1 parent 19d7b4b commit 44d7c46

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

cider-mode.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -130,7 +130,7 @@ of the namespace in the Clojure source buffer."
130130
(setq a-repl b))
131131
(equal type (cider-connection-type-for-buffer b))))
132132
(buffer-list))))
133-
(if-let ((repl (or the-repl a-repl)))
133+
(if-let* ((repl (or the-repl a-repl)))
134134
(cider--switch-to-repl-buffer repl set-namespace)
135135
(user-error "No REPL found"))))
136136

@@ -156,13 +156,13 @@ Clojure buffer and the REPL buffer."
156156
(the-buf (let ((repl-type (cider-connection-type-for-buffer)))
157157
(seq-find (lambda (b)
158158
(unless (with-current-buffer b (derived-mode-p 'cider-repl-mode))
159-
(when-let ((type (cider-connection-type-for-buffer b)))
159+
(when-let* ((type (cider-connection-type-for-buffer b)))
160160
(unless a-buf
161161
(setq a-buf b))
162162
(or (equal type "multi")
163163
(equal type repl-type)))))
164164
(buffer-list)))))
165-
(if-let ((buf (or the-buf a-buf)))
165+
(if-let* ((buf (or the-buf a-buf)))
166166
(if cider-repl-display-in-current-window
167167
(pop-to-buffer-same-window buf)
168168
(pop-to-buffer buf))

0 commit comments

Comments
 (0)