Skip to content

Commit

Permalink
Fix keypad handle for non-ascii keys
Browse files Browse the repository at this point in the history
  • Loading branch information
@DogLooksGood
DogLooksGood committed Jan 7, 2025
1 parent bccfe34 commit 398b161
Showing 1 changed file with 7 additions and 9 deletions.
16 changes: 7 additions & 9 deletions meow-keypad.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -450,15 +450,13 @@ x f' to execute `C-x C-f' or `C-x f' when `C-x C-f' is not bound."
"Handle INPUT-EVENT with `meow-keypad-state-keymap'.
Return t if handling is completed."
(if (numberp input-event)
(let* ((k (if (= 27 input-event)
[escape]
(kbd (single-key-description input-event))))
(cmd (lookup-key meow-keypad-state-keymap k)))
(if cmd
(call-interactively cmd)
(meow--keypad-handle-input-event input-event)))
(meow--keypad-quit)))
(if (equal 'escape last-input-event)
(meow--keypad-quit)
(setq last-command-event last-input-event)
(let ((kbd (single-key-description input-event)))
(if-let* ((cmd (keymap-lookup meow-keypad-state-keymap kbd)))

Check failure on line 457 in meow-keypad.el

View workflow job for this annotation

GitHub Actions / check (27.1, true) 

You should depend on (emacs "29.1") or the compat package if you need `keymap-lookup'.

Check warning on line 457 in meow-keypad.el

View workflow job for this annotation

GitHub Actions / check (28.2, true) 

the function ‘keymap-lookup’ is not known to be defined.

Check failure on line 457 in meow-keypad.el

View workflow job for this annotation

GitHub Actions / check (28.2, true) 

You should depend on (emacs "29.1") or the compat package if you need `keymap-lookup'.
(call-interactively cmd)
(meow--keypad-handle-input-event input-event)))))

(defun meow--keypad-handle-input-event (input-event)
"Handle the INPUT-EVENT.
Expand Down

0 comments on commit 398b161

Please sign in to comment.