From 4d7528d05918fa0b3b40147f7e7b91835482dd47 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 28 Apr 2007 17:24:22 +0000
Subject: (read_escape): In a string, \s is always space.

---
 src/lread.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/lread.c b/src/lread.c
index 1f1ddddde4..088f729075 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1894,7 +1894,7 @@ read_escape (readcharfun, stringp, byterep)
 
     case 's':
       c = READCHAR;
-      if (c != '-')
+      if (stringp || c != '-')
 	{
 	  UNREAD (c);
 	  return ' ';
-- 
cgit v1.2.3