X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-identity.el;h=098f50fe9b50f9f3c7e63320fde774558f4d04d4;hp=0f12d547705f194a164c9d7174c5103a01740bb5;hb=5ff9b4c7bc7409cb1e0fff6215e5802a731e9d1e;hpb=6c73c4dc2eb344e8908fbbaeddcd96119703ef61;ds=sidebyside

diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index 0f12d54..098f50f 100644
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -143,8 +143,8 @@ RFC2812, 2.2 \"Character codes\" says:
 			 "")))
 
 (defun riece-completing-read-identity (prompt channels
-					      &optional predicate must-match
-					      initial)
+					      &optional predicate require-match
+					      initial history default)
   (let* ((string
 	  (completing-read
 	   prompt
@@ -152,7 +152,7 @@ RFC2812, 2.2 \"Character codes\" says:
 		     (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 "\\|"