diff options
-rw-r--r-- | cider-connection.el | 3 | ||||
-rw-r--r-- | cider.el | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/cider-connection.el b/cider-connection.el index 67e6c390..a7a957c8 100644 --- a/cider-connection.el +++ b/cider-connection.el @@ -347,7 +347,8 @@ entire session." (let* ((repl (or repl (sesman-browser-get 'object) (cider-current-repl nil 'ensure))) - (params (thread-first (cider--gather-connect-params nil repl) + (params (thread-first () + (cider--gather-connect-params repl) (plist-put :session-name (sesman-session-name-for-object 'CIDER repl)) (plist-put :repl-buffer repl)))) (cider--close-connection repl 'no-kill) @@ -991,11 +991,12 @@ server is created." (interactive "P") (cider-nrepl-connect (let* ((other-repl (or other-repl (cider-current-repl nil 'ensure))) + (other-params (cider--gather-connect-params nil other-repl)) (ses-name (unless (nrepl-server-p other-repl) (sesman-session-name-for-object 'CIDER other-repl)))) (thread-first params (cider--update-do-prompt) - (cider--gather-connect-params other-repl) + (append other-params) (plist-put :repl-init-function nil) (plist-put :repl-type "clj") (plist-put :session-name ses-name))))) @@ -1009,12 +1010,13 @@ OTHER-REPL defaults to `cider-current-repl' but in programs can also be a server buffer, in which case a new session for that server is created." (interactive "P") (let* ((other-repl (or other-repl (cider-current-repl nil 'ensure))) + (other-params (cider--gather-connect-params nil other-repl)) (ses-name (unless (nrepl-server-p other-repl) (sesman-session-name-for-object 'CIDER other-repl)))) (cider-nrepl-connect (thread-first params (cider--update-do-prompt) - (cider--gather-connect-params other-repl) + (append other-params) (cider--update-cljs-type) (cider--update-cljs-init-function) (plist-put :session-name ses-name) |