(concat (riece-identity-prefix identity) " "
(riece-identity-server identity)))))
(if riece-abbrev-identity-string-function
- (funcall riece-abbrev-identity-string-function string)
- string)))
+ (setq string (funcall riece-abbrev-identity-string-function string)))
+ (put-text-property 0 (length string) 'riece-identity identity string)
+ string))
(defun riece-parse-identity (string)
(if riece-expand-identity-string-function
"")))
(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 "\\|"