X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-xmas.el;h=8e95570230ddbecc07e0da832c86c598d81cda12;hb=1f17ca3778008a59589a183a9440329055089d01;hp=a9caf18d2e2907d381d7f33b8c61b756d72f3b41;hpb=fda32c1bfee5b97e5813e88e2d0ff157fa372b6b;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
index a9caf18..8e95570 100644
--- a/wl/wl-xmas.el
+++ b/wl/wl-xmas.el
@@ -1,7 +1,7 @@
 ;;; wl-xmas.el -- Wanderlust modules for XEmacsen.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
-;; Copyright 2000 Katsumi Yamaoka <yamaoka@jpl.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 2000 Katsumi Yamaoka <yamaoka@jpl.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;;	Katsumi Yamaoka <yamaoka@jpl.org>
@@ -518,6 +518,19 @@ Special commands:
 
 (defalias 'wl-defface 'defface)
 
+(defun wl-read-event-char ()
+  "Get the next event."
+  (let ((event (next-command-event)))
+    (sit-for 0)
+    ;; We junk all non-key events.  Is this naughty?
+    (while (not (or (key-press-event-p event)
+		    (button-press-event-p event)))
+      (dispatch-event event)
+      (setq event (next-command-event)))
+    (cons (and (key-press-event-p event)
+	       (event-to-character event))
+	  event)))
+
 (require 'product)
 (product-provide (provide 'wl-xmas) (require 'wl-version))