File tree Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Expand file tree Collapse file tree 1 file changed +8
-8
lines changed Original file line number Diff line number Diff line change @@ -1357,14 +1357,14 @@ 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
- (if ( and session
1361
- (y-or-n-p
1362
- (concat
1363
- " A CIDER session with the same connection parameters already exists (" (car session) " ). "
1364
- " Are you sure you want to create a new session instead of using `cider-connect-sibling-clj(s)'? " ) ))
1365
- params
1366
- ( let (( debug-on- quit nil ))
1367
- ( signal 'quit nil )))) )
1360
+ (when session
1361
+ ( unless (y-or-n-p
1362
+ (concat
1363
+ " A CIDER session with the same connection parameters already exists (" (car session) " ). "
1364
+ " Are you sure you want to create a new session instead of using `cider-connect-sibling-clj(s)'? " ))
1365
+ ( let (( debug-on-quit nil ))
1366
+ ( signal ' quit nil ))) ))
1367
+ params )
1368
1368
1369
1369
1370
1370
; ;; Aliases
You can’t perform that action at this time.
0 commit comments