(read_escape) <\s>: Don't treat strings specially.

diff --git a/src/lread.c b/src/lread.c
index d4fb550..5fb0a39 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1738,13 +1738,12 @@ read_escape (readcharfun, stringp, byterep)
       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);