s = '''\input texinfo
@setfilename %s.info
@settitle %s
-@finalout @c we do not want black boxes.
+@documentencoding utf-8
@iftex
@afourpaper
@end iftex
+
+@finalout @c we do not want black boxes.
@c fool ls-latex
@ignore
s = r"""
@ifhtml
@html
-<A NAME="%s">
+<A NAME="%s"></A>
@end html
@end ifhtml
""" % n
- s += "\n\n@lilypondfile[printfilename]{%s}" % n
+ s += "\n\n@lilypondfile[printfilename,texidoc]{%s}" % n
return s
files.sort ()
s = s + string.join (map (lambda x: name2line (x), files), "\n")