(Starting Liece): New section.

[elisp/liece.git] / lisp / liece-minibuf.el

diff --git a/lisp/liece-minibuf.el b/lisp/liece-minibuf.el
index 5104d63..1f44d85 100644 (file)
--- 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)