(read1): Don't treat period followed by certain

characters as symbol start.

diff --git a/src/lread.c b/src/lread.c
index 3235be321d7556f9f9a5c58f1436f02819688641..67f6c956fe1ec17fe25583e8addc7a5324b792e4 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2165,7 +2165,8 @@ read1 (readcharfun, pch, first_in_list)
        int next_char = READCHAR;
        UNREAD (next_char);
 
-       if (next_char <= 040)
+       if (next_char <= 040
+           || index ("\"'`,(", next_char))
          {
            *pch = c;
            return Qnil;