"")))
(defun riece-completing-read-identity (prompt channels
- &optional predicate must-match
- initial)
+ &optional predicate require-match
+ initial history default)
(let* ((string
(completing-read
prompt
(list (riece-format-identity channel)))
(delq nil (copy-sequence (or channels
riece-current-channels))))
- predicate must-match initial))
+ predicate require-match initial history default))
(identity
(riece-parse-identity string)))
(unless (string-match (concat "^\\(" riece-channel-regexp "\\|"