From 52825c68a15841282de4f7c0e60e832a728de6fb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 22 Jun 2011 07:48:23 -0600 Subject: [PATCH] fix `codeblock' handling of spaces for a chunk that also includes newlines --- collects/scribble/private/manual-code.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/scribble/private/manual-code.rkt b/collects/scribble/private/manual-code.rkt index 308f3be6b1..d4cd73e8cb 100644 --- a/collects/scribble/private/manual-code.rkt +++ b/collects/scribble/private/manual-code.rkt @@ -197,9 +197,9 @@ (cond [(regexp-match-positions #rx"(?:\r\n|\r|\n)" s) => (lambda (m) - (list* (element style (substring s 0 (caar m))) - 'newline - (split-lines style (substring s (cdar m)))))] + (append (split-lines style (substring s 0 (caar m))) + (list 'newline) + (split-lines style (substring s (cdar m)))))] [(regexp-match-positions #rx" +" s) => (lambda (m) (append (split-lines style (substring s 0 (caar m)))