Mercurial > emacs
comparison lisp/subr.el @ 18948:faab6e4baa7d
(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 | 1ed40ed8e0c1 |
| children | f21881dcd27b |
comparison
equal
deleted
inserted
replaced
| 18947:386d68191907 | 18948:faab6e4baa7d |
|---|---|
| 688 RET terminates the character code and is discarded; | 688 RET terminates the character code and is discarded; |
| 689 any other non-digit terminates the character code and is then used as input.")) | 689 any other non-digit terminates the character code and is then used as input.")) |
| 690 (and prompt (message "%s-" prompt)) | 690 (and prompt (message "%s-" prompt)) |
| 691 (setq char (read-event)) | 691 (setq char (read-event)) |
| 692 (if inhibit-quit (setq quit-flag nil))) | 692 (if inhibit-quit (setq quit-flag nil))) |
| 693 ;; Translate TAB key into control-I ASCII character, and so on. | |
| 694 (and char | |
| 695 (let ((translated (lookup-key function-key-map (vector char)))) | |
| 696 (if translated | |
| 697 (setq char (aref translated 0))))) | |
| 693 (cond ((null char)) | 698 (cond ((null char)) |
| 694 ((not (integerp char)) | 699 ((not (integerp char)) |
| 695 (setq unread-command-events (list char) | 700 (setq unread-command-events (list char) |
| 696 done t)) | 701 done t)) |
| 697 ((and (<= ?0 char) (< char (+ ?0 (min 10 read-quoted-char-radix)))) | 702 ((and (<= ?0 char) (< char (+ ?0 (min 10 read-quoted-char-radix)))) |