From 811216ad789fc2cc5a376798948d73d5df4fccd6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 18 Apr 2008 12:03:08 +0000 Subject: [PATCH] added curly quotes as things that do not need spaces before them svn: r9358 --- collects/slideshow/core.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/slideshow/core.ss b/collects/slideshow/core.ss index e815fb1ce5..cd3a75beb8 100644 --- a/collects/slideshow/core.ss +++ b/collects/slideshow/core.ss @@ -625,10 +625,10 @@ [(null? l) (reverse a)] [(null? a) (loop (cdr l) (list (car l)))] [(and (string? (car l)) - (regexp-match #rx"^[-',. :;?!)]" (car l))) + (regexp-match #rx"^[-',. :;?!“”‘’)]" (car l))) (let ([m (regexp-match #rx"^([^ ]*) (.*)$" (car l))]) (if m - (if (string? (car a)) + (if (string? (car a)) (loop (cdr l) (list* (caddr m) (string-append (car a) (cadr m))