# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1177781062 0
# Node ID d741e1d7761aa62fcd126aca74291a21ff2f82c3
# Parent  b08b48a824adc796a81ad39c4e8eabc2855713b3
(read_escape): In a string, \s is always space.

diff -r b08b48a824ad -r d741e1d7761a src/lread.c
--- a/src/lread.c	Sat Apr 28 09:24:38 2007 +0000
+++ b/src/lread.c	Sat Apr 28 17:24:22 2007 +0000
@@ -1894,7 +1894,7 @@
 
     case 's':
       c = READCHAR;
-      if (c != '-')
+      if (stringp || c != '-')
 	{
 	  UNREAD (c);
 	  return ' ';