/[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.307 by kfstorm, Mon Feb 17 22:42:05 2003 UTC revision 1.308 by kfstorm, Tue Feb 18 16:11:17 2003 UTC
# Line 2271  read1 (readcharfun, pch, first_in_list) Line 2271  read1 (readcharfun, pch, first_in_list)
2271              UNREAD (next_next_char);              UNREAD (next_next_char);
2272    
2273              ok = (next_next_char <= 040              ok = (next_next_char <= 040
2274                    || index ("\"'`;([#?", next_next_char)                    || index ("\"';([#?", next_next_char)
2275                      || (!first_in_list && next_next_char == '`')
2276                    || (new_backquote_flag && next_next_char == ','));                    || (new_backquote_flag && next_next_char == ','));
2277            }            }
2278          else          else
2279            {            {
2280              ok = (next_char <= 040              ok = (next_char <= 040
2281                    || index ("\"'`;()[]#", next_char)                    || index ("\"';()[]#", next_char)
2282                      || (!first_in_list && next_char == '`')
2283                    || (new_backquote_flag && next_char == ','));                    || (new_backquote_flag && next_char == ','));
2284            }            }
2285          UNREAD (next_char);          UNREAD (next_char);
# Line 2436  read1 (readcharfun, pch, first_in_list) Line 2438  read1 (readcharfun, pch, first_in_list)
2438          UNREAD (next_char);          UNREAD (next_char);
2439    
2440          if (next_char <= 040          if (next_char <= 040
2441              || index ("\"'`;([#?", next_char)              || index ("\"';([#?", next_char)
2442                || (!first_in_list && next_char == '`')
2443              || (new_backquote_flag && next_char == ','))              || (new_backquote_flag && next_char == ','))
2444            {            {
2445              *pch = c;              *pch = c;
# Line 2458  read1 (readcharfun, pch, first_in_list) Line 2461  read1 (readcharfun, pch, first_in_list)
2461            char *end = read_buffer + read_buffer_size;            char *end = read_buffer + read_buffer_size;
2462    
2463            while (c > 040            while (c > 040
2464                   && !index ("\"'`;()[]#", c)                   && !index ("\"';()[]#", c)
2465                     && !(!first_in_list && c == '`')
2466                   && !(new_backquote_flag && c == ','))                   && !(new_backquote_flag && c == ','))
2467              {              {
2468                if (end - p < MAX_MULTIBYTE_LENGTH)                if (end - p < MAX_MULTIBYTE_LENGTH)

Legend:
Removed from v.1.307  
changed lines
  Added in v.1.308

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