[nongnu] elpa/devil 60f6968429 1/2: Fix translation of function keys

[ELPA Syncer]

branch: elpa/devil
commit 60f696842940ee7a57d003f7b740a88ed1dd5d14
Author: Susam Pal <susam@susam.net>
Commit: Susam Pal <susam@susam.net>

    Fix translation of function keys
---
 CHANGES.org | 5 +++++
 devil.el    | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/CHANGES.org b/CHANGES.org
index dacb04194f..c765463150 100644
--- a/CHANGES.org
+++ b/CHANGES.org
@@ -24,6 +24,11 @@
 
 - Fix key translation when the Devil key is a key vector, e.g., =(kbd
   "<left>")=
+- Fix key translation of key sequences involving function keys, e.g.,
+  =, <tab>=, =, <backspace>=, etc.  For example, earlier =, <tab>=
+  translated to =C-TAB= and caused "undefined" error even if there was
+  a command bound to =C-<tab>=.  With this fix, =, <tab>= is now
+  translated to =C-<tab>= and invokes the command bound to it, if any.
 
 
 ** 0.3.0 (2023-05-11)
diff --git a/devil.el b/devil.el
index f5d228808f..f8ee68d388 100644
--- a/devil.el
+++ b/devil.el
@@ -211,7 +211,7 @@ or an undefined key sequence.  If the result is a valid key
 sequence for a special key command or an Emacs command, then the
 command is executed.  Otherwise, this function calls itself
 recursively to read yet another key from the user."
-  (setq key (vconcat key (vector (read-key (devil--make-prompt key)))))
+  (setq key (vconcat key (vector (read-event (devil--make-prompt key)))))
   (unless (devil--run-command key)
     (devil--read-key key)))