better filtering of user docs (?)
svn: r11056
This commit is contained in:
parent
74dd0655e5
commit
1d00d880ec
|
@ -30,7 +30,8 @@
|
||||||
|
|
||||||
(define (user-doc? doc)
|
(define (user-doc? doc)
|
||||||
(or (memq 'user-doc-root (doc-flags doc))
|
(or (memq 'user-doc-root (doc-flags doc))
|
||||||
(memq 'user-doc (doc-flags doc))))
|
(memq 'user-doc (doc-flags doc))
|
||||||
|
(not (doc-under-main? doc))))
|
||||||
|
|
||||||
(define (filter-user-docs docs make-user?)
|
(define (filter-user-docs docs make-user?)
|
||||||
(cond ;; Specifically disabled user stuff, filter
|
(cond ;; Specifically disabled user stuff, filter
|
||||||
|
|
Loading…
Reference in New Issue
Block a user