# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 740276189 0
# Node ID d2df5ca46b39ac28e0bcaf4968f622b4e6be6751
# Parent  6c2fc671adecfbb513946c1942de8e72b025e0f1
	* subr.el (event-basic-type): Deal with listy events properly.

diff -r 6c2fc671adec -r d2df5ca46b39 lisp/subr.el
--- a/lisp/subr.el	Wed Jun 16 23:50:05 1993 +0000
+++ b/lisp/subr.el	Thu Jun 17 00:16:29 1993 +0000
@@ -285,6 +285,8 @@
 (defun event-basic-type (event)
   "Returns the basic type of the given event (all modifiers removed).
 The value is an ASCII printing character (not upper case) or a symbol."
+  (if (consp event)
+      (setq event (car event)))
   (if (symbolp event)
       (car (get event 'event-symbol-elements))
     (let ((base (logand event (1- (lsh 1 18)))))