diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/lread.c b/src/lread.c index 234fbe6e395..e6f1987a50b 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1739,13 +1739,12 @@ read_escape (readcharfun, stringp, byterep) | |||
| 1739 | return c | alt_modifier; | 1739 | return c | alt_modifier; |
| 1740 | 1740 | ||
| 1741 | case 's': | 1741 | case 's': |
| 1742 | if (stringp) | ||
| 1743 | return ' '; | ||
| 1744 | c = READCHAR; | 1742 | c = READCHAR; |
| 1745 | if (c != '-') { | 1743 | if (c != '-') |
| 1746 | UNREAD (c); | 1744 | { |
| 1747 | return ' '; | 1745 | UNREAD (c); |
| 1748 | } | 1746 | return ' '; |
| 1747 | } | ||
| 1749 | c = READCHAR; | 1748 | c = READCHAR; |
| 1750 | if (c == '\\') | 1749 | if (c == '\\') |
| 1751 | c = read_escape (readcharfun, 0, byterep); | 1750 | c = read_escape (readcharfun, 0, byterep); |