From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 15 Nov 1994 17:05:30 +0000 (+0000)
Subject: (read_escape): For \S-a, return A.
X-Git-Tag: emacs-19.34~5917
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6e332b9c251884a98be87c7b645ce9c2bce7f34;p=emacs.git

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

diff --git a/src/lread.c b/src/lread.c
index ac9592f20c3..c08e5fc8c1a 100644
--- 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':