1 files changed, 2 insertions, 2 deletions

diff --git a/src/keymap.c b/src/keymap.c
index 671801fa1ba..abf934908cc 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1645,10 +1645,10 @@ specified buffer position instead of point are used.
 
       /* We are not interested in locations without event data */
 
-      if (EVENT_HAS_PARAMETERS (event))
+      if (EVENT_HAS_PARAMETERS (event) && CONSP (XCDR (event)))
         {
           Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
-          if (CONSP (XCDR (event)) && EQ (kind, Qmouse_click))
+          if (EQ (kind, Qmouse_click))
             position = EVENT_START (event);
         }
     }