From 4867f7b269ed1af64fffbe882fb9e7d0d6df4c89 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 24 Jul 1997 17:01:46 +0000 Subject: [PATCH] (read-quoted-char): Convert function keys like Return into ASCII equivalents. --- lisp/subr.el | 5 +++++ 1 file changed, 5 insertions(+) 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) -- 2.39.2