diff --git a/exwm-core.el b/exwm-core.el
index 0f48de2..7fd3a61 100644
--- a/exwm-core.el
+++ b/exwm-core.el
@@ -190,7 +190,7 @@ least SECS seconds later."
               (active-minibuffer-window)
               (memq last-input-event exwm-input--global-prefix-keys)
               (memq last-input-event exwm-input-prefix-keys)
-              (assq last-input-event (cdr exwm-mode-map))
+              (lookup-key exwm-mode-map (vector last-input-event))
               (gethash last-input-event exwm-input--simulation-keys))
           (set-transient-map (make-composed-keymap (list exwm-mode-map
                                                          global-map)))
diff --git a/exwm-input.el b/exwm-input.el
index 3794426..ee44624 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -566,7 +566,7 @@ instead."
                      ;;
                      (memq event exwm-input--global-prefix-keys)
                      (memq event exwm-input-prefix-keys)
-                     (assq event (cdr exwm-mode-map))
+                     (lookup-key exwm-mode-map (vector event))
                      (gethash event exwm-input--simulation-keys)))
         (setq mode xcb:Allow:AsyncKeyboard)
         (exwm-input--cache-event event))