# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780635588 0
# Node ID e309bb9ccdc010e7123af9182d4bd1db8f084f50
# Parent  3e7833a8e16f2f5fdc3fa23e9786ff933eb588a6
(EVENT_HAS_PARAMETERS): Use type test macros.

diff -r 3e7833a8e16f -r e309bb9ccdc0 src/keyboard.h
--- a/src/keyboard.h	Tue Sep 27 03:12:28 1994 +0000
+++ b/src/keyboard.h	Tue Sep 27 03:13:08 1994 +0000
@@ -53,8 +53,7 @@
 /* Macros for dealing with lispy events.  */
 
 /* True iff EVENT has data fields describing it (i.e. a mouse click).  */
-#define EVENT_HAS_PARAMETERS(event) \
-  (XTYPE (event) == Lisp_Cons)
+#define EVENT_HAS_PARAMETERS(event) (CONSP (event))
 
 /* Extract the head from an event.
    This works on composite and simple events.  */