instead of `read-event'.
* wl-xmas.el (wl-read-event-char): Add optional argument `prompt'.
* wl-mule.el (wl-read-event-char): Ditto.
* wl-e21.el (wl-read-event-char): Ditto.
+2006-01-31 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp>
+
+ * wl-util.el (wl-y-or-n-p-with-scroll): Use `wl-read-event-char'
+ instead of `read-event'.
+
+ * wl-xmas.el (wl-read-event-char): Add optional argument `prompt'.
+
+ * wl-mule.el (wl-read-event-char): Ditto.
+
+ * wl-e21.el (wl-read-event-char): Ditto.
+
2006-01-30 Yoichi NAKAYAMA <yoichi@geiin.org>
* wl-vars.el (wl-draft-send-confirm-type): Change default value.
(defalias 'wl-defface 'defface)
-(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)))
(put 'wl-modeline-biff-state-on 'risky-local-variable t)
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)))
(require 'product)
(while t
(discard-input)
(case (let ((cursor-in-echo-area t))
- (read-event prompt))
+ (cdr (wl-read-event-char prompt)))
((?y ?Y)
(throw 'done t))
- (?
+ (?\
(if scroll-by-SPC
(ignore-errors (scroll-up))
(throw 'done t)))
(defalias 'wl-defface 'defface)
-(defun wl-read-event-char ()
+(defun wl-read-event-char (&optional prompt)
"Get the next event."
- (let ((event (next-command-event)))
+ (let ((event (next-command-event nil prompt)))
(sit-for 0)
;; We junk all non-key events. Is this naughty?
(while (not (or (key-press-event-p event)