From b9900799312d9f41e256d7b14459cdb565d225ab Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 13 Jan 2003 23:57:06 +0000 Subject: [PATCH] * gnus-util.el (gnus-read-event-char): Take an optional parameter even if Mule 2.3 is running. --- ChangeLog | 5 +++++ lisp/gnus-util.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9873c02..251a1cd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-01-13 Katsumi Yamaoka + + * lisp/gnus-util.el (gnus-read-event-char): Take an optional + parameter even if Mule 2.3 is running. + 2003-01-12 Katsumi Yamaoka * lisp/gnus-vers.el: T-gnus 6.15.12 revision 00. 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))) -- 1.7.10.4