changeset 67394:f18c2431b06b

(read_escape) <\s>: Don't treat strings specially.
author Richard M. Stallman <rms@gnu.org>
date Thu, 08 Dec 2005 17:43:52 +0000
parents c6a3130363ae
children 9768435a278a
files src/lread.c
diffstat 1 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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);