diff options
| author | Noah Friedman | 2002-09-29 18:38:23 +0000 |
|---|---|---|
| committer | Noah Friedman | 2002-09-29 18:38:23 +0000 |
| commit | 580f6aa50b37fa5230557e75b7009a951b302281 (patch) | |
| tree | 9a2adc4ee91731ec18a993c9b7f640adeb9ad978 | |
| parent | 7058ef349c4da23db18a7fd4c740d13d9ecbdb8b (diff) | |
| download | emacs-580f6aa50b37fa5230557e75b7009a951b302281.tar.gz emacs-580f6aa50b37fa5230557e75b7009a951b302281.zip | |
(read-key): Use read-key-auxiliary-map, not read-key-aux-map.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/subr.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 678887c9e29..a822e61d918 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2002-09-29 Noah Friedman <friedman@splode.com> | ||
| 2 | |||
| 3 | * subr.el (read-key): Use read-key-auxiliary-map, not | ||
| 4 | read-key-aux-map. | ||
| 5 | |||
| 1 | 2002-09-29 Richard M. Stallman <rms@gnu.org> | 6 | 2002-09-29 Richard M. Stallman <rms@gnu.org> |
| 2 | 7 | ||
| 3 | * startup.el (user-mail-address): Initialize to a useful value | 8 | * startup.el (user-mail-address): Initialize to a useful value |
diff --git a/lisp/subr.el b/lisp/subr.el index 8c7212e5ef1..17d47e2d1b1 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1071,7 +1071,7 @@ Legitimate radix values are 8, 10 and 16." | |||
| 1071 | "Read a key from the keyboard. | 1071 | "Read a key from the keyboard. |
| 1072 | Contrary to `read-event' this will not return a raw event but will | 1072 | Contrary to `read-event' this will not return a raw event but will |
| 1073 | obey `function-key-map' and `key-translation-map' instead." | 1073 | obey `function-key-map' and `key-translation-map' instead." |
| 1074 | (let ((overriding-terminal-local-map read-key-aux-map)) | 1074 | (let ((overriding-terminal-local-map read-key-auxiliary-map)) |
| 1075 | (aref (read-key-sequence prompt nil t) 0))) | 1075 | (aref (read-key-sequence prompt nil t) 0))) |
| 1076 | 1076 | ||
| 1077 | (defun read-quoted-char (&optional prompt) | 1077 | (defun read-quoted-char (&optional prompt) |