nil))))
match)))))
-(defun wl-read-event-char ()
+(defun wl-read-event-char (&optional prompt)
"Get the next event."
- (let ((event (read-event)))
+ (let ((event (read-event prompt)))
(cons (and (numberp event) 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-mule) (require 'wl-version))