* wl-util.el (wl-y-or-n-p-with-scroll): Use `wl-read-event-char'
authorhmurata <hmurata>
Tue, 31 Jan 2006 12:38:51 +0000 (12:38 +0000)
committerhmurata <hmurata>
Tue, 31 Jan 2006 12:38:51 +0000 (12:38 +0000)
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.

wl/ChangeLog
wl/wl-e21.el
wl/wl-mule.el
wl/wl-util.el
wl/wl-xmas.el

index 4668bce..85a502e 100644 (file)
@@ -1,3 +1,14 @@
+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.
index 45cd54e..c385827 100644 (file)
@@ -672,9 +672,9 @@ Special commands:
 
 (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)
index 54b55da..c37c710 100644 (file)
@@ -303,9 +303,9 @@ Warning: Unknown req `%S' with options `%S'" req options)
                             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)
index d543210..2f2ec54 100644 (file)
@@ -1107,10 +1107,10 @@ is enclosed by at least one regexp grouping construct."
       (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)))
index c130ea1..baa55e2 100644 (file)
@@ -554,9 +554,9 @@ Special commands:
 
 (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)