Mercurial > emacs

comparison src/lread.c @ 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 c921977bb0ce
children d149c4dc84f3
comparison
equal deleted inserted replaced
9937:cd2db9aeeb25 9938:6ed7a5e79c20
985 if (c != '-') 985 if (c != '-')
986 error ("Invalid escape character syntax"); 986 error ("Invalid escape character syntax");
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':
993 c = READCHAR; 995 c = READCHAR;
994 if (c != '-') 996 if (c != '-')