diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2021-04-06 02:51:54 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2021-04-06 02:51:54 (GMT) |
| commit | af6bd852e5e38c5c85f32c6edca9c6d05bf1fe9f (patch) | |
| tree | 5d7f905fbce399f34a457904ca92bd4c889166b2 /lisp | |
| parent | f6043213da20344467aca91177941f544c0749d3 (diff) | |
| download | dotemacs-af6bd852e5e38c5c85f32c6edca9c6d05bf1fe9f.zip dotemacs-af6bd852e5e38c5c85f32c6edca9c6d05bf1fe9f.tar.gz dotemacs-af6bd852e5e38c5c85f32c6edca9c6d05bf1fe9f.tar.bz2 | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/xterm-kitty.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 ?\;) |