Mercurial > emacs

changeset 9938:6ed7a5e79c20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_escape): For \S-a, return A.
author Richard M. Stallman <rms@gnu.org>
date Tue, 15 Nov 1994 17:05:30 +0000
parents cd2db9aeeb25
children 686916b836b4
files src/lread.c
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Tue Nov 15 17:04:22 1994 +0000
+++ b/src/lread.c	Tue Nov 15 17:05:30 1994 +0000
@@ -987,6 +987,8 @@
       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':