(read_escape): For \S-a, return A.

diff --git a/src/lread.c b/src/lread.c
index ac9592f20c344fcab9c04c4aa170086c3a9a69f9..c08e5fc8c1a5b428e8a6ba1ad054c75e4227bd35 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -987,6 +987,8 @@ read_escape (readcharfun)
       c = READCHAR;
       if (c == '\\')
        c = read_escape (readcharfun);
+      if ((c & 0xff) >= 'a' && (c & 0xff) <= 'z')
+       return c - ('a' - 'A');
       return c | shift_modifier;
 
     case 'H':