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

1 files changed, 8 insertions, 4 deletions

diff --git a/src/lread.c b/src/lread.c
index fc236ea84d9..f5d639e4494 100644
--- 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)