texi2html: Use an appendix for indices in IR

[lilypond.git] / scm / documentation-lib.scm

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 0c9e2bdec6a1a5bbe2491e14b645ae29ba1c4f65..919a75b08f388442a2f94d0cfeeee50c509d30a9 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -11,6 +11,7 @@
             (srfi srfi-1))
 
 (define-class <texi-node> ()
+  (appendix #:init-value #f #:accessor appendix? #:init-keyword #:appendix)
   (children #:init-value '() #:accessor node-children #:init-keyword #:children)
   (text #:init-value "" #:accessor node-text #:init-keyword #:text)
   (name #:init-value "" #:accessor node-name #:init-keyword #:name)
@@ -27,7 +28,7 @@
     "\n@node "
     (node-name node)
     "\n\n"
-    (if appendix
+    (if (or appendix (appendix? node))
         (texi-appendix-section-command level)
         (texi-section-command level))
     " "