From: Kim F. Storm <storm@cua.dk>
Date: Tue, 18 Feb 2003 16:11:17 +0000 (+0000)
Subject: (read1): Fix last change; "`" is not always special.
X-Git-Tag: ttn-vms-21-2-B4~11136
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cce5761e5e4a0a1152268db74dedf9ea5647f34a;p=emacs.git

(read1): Fix last change; "`" is not always special.
---

diff --git a/src/lread.c b/src/lread.c
index fc236ea84d9..f5d639e4494 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2271,13 +2271,15 @@ read1 (readcharfun, pch, first_in_list)
 	    UNREAD (next_next_char);
 
 	    ok = (next_next_char <= 040
-		  || index ("\"'`;([#?", next_next_char)
+		  || index ("\"';([#?", next_next_char)
+		  || (!first_in_list && next_next_char == '`')
 		  || (new_backquote_flag && next_next_char == ','));
 	  }
 	else
 	  {
 	    ok = (next_char <= 040
-		  || index ("\"'`;()[]#", next_char)
+		  || index ("\"';()[]#", next_char)
+		  || (!first_in_list && next_char == '`')
 		  || (new_backquote_flag && next_char == ','));
 	  }
 	UNREAD (next_char);
@@ -2436,7 +2438,8 @@ read1 (readcharfun, pch, first_in_list)
 	UNREAD (next_char);
 
 	if (next_char <= 040
-	    || index ("\"'`;([#?", next_char)
+	    || index ("\"';([#?", next_char)
+	    || (!first_in_list && next_char == '`')
 	    || (new_backquote_flag && next_char == ','))
 	  {
 	    *pch = c;
@@ -2458,7 +2461,8 @@ read1 (readcharfun, pch, first_in_list)
 	  char *end = read_buffer + read_buffer_size;
 
 	  while (c > 040
-		 && !index ("\"'`;()[]#", c)
+		 && !index ("\"';()[]#", c)
+		 && !(!first_in_list && c == '`')
 		 && !(new_backquote_flag && c == ','))
 	    {
 	      if (end - p < MAX_MULTIBYTE_LENGTH)