emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]