From f3d1d00f31c72e300870cb3fbccf5ff772715698 Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Sun, 10 Oct 2021 17:04:03 -0500
Subject: Configurable event read function


diff --git a/lisp/kitty-keyboard-protocol.el b/lisp/kitty-keyboard-protocol.el
index 77de473..120be50 100644
--- a/lisp/kitty-keyboard-protocol.el
+++ b/lisp/kitty-keyboard-protocol.el
@@ -287,7 +287,7 @@ would swap meta and super.")
                     (eql e ?\;))
                 (< count 25))
       (setq count (1+ count))   ; safety
-      (setq e (read-char))
+      (setq e (funcall kitty-kbp-event-read-function))
       (setq complete-string (concat complete-string (string e))))
     ;; (send-string-to-terminal complete-string)
     (kitty-kbp-handle-non-printable complete-string)))
@@ -300,7 +300,7 @@ would swap meta and super.")
         (current-num 0)
         (e))
     (while (not suffix)
-      (setq e (read-event))
+      (setq e (funcall kitty-kbp-event-read-function))
       (if (<= ?0 e ?9)
           (setq current-num (+ (* current-num 10) (- e ?0)))
         (if (eql e ?\;)
-- 
cgit v0.10.1