diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2021-10-10 22:04:03 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2021-10-10 22:04:03 (GMT) |
| commit | f3d1d00f31c72e300870cb3fbccf5ff772715698 (patch) | |
| tree | 43346232674f7b658078c8f7a774fe04589e8317 /lisp/kitty-keyboard-protocol.el | |
| parent | bed226284e9762de58400e2a3a1e40444db532ab (diff) | |
| download | dotemacs-f3d1d00f31c72e300870cb3fbccf5ff772715698.zip dotemacs-f3d1d00f31c72e300870cb3fbccf5ff772715698.tar.gz dotemacs-f3d1d00f31c72e300870cb3fbccf5ff772715698.tar.bz2 | |
Configurable event read function
Diffstat (limited to 'lisp/kitty-keyboard-protocol.el')
| -rw-r--r-- | lisp/kitty-keyboard-protocol.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 ?\;) |