From af6bd852e5e38c5c85f32c6edca9c6d05bf1fe9f Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Mon, 5 Apr 2021 21:51:54 -0500
Subject: Make multiple-cursors work

Still not the right approach; should make the table method work, or
preferably, create a new keyboard-coding-system, which seems
impossible to do in pure elisp.

diff --git a/lisp/xterm-kitty.el b/lisp/xterm-kitty.el
index 16e388f..6610e86 100644
--- a/lisp/xterm-kitty.el
+++ b/lisp/xterm-kitty.el
@@ -242,6 +242,7 @@ would swap meta and super.")
     ;; (send-string-to-terminal complete-string)
     (xterm-kitty-handle-non-printable complete-string)))
 
+(fset 'xterm-kitty--original-read-char-exclusive (symbol-function 'read-char-exclusive))
 (defun xterm-kitty--handle-escape-code (prompt)
   "Try to optimize handling keycode using integer math; PROMPT is ignored."
   (let ((keycode 0)
@@ -250,7 +251,7 @@ would swap meta and super.")
         (current-num 0)
         (e))
     (while (not suffix)
-      (setq e (read-char))
+      (setq e (xterm-kitty--original-read-char-exclusive))
       (if (<= ?0 e ?9)
           (setq current-num (+ (* current-num 10) (- e ?0)))
         (if (eql e ?\;)
-- 
cgit v0.10.1