# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954334665 0
# Node ID 5b49a098d0cc13db9be583c19fe91f9652a76588
# Parent  9a8814cc543c178f37f7924add89ee2f699eca93
(read1): Accept `.' (period) as symbol start like in CL
and earlier Emacs versions.

diff -r 9a8814cc543c -r 5b49a098d0cc src/lread.c
--- a/src/lread.c	Wed Mar 29 11:31:23 2000 +0000
+++ b/src/lread.c	Wed Mar 29 12:57:45 2000 +0000
@@ -2135,13 +2135,10 @@
 
     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;