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

[Kim F. Storm]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.307 emacs/src/lread.c:1.308
*** emacs/src/lread.c:1.307     Mon Feb 17 17:42:05 2003
--- emacs/src/lread.c   Tue Feb 18 11:11:17 2003
***************
*** 2271,2283 ****
            UNREAD (next_next_char);
  
            ok = (next_next_char <= 040
!                 || index ("\"'`;([#?", next_next_char)
                  || (new_backquote_flag && next_next_char == ','));
          }
        else
          {
            ok = (next_char <= 040
!                 || index ("\"'`;()[]#", next_char)
                  || (new_backquote_flag && next_char == ','));
          }
        UNREAD (next_char);
--- 2271,2285 ----
            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);
***************
*** 2436,2442 ****
        UNREAD (next_char);
  
        if (next_char <= 040
!           || index ("\"'`;([#?", next_char)
            || (new_backquote_flag && next_char == ','))
          {
            *pch = c;
--- 2438,2445 ----
        UNREAD (next_char);
  
        if (next_char <= 040
!           || index ("\"';([#?", next_char)
!           || (!first_in_list && next_char == '`')
            || (new_backquote_flag && next_char == ','))
          {
            *pch = c;
***************
*** 2458,2464 ****
          char *end = read_buffer + read_buffer_size;
  
          while (c > 040
!                && !index ("\"'`;()[]#", c)
                 && !(new_backquote_flag && c == ','))
            {
              if (end - p < MAX_MULTIBYTE_LENGTH)
--- 2461,2468 ----
          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)