# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869763706 0
# Node ID faab6e4baa7d43a18065911a58a8142b471f660d
# Parent  386d6819190765a0f0038d05194892a7ca8f4b90
(read-quoted-char): Convert function keys like Return
into ASCII equivalents.

diff -r 386d68191907 -r faab6e4baa7d lisp/subr.el
--- a/lisp/subr.el	Thu Jul 24 16:59:16 1997 +0000
+++ b/lisp/subr.el	Thu Jul 24 17:01:46 1997 +0000
@@ -690,6 +690,11 @@
 	(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)