[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/cider 4004862521 1/2: Tweak code style
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/cider 4004862521 1/2: Tweak code style |
Date: |
Tue, 20 Dec 2022 10:58:38 -0500 (EST) |
branch: elpa/cider
commit 4004862521836ad613c26dc6a3e8ba94c68a229e
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>
Tweak code style
---
cider-connection.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/cider-connection.el b/cider-connection.el
index 147199cbc3..4f28f607c6 100644
--- a/cider-connection.el
+++ b/cider-connection.el
@@ -819,13 +819,14 @@ PARAMS is a plist as received by `cider-repl-create'."
(let* ((proj-dir (plist-get params :project-dir))
(host (plist-get params :host))
(port (plist-get params :port))
- (cljsp (member (plist-get params :repl-type) '(cljs)))
+ (cljsp (eq (plist-get params :repl-type) 'cljs))
(scored-repls
(delq nil
(mapcar (lambda (b)
(let ((bparams (cider--gather-connect-params nil
b)))
- (when (eq cljsp (member (plist-get bparams
:repl-type)
- '(cljs)))
+ (when (and cljsp
+ (eq (plist-get bparams :repl-type)
+ 'cljs))
(cons (buffer-name b)
(+
(if (equal proj-dir (plist-get bparams
:project-dir)) 8 0)