From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 27 Apr 2000 19:10:15 +0000 (+0000)
Subject: (read1): Don't treat period followed by certain
X-Git-Tag: emacs-pretest-21.0.90~4109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=035eec486e617046cffd65a0086db3fec4edb05f;p=emacs.git

(read1): Don't treat period followed by certain
characters as symbol start.
---

diff --git a/src/lread.c b/src/lread.c
index 3235be321d7..67f6c956fe1 100644
--- 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;