diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-26 22:21:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-26 22:21:49 +0000 |
| commit | 92304bc8c7a25c417c7ae5b4f4a891d47630f2c5 (patch) | |
| tree | ee681271aba84859fb4cf20e7cdee97351e07ae4 /lisp/subr.el | |
| parent | aec2b95b437c14c890d0483b7f54365c9bba6a63 (diff) | |
| download | emacs-92304bc8c7a25c417c7ae5b4f4a891d47630f2c5.tar.gz | |
(read-quoted-char): Consistently downcase letter "digits".
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 14ae2ba3e85..53c4b2716b3 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -704,7 +704,8 @@ any other non-digit terminates the character code and is then used as input.")) (and prompt (setq prompt (message "%s %c" prompt char)))) ((and (<= ?a (downcase char)) (< (downcase char) (+ ?a -10 (min 26 read-quoted-char-radix)))) - (setq code (+ (* code read-quoted-char-radix) (+ 10 (- char ?a)))) + (setq code (+ (* code read-quoted-char-radix) + (+ 10 (- (downcase char) ?a)))) (and prompt (setq prompt (message "%s %c" prompt char)))) ((and (not first) (eq char ?\C-m)) (setq done t)) |