diff options
Diffstat (limited to 'lisp/term/xterm-kitty.el')
| -rw-r--r-- | lisp/term/xterm-kitty.el | 3 |
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 ?\;) |