From: yamaoka <yamaoka>
Date: Mon, 13 Jan 2003 23:57:17 +0000 (+0000)
Subject: * gnus-util.el (gnus-read-event-char): Take an optional parameter even if
X-Git-Tag: t-gnus-6_15_14-00-quimby~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=36b03678a52253c419f6a4c1c5a932ecd34dce5e;p=elisp%2Fgnus.git-

* gnus-util.el (gnus-read-event-char): Take an optional parameter even if
 Mule 2.3 is running.
---

diff --git a/ChangeLog b/ChangeLog
index 4d18db9..cf7c70e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-util.el (gnus-read-event-char): Take an optional
+	parameter even if Mule 2.3 is running.
+
 2003-01-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* make.bat: Removed "-no-init-file" (it's the same as "-q").  Use
diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index e56c0cd..8806c74 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -559,7 +559,13 @@ If N, return the Nth ancestor instead."
 
 (defun gnus-read-event-char (&optional prompt)
   "Get the next event."
-  (let ((event (read-event prompt)))
+  (let ((event (condition-case nil
+		   (read-event prompt)
+		 ;; `read-event' doesn't allow arguments in Mule 2.3
+		 (wrong-number-of-arguments
+		  (when prompt
+		    (message "%s" prompt))
+		  (read-event)))))
     ;; should be gnus-characterp, but this can't be called in XEmacs anyway
     (cons (and (numberp event) event) event)))