X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fliece-minibuf.el;h=1f44d85049d474cac5fc090f10e1090753ba0824;hb=79d116077b111cc1fb546761bc3e3f62c4afc1e2;hp=5104d63d5a1da479ff1e8b0ca4954d5b6c1959e9;hpb=4474bbe3792887d46fe9acbaf0415c325e09c905;p=elisp%2Fliece.git

diff --git a/lisp/liece-minibuf.el b/lisp/liece-minibuf.el
index 5104d63..1f44d85 100644
--- a/lisp/liece-minibuf.el
+++ b/lisp/liece-minibuf.el
@@ -158,7 +158,7 @@
    (if default
        (format "%s(default %s) " prompt default)
      prompt)
-   table predicate require-match nil))
+   table predicate require-match initial-input history default))
 
 (defvar liece-minibuffer-completion-separator ","
   "Separator used for separating strings in `liece-minibuffer-completing-read-multiple'.
@@ -222,9 +222,11 @@ PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HISTORY, DEFAULT."
 	   history default))
       (let ((liece-minibuffer-completion-table
 	     table))
-	(completing-read
-	 prompt #'liece-minibuffer-completing-read-multiple-1
-	 predicate require-match initial-input history default)))))
+	(split-string
+	 (completing-read
+	  prompt #'liece-minibuffer-completing-read-multiple-1
+	  predicate require-match initial-input history default)
+	 liece-minibuffer-completion-separator)))))
 
 (provide 'liece-minibuf)