/[emacs]/emacs/src/lread.c
ViewVC logotype

Diff of /emacs/src/lread.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.305 by lektu, Tue Feb 4 14:03:12 2003 UTC revision 1.306 by kfstorm, Thu Feb 13 12:44:57 2003 UTC
# Line 1697  read_escape (readcharfun, stringp, byter Line 1697  read_escape (readcharfun, stringp, byter
1697        return c | alt_modifier;        return c | alt_modifier;
1698    
1699      case 's':      case 's':
1700          if (stringp)
1701            return ' ';
1702        c = READCHAR;        c = READCHAR;
1703        if (c != '-')        if (c != '-') {
1704          error ("Invalid escape character syntax");          UNREAD (c);
1705            return ' ';
1706          }
1707        c = READCHAR;        c = READCHAR;
1708        if (c == '\\')        if (c == '\\')
1709          c = read_escape (readcharfun, 0, byterep);          c = read_escape (readcharfun, 0, byterep);
# Line 2247  read1 (readcharfun, pch, first_in_list) Line 2251  read1 (readcharfun, pch, first_in_list)
2251      case '?':      case '?':
2252        {        {
2253          int discard;          int discard;
2254            int nextc;
2255    
2256          c = READCHAR;          c = READCHAR;
2257          if (c < 0)          if (c < 0)
# Line 2257  read1 (readcharfun, pch, first_in_list) Line 2262  read1 (readcharfun, pch, first_in_list)
2262          else if (BASE_LEADING_CODE_P (c))          else if (BASE_LEADING_CODE_P (c))
2263            c = read_multibyte (c, readcharfun);            c = read_multibyte (c, readcharfun);
2264    
2265            nextc = READCHAR;
2266            UNREAD (nextc);
2267            if (nextc > 040
2268                && !(nextc == '?'
2269                     || nextc == '\"' || nextc == '\'' || nextc == ';'
2270                     || nextc == '(' || nextc == ')'
2271                     || nextc == '[' || nextc == ']' || nextc == '#'))
2272              Fsignal (Qinvalid_read_syntax, Fcons (make_string ("?", 1), Qnil));
2273    
2274          return make_number (c);          return make_number (c);
2275        }        }
2276    

Legend:
Removed from v.1.305  
changed lines
  Added in v.1.306

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26