X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-xmas.el;h=80aec054cfd961cb33bc2acd6fbc49d3e06aca92;hb=a188e316446f771a0900c8e05026e39b224eb0f9;hp=b5af8742d57d8d8329aa6249cac49ee90983cfeb;hpb=48f244ac2670b488b2f00cd6c70733d1c8ddfb11;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index b5af874..80aec05 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -565,6 +565,14 @@ Special commands:
 	       (event-to-character event))
 	  event)))
 
+(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))