(read-quoted-char): Convert function keys like Return

into ASCII equivalents.

1 files changed, 5 insertions, 0 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 0fa6193bd33..14ae2ba3e85 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -690,6 +690,11 @@ any other non-digit terminates the character code and is then used as input."))
         (and prompt (message "%s-" prompt))
         (setq char (read-event))
         (if inhibit-quit (setq quit-flag nil)))
+      ;; Translate TAB key into control-I ASCII character, and so on.
+      (and char
+           (let ((translated (lookup-key function-key-map (vector char))))
+             (if translated
+                 (setq char (aref translated 0)))))
       (cond ((null char))
             ((not (integerp char))
              (setq unread-command-events (list char)