* gnus-util.el (gnus-read-event-char): Take an optional parameter even if
authoryamaoka <yamaoka>
Mon, 13 Jan 2003 23:57:17 +0000 (23:57 +0000)
committeryamaoka <yamaoka>
Mon, 13 Jan 2003 23:57:17 +0000 (23:57 +0000)
 Mule 2.3 is running.

ChangeLog
lisp/gnus-util.el

index 4d18db9..cf7c70e 100644 (file)
--- 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
index e56c0cd..8806c74 100644 (file)
@@ -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)))