(read1): Fix last change; "`" is not always special.

diff --git a/src/lread.c b/src/lread.c
index fc236ea84d9ad5bc80c6018b319ae98d24d73df6..f5d639e4494573e3689d0a84834953f772988e2e 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2271,13 +2271,15 @@ read1 (readcharfun, pch, first_in_list)
            UNREAD (next_next_char);
 
            ok = (next_next_char <= 040
-                 || index ("\"'`;([#?", next_next_char)
+                 || index ("\"';([#?", next_next_char)
+                 || (!first_in_list && next_next_char == '`')
                  || (new_backquote_flag && next_next_char == ','));
          }
        else
          {
            ok = (next_char <= 040
-                 || index ("\"'`;()[]#", next_char)
+                 || index ("\"';()[]#", next_char)
+                 || (!first_in_list && next_char == '`')
                  || (new_backquote_flag && next_char == ','));
          }
        UNREAD (next_char);
@@ -2436,7 +2438,8 @@ read1 (readcharfun, pch, first_in_list)
        UNREAD (next_char);
 
        if (next_char <= 040
-           || index ("\"'`;([#?", next_char)
+           || index ("\"';([#?", next_char)
+           || (!first_in_list && next_char == '`')
            || (new_backquote_flag && next_char == ','))
          {
            *pch = c;
@@ -2458,7 +2461,8 @@ read1 (readcharfun, pch, first_in_list)
          char *end = read_buffer + read_buffer_size;
 
          while (c > 040
-                && !index ("\"'`;()[]#", c)
+                && !index ("\"';()[]#", c)
+                && !(!first_in_list && c == '`')
                 && !(new_backquote_flag && c == ','))
            {
              if (end - p < MAX_MULTIBYTE_LENGTH)