texi2html: Use an appendix for indices in IR

diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index be09df5124401d315db40254c30602fbdeb9536d..adb612cb06226a19d8832067ed01337751b2d54e 100644 (file)
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -134,13 +134,14 @@ This is the program reference for version "
      (backend-doc-node)
      (all-scheme-functions-doc)
      (make <texi-node>
+       #:appendix #t
        #:name "Indices"
        #:text "
-@unnumberedsec Concept index
+@appendixsec Concept index
 
 @printindex cp
 
-@unnumberedsec Function index
+@appendixsec Function index
 
 @printindex fn
 

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))
     " "