From 99d92033623b0f7fd1920c713ee668264c7d3bab Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 28 May 2013 21:24:21 +0900
Subject: [PATCH] \<space><newline><space> should only skip one line

---
 sexp.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/sexp.c b/sexp.c
index 66685b09..e0ff1977 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2158,7 +2158,11 @@ sexp sexp_read_string (sexp ctx, sexp in, int sentinel) {
         break;
 #if SEXP_USE_ESCAPE_NEWLINE
       default:
-        if (isspace(c)) while (isspace(c) && c!=EOF) c=sexp_read_char(ctx, in);
+        if (isspace(c)) {
+          while (c==' ' || c=='\t') c=sexp_read_char(ctx, in);
+          if (c=='\r') c=sexp_read_char(ctx, in);
+          if (c=='\n') do {c=sexp_read_char(ctx, in);} while (c==' ' || c=='\t');
+        }
 #endif
       }
       if (sexp_exceptionp(res)) break;