suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: e515cf70d85b98e74c4efa22b9e1547fee5cd05a
This commit is contained in:
Robby Findler 2004-02-04 18:00:18 +00:00
parent e0dd79a1cd
commit af279647b2
1 changed files with 31 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/help/private/search.ss
View File

@ -322,6 +322,11 @@
[(text) (load-txt-keywords doc)] [(text) (load-txt-keywords doc)]
[else null])] [else null])]
[add-key-choice (lambda (v) [add-key-choice (lambda (v)
(when (and (pair? v)
(pair? (cdr v))
(pair? (cddr v))
(pair? (cdddr v))
(pair? (cddddr v)))
(found "keyword entries") (found "keyword entries")
(add-choice (add-choice
(car v) ; key (car v) ; key
@ -334,7 +339,7 @@
file file
(build-path doc file)))) (build-path doc file))))
(list-ref v 3) ; label (list-ref v 3) ; label
ckey))]) ckey)))])
(unless regexp? (unless regexp?
(for-each (for-each
(lambda (v) (lambda (v)
@ -358,6 +363,9 @@
[add-index-choice (lambda (name desc) [add-index-choice (lambda (name desc)
(case doc-kind (case doc-kind
[(html) [(html)
(when (and (pair? desc)
(pair? (cdr desc))
(pair? (cddr desc)))
(found "index entries") (found "index entries")
(add-choice (add-choice
"" name "" name
@ -367,7 +375,7 @@
filename filename
(combine-path/url-path doc filename))) (combine-path/url-path doc filename)))
(list-ref desc 1) (list-ref desc 1)
ckey)] ckey))]
[(text) [(text)
(found "index entries") (found "index entries")
(add-choice (add-choice