[Emacs-diffs] Changes to emacs/src/lread.c

[Kenichi Handa]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.313 emacs/src/lread.c:1.314
*** emacs/src/lread.c:1.313     Tue Apr  8 13:10:07 2003
--- emacs/src/lread.c   Wed Apr  9 03:12:51 2003
***************
*** 2278,2293 ****
            UNREAD (next_next_char);
  
            ok = (next_next_char <= 040
!                 || index ("\"';([#?", next_next_char)
!                 || (!first_in_list && next_next_char == '`')
!                 || (new_backquote_flag && next_next_char == ','));
          }
        else
          {
            ok = (next_char <= 040
!                 || index ("\"';()[]#?", next_char)
!                 || (!first_in_list && next_char == '`')
!                 || (new_backquote_flag && next_char == ','));
          }
        UNREAD (next_char);
        if (!ok)
--- 2278,2295 ----
            UNREAD (next_next_char);
  
            ok = (next_next_char <= 040
!                 || (next_next_char < 0200
!                     && (index ("\"';([#?", next_next_char)
!                         || (!first_in_list && next_next_char == '`')
!                         || (new_backquote_flag && next_next_char == ','))));
          }
        else
          {
            ok = (next_char <= 040
!                 || (next_char < 0200
!                     && (index ("\"';()[]#?", next_char)
!                         || (!first_in_list && next_char == '`')
!                         || (new_backquote_flag && next_char == ','))));
          }
        UNREAD (next_char);
        if (!ok)
***************
*** 2445,2453 ****
        UNREAD (next_char);
  
        if (next_char <= 040
!           || index ("\"';([#?", next_char)
!           || (!first_in_list && next_char == '`')
!           || (new_backquote_flag && next_char == ','))
          {
            *pch = c;
            return Qnil;
--- 2447,2456 ----
        UNREAD (next_char);
  
        if (next_char <= 040
!           || (next_char < 0200
!               && index ("\"';([#?", next_char)
!               || (!first_in_list && next_char == '`')
!               || (new_backquote_flag && next_char == ',')))
          {
            *pch = c;
            return Qnil;
***************
*** 2468,2476 ****
          char *end = read_buffer + read_buffer_size;
  
          while (c > 040
!                && !index ("\"';()[]#", c)
!                && !(!first_in_list && c == '`')
!                && !(new_backquote_flag && c == ','))
            {
              if (end - p < MAX_MULTIBYTE_LENGTH)
                {
--- 2471,2480 ----
          char *end = read_buffer + read_buffer_size;
  
          while (c > 040
!                && (c >= 0200
!                    || (!index ("\"';()[]#", c)
!                        && !(!first_in_list && c == '`')
!                        && !(new_backquote_flag && c == ','))))
            {
              if (end - p < MAX_MULTIBYTE_LENGTH)
                {