- (let ((completion-ignore-case t)
- (target
- (completing-read "Channel/User: "
- (mapcar #'list riece-current-channels)))
- key)
+ (let* ((completion-ignore-case t)
+ (target
+ (if riece-join-channel-candidate
+ (let ((default (riece-format-identity
+ riece-join-channel-candidate)))
+ (riece-completing-read-identity
+ (format "Channel/User (default %s): " default)
+ riece-current-channels nil nil nil nil default))
+ (riece-completing-read-identity
+ "Channel/User: " riece-current-channels)))
+ key)