]> .") (make empty-element gi: "br") (literal "Per domande su questa documentazione, invia una e-mail a <") (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 (("current") (string-append u "&" "manpath=FreeBSD+5.0-current")) (("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 u)))) ]]> (define (local-it-label-title-sep) (list (list (normalize "warning") ": ") (list (normalize "caution") ": ") (list (normalize "chapter") " ") (list (normalize "sect1") " ") (list (normalize "sect2") " ") (list (normalize "sect3") " ") (list (normalize "sect4") " ") (list (normalize "sect5") " ") ))