(read1): Accept `.' (period) as symbol start like in CL

and earlier Emacs versions.

diff --git a/src/lread.c b/src/lread.c
index 67a04aa3f57b419c8cc414ba83f2a795bb1424cb..5554eac193f1dead058bbaa7a97321cfcf2db809 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2135,13 +2135,10 @@ read1 (readcharfun, pch, first_in_list)
 
     case '.':
       {
-       /* If a period is followed by a number, then we should read it
-          as a floating point number.  Otherwise, it denotes a dotted
-          pair.  */
        int next_char = READCHAR;
        UNREAD (next_char);
 
-       if (! (next_char >= '0' && next_char <= '9'))
+       if (next_char <= 040)
          {
            *pch = c;
            return Qnil;