From 404c08f8c396a875b044ed16e3ab1bbbb004cd69 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 26 Jan 2012 13:20:13 -0500 Subject: [PATCH] Revise commented code so it can replace exiting code without dependency issues. original commit: 31746a2d9e52202e752850012bb509f7e167e2ff --- collects/help/search.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/collects/help/search.rkt b/collects/help/search.rkt index d3d4e216..d70509ab 100644 --- a/collects/help/search.rkt +++ b/collects/help/search.rkt @@ -20,13 +20,14 @@ ;; Useful in cases like schools that use systems that have problems ;; running a browser on local files (like NEU). If you use this, then ;; it is a good idea to put the documentation tree somewhere local, to -;; have better interaction times and not overload the PLT server. -;; (define doc-url "http://download.racket-lang.org/docs/5.0/html/") +;; have better interaction times instead of using the PLT server. ;; (define (send-main-page #:sub [sub "index.html"] -;; #:fragment [fragment #f] #:query [query #f]) -;; (define (part pfx x) (if x (list pfx x) '())) -;; (send-url (apply string-append doc-url sub -;; (append (part "#" fragment) (part "?" query))))) +;; #:fragment [fragment #f] #:query [query #f] +;; #:notify [notify void]) +;; (define (part pfx x) (if x (string-append pfx x) "")) +;; (send-url (string-append +;; "http://download.racket-lang.org/docs/" (version) "/html/" +;; sub (part "#" fragment) (part "?" query)))) (define (perform-search str [context #f]) ;; `context' can be a pre-filter query string to use for a context,