/[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.313 by rms, Tue Apr 8 17:10:07 2003 UTC revision 1.314 by handa, Wed Apr 9 07:12:51 2003 UTC
# Line 2278  read1 (readcharfun, pch, first_in_list) Line 2278  read1 (readcharfun, pch, first_in_list)
2278              UNREAD (next_next_char);              UNREAD (next_next_char);
2279    
2280              ok = (next_next_char <= 040              ok = (next_next_char <= 040
2281                    || index ("\"';([#?", next_next_char)                    || (next_next_char < 0200
2282                    || (!first_in_list && next_next_char == '`')                        && (index ("\"';([#?", next_next_char)
2283                    || (new_backquote_flag && next_next_char == ','));                            || (!first_in_list && next_next_char == '`')
2284                              || (new_backquote_flag && next_next_char == ','))));
2285            }            }
2286          else          else
2287            {            {
2288              ok = (next_char <= 040              ok = (next_char <= 040
2289                    || index ("\"';()[]#?", next_char)                    || (next_char < 0200
2290                    || (!first_in_list && next_char == '`')                        && (index ("\"';()[]#?", next_char)
2291                    || (new_backquote_flag && next_char == ','));                            || (!first_in_list && next_char == '`')
2292                              || (new_backquote_flag && next_char == ','))));
2293            }            }
2294          UNREAD (next_char);          UNREAD (next_char);
2295          if (!ok)          if (!ok)
# Line 2445  read1 (readcharfun, pch, first_in_list) Line 2447  read1 (readcharfun, pch, first_in_list)
2447          UNREAD (next_char);          UNREAD (next_char);
2448    
2449          if (next_char <= 040          if (next_char <= 040
2450              || index ("\"';([#?", next_char)              || (next_char < 0200
2451              || (!first_in_list && next_char == '`')                  && index ("\"';([#?", next_char)
2452              || (new_backquote_flag && next_char == ','))                  || (!first_in_list && next_char == '`')
2453                    || (new_backquote_flag && next_char == ',')))
2454            {            {
2455              *pch = c;              *pch = c;
2456              return Qnil;              return Qnil;
# Line 2468  read1 (readcharfun, pch, first_in_list) Line 2471  read1 (readcharfun, pch, first_in_list)
2471            char *end = read_buffer + read_buffer_size;            char *end = read_buffer + read_buffer_size;
2472    
2473            while (c > 040            while (c > 040
2474                   && !index ("\"';()[]#", c)                   && (c >= 0200
2475                   && !(!first_in_list && c == '`')                       || (!index ("\"';()[]#", c)
2476                   && !(new_backquote_flag && c == ','))                           && !(!first_in_list && c == '`')
2477                             && !(new_backquote_flag && c == ','))))
2478              {              {
2479                if (end - p < MAX_MULTIBYTE_LENGTH)                if (end - p < MAX_MULTIBYTE_LENGTH)
2480                  {                  {

Legend:
Removed from v.1.313  
changed lines
  Added in v.1.314

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