diff options
| author | Richard M. Stallman | 1994-11-15 17:05:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-15 17:05:30 +0000 |
| commit | e6e332b9c251884a98be87c7b645ce9c2bce7f34 (patch) | |
| tree | 74b4242f12be8debe7ed57e62954c0d9d988770a /src | |
| parent | d228f20729e9f5306eda8ea9ca3379f3fb212a49 (diff) | |
| download | emacs-e6e332b9c251884a98be87c7b645ce9c2bce7f34.tar.gz emacs-e6e332b9c251884a98be87c7b645ce9c2bce7f34.zip | |
(read_escape): For \S-a, return A.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 2 insertions, 0 deletions
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) | |||
| 987 | c = READCHAR; | 987 | c = READCHAR; |
| 988 | if (c == '\\') | 988 | if (c == '\\') |
| 989 | c = read_escape (readcharfun); | 989 | c = read_escape (readcharfun); |
| 990 | if ((c & 0xff) >= 'a' && (c & 0xff) <= 'z') | ||
| 991 | return c - ('a' - 'A'); | ||
| 990 | return c | shift_modifier; | 992 | return c | shift_modifier; |
| 991 | 993 | ||
| 992 | case 'H': | 994 | case 'H': |