File tree Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -1357,13 +1357,13 @@ canceled the action, signal quit."
1357
1357
(or (null host)
1358
1358
(equal host (plist-get ses-params :host ))))))
1359
1359
(sesman-current-sessions 'CIDER '(project)))))
1360
- (when session
1361
- ( when (y-or-n-p
1362
- (concat
1363
- " A session with the same connection parameters already exists (" (car session) " ). "
1364
- " Do you want to connect a sibling REPL to it instead of creating a new session? " ))
1365
- (let ((debug-on-quit nil ))
1366
- (signal 'quit nil ) ))))
1360
+ (when ( and session
1361
+ (y-or-n-p
1362
+ (concat
1363
+ " A session with the same connection parameters already exists (" (car session) " ). "
1364
+ " Do you want to connect a sibling REPL to it instead of creating a new session? " ) ))
1365
+ (let ((debug-on-quit nil ))
1366
+ (signal 'quit nil ))))
1367
1367
params)
1368
1368
1369
1369
You can’t perform that action at this time.
0 commit comments