# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869955709 0
# Node ID f21881dcd27b745155264029bca00b62079beb1a
# Parent  2190c39dc64035603a3faff1dd9b53b1bb55d656
(read-quoted-char): Consistently downcase letter "digits".

diff -r 2190c39dc640 -r f21881dcd27b lisp/subr.el
--- 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))