bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 263f30c8b3ddc76929bf2f843b15b45ed9751641
parent b47b1682f1ed07f848f966620decf83e06e31f56
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Wed, 28 May 2008 01:52:01 +0000

removed index-page search hacks, added search-page stub

svn: r9994

original commit: b21a0182c1808c7b5ae6d103c43d16911e19cff3

Diffstat:
M
collects/scribble/basic.ss
 | 
4
++--
M
collects/scribble/html-render.ss
 | 
5
++++-

2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
@@ -237,8 +237,8 @@
     (lambda (renderer sec ri)
       (define l null)
       (define line-break (if (send renderer index-manual-newlines?)
-                             (make-element 'newline '("\n"))
-                             ""))
+                           (make-element 'newline '("\n"))
+                           ""))
       (define alpha-starts (make-hasheq))
       (hash-for-each
        (let ([parent (collected-info-parent (part-collected-info sec ri))])
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -105,6 +105,7 @@
 
 (define-serializable-struct literal-anchor (string))
 
+#; ; no need for these index-local searches
 #reader scribble/reader (begin ; easier to format
 
 (define search-script
@@ -607,6 +608,7 @@
                                 (make-element "nonavigation" index-content)
                                 (make-link-element
                                  #f index-content (car (part-tags index)))))
+                    #; ; no need for these index-local searches
                     ,@(if (eq? d index)
                         null
                         `((small nbsp
@@ -909,7 +911,8 @@
                                null))
                           ,@(render-flow d part ri #f))
                      (loop (cdr ds) (cdr as) (cdr vas))))]))))
-      `(,@(if index? `(,search-script ,search-field) '())
+      `(#; ; no need for these index-local searches
+        ,@(if index? `(,search-script ,search-field) '())
         (table ([cellspacing "0"]
                 ,@(if need-inline?
                     '([style "display: inline; vertical-align: top;"])