summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRavi R Kiran <aine.marina@gmail.com>2021-09-24 03:02:00 (GMT)
committerRavi R Kiran <aine.marina@gmail.com>2021-09-24 03:02:00 (GMT)
commitf41d44c3586dca1682c3703b7b0834887f59b082 (patch)
treed72f3d3056fc388f843afdb416a981c1434550eb
parent7ef532b101ee892ea0c1885f7e4ce26fdb5f2a9b (diff)
downloaddotemacs-f41d44c3586dca1682c3703b7b0834887f59b082.zip
dotemacs-f41d44c3586dca1682c3703b7b0834887f59b082.tar.gz
dotemacs-f41d44c3586dca1682c3703b7b0834887f59b082.tar.bz2
read-event seems to avoid keystroke interleaving problems
-rw-r--r--lisp/term/xterm-kitty.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/term/xterm-kitty.el b/lisp/term/xterm-kitty.el
index bc65e6d..c696cd0 100644
--- a/lisp/term/xterm-kitty.el
+++ b/lisp/term/xterm-kitty.el
@@ -255,7 +255,6 @@ 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)
"Handle keycode using integer math; PROMPT is ignored."
(let ((keycode 0)
@@ -264,7 +263,7 @@ would swap meta and super.")
(current-num 0)
(e))
(while (not suffix)
- (setq e (xterm-kitty--original-read-char-exclusive))
+ (setq e (read-event))
(if (<= ?0 e ?9)
(setq current-num (+ (* current-num 10) (- e ?0)))
(if (eql e ?\;)