* riece-identity.el (riece-completing-read-identity): Pass 6th &

[riece] / lisp / riece-identity.el

diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index 0f12d54..098f50f 100644 (file)
--- 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
                         "")))
 
 (defun riece-completing-read-identity (prompt channels

-                                             &optional predicate must-match
-                                             initial)
+                                             &optional predicate require-match
+                                             initial history default)

   (let* ((string
          (completing-read
           prompt
   (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))))
                     (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 "\\|"
         (identity
          (riece-parse-identity string)))
     (unless (string-match (concat "^\\(" riece-channel-regexp "\\|"