;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2000--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
(use-modules (oop goops)
(display
(string-append
"\n@node "
- (node-name node)
- "\n\n"
+ (if (= level 0) "Top" (node-name node))
+ "\n"
(if (appendix? node)
(texi-appendix-section-command level)
(texi-section-command level))