Mercurial > emacs

changeset 18948:faab6e4baa7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-quoted-char): Convert function keys like Return into ASCII equivalents.
author Richard M. Stallman <rms@gnu.org>
date Thu, 24 Jul 1997 17:01:46 +0000
parents 386d68191907
children eff111be9c5b
files lisp/subr.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)