]> .") (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" (literal "All users of FreeBSD ") (literal (entity-text "release.branch")) (literal " should subscribe to the ") (literal "<") (create-link (list (list "HREF" "mailto:current@FreeBSD.org")) (literal "current@FreeBSD.org")) (literal "> mailing list."))) (make element gi: "p" attributes: (list (list "align" "center")) (literal "For questions about this documentation, e-mail <") (create-link (list (list "HREF" "mailto:doc@FreeBSD.org")) (literal "doc@FreeBSD.org")) (literal ">.")))))) (element quote (make sequence (literal "``") (process-children) (literal "''"))) (define %refentry-xref-link% #t) (define ($create-refentry-xref-link$ #!optional (n (current-node))) (let* ((r (select-elements (children n) (normalize "refentrytitle"))) (m (select-elements (children n) (normalize "manvolnum"))) (v (attribute-string (normalize "vendor") n)) (u (string-append "http://www.FreeBSD.org/cgi/man.cgi?query=" (data r) "&" "sektion=" (data m)))) (case v (("xfree86") (string-append u "&" "manpath=XFree86+4.2.0")) (("netbsd") (string-append u "&" "manpath=NetBSD+1.5")) (("ports") (string-append u "&" "manpath=FreeBSD+Ports")) (else (string-append u "&" "manpath=FreeBSD+5.0-current"))))) ]]> (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 3 3))