# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1134063832 0
# Node ID f18c2431b06bcec7ec49f6e5bace2fda7fa2cdb1
# Parent  c6a3130363aed2cacebd698a3b10af4397bfcad9
(read_escape) <\s>: Don't treat strings specially.

diff -r c6a3130363ae -r f18c2431b06b src/lread.c
--- a/src/lread.c	Thu Dec 08 17:43:14 2005 +0000
+++ b/src/lread.c	Thu Dec 08 17:43:52 2005 +0000
@@ -1738,13 +1738,12 @@
       return c | alt_modifier;
 
     case 's':
-      if (stringp)
-	return ' ';
       c = READCHAR;
-      if (c != '-') {
-	UNREAD (c);
-	return ' ';
-      }
+      if (c != '-')
+	{
+	  UNREAD (c);
+	  return ' ';
+	}
       c = READCHAR;
       if (c == '\\')
 	c = read_escape (readcharfun, 0, byterep);