From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Kevin Rodgers <ihs_4664@yahoo.com>
Newsgroups: gmane.emacs.help
Subject: Re: How to distinguish character from noncharacter input events?
Date: Wed, 11 Aug 2004 17:53:17 -0600
Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <411AB16D.1010600@yahoo.com>
References: <wkllgn5bv7.fsf@TheWorld.com>
	<jwvllgnau93.fsf-monnier+gnu.emacs.help@gnu.org>
	<wkvffpz5qh.fsf@TheWorld.com>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: sea.gmane.org 1092268626 7619 80.91.224.253 (11 Aug 2004 23:57:06 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Wed, 11 Aug 2004 23:57:06 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Aug 12 01:56:59 2004
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from lists.gnu.org ([199.232.76.165])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1Bv2xn-0006aC-00
	for <geh-help-gnu-emacs@m.gmane.org>; Thu, 12 Aug 2004 01:56:59 +0200
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.33)
	id 1Bv31f-0004q0-Pa
	for geh-help-gnu-emacs@m.gmane.org; Wed, 11 Aug 2004 20:00:59 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!feed.news.tiscali.de!fu-berlin.de!uni-berlin.de!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 23
Original-X-Trace: news.uni-berlin.de vYr7t8WTQwU8RiRBgfe5GwHAPTkcm/1Ep3esyrZOMwYdH0GWE=
User-Agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US;
	rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2
X-Accept-Language: en-us
Original-Xref: shelby.stanford.edu gnu.emacs.help:124744
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:20089
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:20089

Joe Fineman wrote:
 > Stefan Monnier <monnier@iro.umontreal.ca> writes:
 >>What's your definition of a "character event"?
 >
 > As a practical matter, it means an event that will not give the error
 > message "non-character input event" when read-char encounters it.

You could implement the same check as read-char:

(defun character-event-p (event)
   "Return non-nil if EVENT is a character event."
   ;; see Fread_char:
   (if (symbolp event)
       (let* ((mask (get event 'event-symbol-element-mask))
              (char (if mask
                        (get (car mask) 'ascii-character))))
         (if char
             (setq event (logior char (car (cdr mask)))))))
   (integerp event))

-- 
Kevin Rodgers