* liece-minibuf.el (liece-minibuf-completing-read): Don't use the

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

diff --git a/lisp/liece-minibuf.el b/lisp/liece-minibuf.el
index d5063af..acf32d6 100644 (file)
--- a/lisp/liece-minibuf.el
+++ b/lisp/liece-minibuf.el
@@ -151,12 +151,17 @@
     (mapconcat (function car) liece-supported-user-mode-alist ""))))
 
 (defun liece-minibuffer-completing-read
-  (prompt table &optional predicate require-match initial-input history default)
-  (completing-read
-   (if default
-       (format "%s(default %s) " prompt default)
-     prompt)
-   table predicate require-match initial-input history default))
+  (prompt table &optional predicate require-match initial-input history
+         default)
+  (let ((result
+        (completing-read
+         (if default
+             (format "%s(default %s) " prompt default)
+           prompt)
+         table predicate require-match initial-input history)))
+    (if (and default (equal result ""))
+       default
+      result)))
 
 (defvar liece-minibuffer-completion-separator ","
   "Separator used for separating strings in `liece-minibuffer-completing-read-multiple'.
@@ -225,7 +230,7 @@ PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HISTORY, DEFAULT."
       (let ((liece-minibuffer-completion-table
             table))
        (split-string
-        (completing-read
+        (liece-minibuffer-completing-read
          prompt #'liece-minibuffer-completing-read-multiple-1
          predicate require-match initial-input history default)
         liece-minibuffer-completion-separator)))))