From faebd4ac836603abe2f9c373ab09d33ea5deda16 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sat, 23 Aug 2008 17:09:05 +0200
Subject: [PATCH] texi2html: Use an appendix for indices in IR

---
 scm/documentation-generate.scm | 5 +++--
 scm/documentation-lib.scm      | 3 ++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index be09df5124..adb612cb06 100644
--- 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 0c9e2bdec6..919a75b08f 100644
--- 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))
     " "
-- 
2.39.2