diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm index 05e440516b..574ba216dd 100644 --- a/scm/documentation-generate.scm +++ b/scm/documentation-generate.scm @@ -92,9 +92,6 @@ (writing-wip outname) (display - (string-append - (texi-file-head "LilyPond Internals Reference" file-name - "(lilypond-internals.info)") " @include en/macros.itexi @@ -125,7 +122,7 @@ For LilyPond version @version{} @contents -@ifnottex") +@ifnottex" out-port) (define top-node diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm index 7e0ddc6736..54ecd46fd2 100644 --- a/scm/documentation-lib.scm +++ b/scm/documentation-lib.scm @@ -137,19 +137,6 @@ environment." "\n@end ifhtml\n" "\n@end ignore\n"))) -(define (texi-file-head name file-name top) - (string-append - "\\input texinfo @c -*-texinfo-*-" - "\n@setfilename " file-name ".info" - "\n@settitle " name - "\n@dircategory LilyPond" - "\n@direntry" - ;; prepend GNU for dir, must be unique - "\n* GNU " name ": (" file-name "). " name "." - "\n@end direntry\n" - "@documentlanguage en\n" - "@documentencoding UTF-8\n")) - (define (context-name name) name)