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

1 files changed, 5 insertions, 6 deletions

diff --git a/src/lread.c b/src/lread.c
index d4fb550b867..5fb0a39ff03 100644
--- 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);