* wl-xmas.el (wl-completing-read-multiple): Define as function.

* wl-mule.el (wl-completing-read-multiple): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 157773b..c7ef76b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-02-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-xmas.el (wl-completing-read-multiple): Define as function.
+
+       * wl-mule.el (wl-completing-read-multiple): Ditto.
+
 2004-02-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-demo.el (face-background-name): Defalias to avoid compile

diff --git a/wl/wl-mule.el b/wl/wl-mule.el
index dab21bd..b44bfc8 100644 (file)
--- a/wl/wl-mule.el
+++ b/wl/wl-mule.el
@@ -307,7 +307,13 @@ Warning: Unknown req `%S' with options `%S'" req options)
   (let ((event (read-event)))
     (cons (and (numberp event) event) event)))
 
-(defalias 'wl-completing-read-multiple 'completing-read)
+(defun wl-completing-read-multiple (prompt
+                                   table
+                                   &optional predicate
+                                   require-match initial-input)
+  "Read multiple strings in the minibuffer"
+  (split-string (completing-read prompt table predicate require-match
+                                initial-input) ","))
 
 (require 'product)
 (product-provide (provide 'wl-mule) (require 'wl-version))

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index 86ade39..80aec05 100644 (file)
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -565,7 +565,13 @@ Special commands:
               (event-to-character event))
          event)))
 
-(defalias 'wl-completing-read-multiple 'completing-read)
+(defun wl-completing-read-multiple (prompt
+                                   table
+                                   &optional predicate
+                                   require-match initial-input)
+  "Read multiple strings in the minibuffer"
+  (split-string (completing-read prompt table predicate require-match
+                                initial-input) ","))
 
 (require 'product)
 (product-provide (provide 'wl-xmas) (require 'wl-version))