From 4039a2e37d987a72a1862956bc6c23d505f5f5e3 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 10 Feb 2004 13:19:11 +0000 Subject: [PATCH] * wl-xmas.el (wl-completing-read-multiple): Define as function. * wl-mule.el (wl-completing-read-multiple): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-mule.el | 8 +++++++- wl/wl-xmas.el | 8 +++++++- 3 files changed, 20 insertions(+), 2 deletions(-) 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 + + * wl-xmas.el (wl-completing-read-multiple): Define as function. + + * wl-mule.el (wl-completing-read-multiple): Ditto. + 2004-02-10 Hiroya Murata * 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)) -- 1.7.10.4