From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 29 Mar 2000 12:57:45 +0000 (+0000)
Subject: (read1): Accept `.' (period) as symbol start like in CL
X-Git-Tag: emacs-pretest-21.0.90~4435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03859d20b72cfc6b4f37518e5e748c9b5caab40b;p=emacs.git

(read1): Accept `.' (period) as symbol start like in CL
and earlier Emacs versions.
---

diff --git a/src/lread.c b/src/lread.c
index 67a04aa3f57..5554eac193f 100644
--- 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;