From: teranisi <teranisi>
Date: Tue, 10 Feb 2004 13:19:11 +0000 (+0000)
Subject: * wl-xmas.el (wl-completing-read-multiple): Define as function.
X-Git-Tag: wl-2_11_25~74
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4039a2e37d987a72a1862956bc6c23d505f5f5e3;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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))