From f8a2e95c60d097adb9a4a9d6e884c8dfb516a4bc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 8 Jul 2007 07:01:04 +0000
Subject: [PATCH] fx litchar spacing with leading and trailing spaces

svn: r6855

original commit: e5e12d6c53164f6dedae6fab261c60259db3d154
---
 collects/scribble/manual.ss    | 9 +++++----
 collects/scribble/scribble.css | 4 ++++
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index fcc6d4ed..998ca244 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -70,10 +70,11 @@
                          strs))])
       (let ([spaces (regexp-match-positions #rx"^ *" s)]
             [end-spaces (regexp-match-positions #rx" *$" s)])
-        (make-element "schemeinput" 
-                      (list (hspace (cdar spaces))
-                            (make-element #f (list (substring s (cdar spaces) (caar end-spaces))))
-                            (hspace (- (cdar end-spaces) (caar end-spaces))))))))
+        (make-element
+         "schemeinputbg"
+         (list (hspace (cdar spaces))
+               (make-element "schemeinput" (list (substring s (cdar spaces) (caar end-spaces))))
+               (hspace (- (cdar end-spaces) (caar end-spaces))))))))
 
   (define (verbatim s)
     (let ([strs (regexp-split #rx"\n" s)])
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index 56b2c80c..a4406c92 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -234,6 +234,10 @@
                font-family: Courier; font-size: 80%;
                }
 
+               .schemeinputbg {
+               background-color: #eeeeee;
+               }
+
                .schemeparen {
                color: #843c24;
                font-family: Courier; font-size: 80%;