Mercurial > emacs
changeset 19002:f21881dcd27b
(read-quoted-char): Consistently downcase letter "digits".
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 26 Jul 1997 22:21:49 +0000 |
| parents | 2190c39dc640 |
| children | 9d24caacda44 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Sat Jul 26 22:20:51 1997 +0000 +++ b/lisp/subr.el Sat Jul 26 22:21:49 1997 +0000 @@ -704,7 +704,8 @@ (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))