From: Richard M. Stallman Date: Thu, 24 Jul 1997 17:01:46 +0000 (+0000) Subject: (read-quoted-char): Convert function keys like Return X-Git-Tag: emacs-20.1~998 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4867f7b269ed1af64fffbe882fb9e7d0d6df4c89;p=emacs.git (read-quoted-char): Convert function keys like Return into ASCII equivalents. --- 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)