From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sat, 23 Aug 2008 15:23:59 +0000 (+0200)
Subject: Doc: Insert appendix #f directly into the doc node, not needed in dump any more
X-Git-Tag: release/2.11.58-1~32^2~24
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=686bdc1c18148f6b4ac0d861d71919167075963b;p=lilypond.git

Doc: Insert appendix #f directly into the doc node, not needed in dump any more
---

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 91ec7b882d..7dcab30e3d 100644
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -71,6 +71,7 @@
         (markup-functions (hashq-ref markup-functions-by-category
                                           category)))
     (make <texi-node>
+      #:appendix #t
       #:name category-name
       #:desc ""
       #:text (string-append
@@ -90,6 +91,7 @@
 
 (define (markup-doc-node)
   (make <texi-node>
+    #:appendix #t
     #:name "Text markup commands"
     #:desc ""
     #:text "The following commands can all be used inside @code{\\markup @{ @}}."
@@ -107,6 +109,7 @@
 
 (define (markup-list-doc-node)
   (make <texi-node>
+    #:appendix #t
     #:name "Text markup list commands"
     #:desc ""
     #:text (string-append
diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index adb612cb06..36af5b3a69 100644
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -36,11 +36,11 @@
 
 (call-with-output-file "markup-commands.tely"
   (lambda (port)
-    (dump-node (markup-doc-node) port 2 #t)))
+    (dump-node (markup-doc-node) port 2)))
 
 (call-with-output-file "markup-list-commands.tely"
   (lambda (port)
-    (dump-node (markup-list-doc-node) port 2 #t)))
+    (dump-node (markup-list-doc-node) port 2)))
 
 (display 
  (identifiers-doc-string)
diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 919a75b08f..4a25f5420c 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -22,13 +22,13 @@
    (node-name x)
    (node-desc x)))
 
-(define* (dump-node node port level #:optional (appendix #f))
+(define* (dump-node node port level)
   (display
    (string-append
     "\n@node "
     (node-name node)
     "\n\n"
-    (if (or appendix (appendix? node))
+    (if (appendix? node)
         (texi-appendix-section-command level)
         (texi-section-command level))
     " "
@@ -42,7 +42,7 @@
 	      (node-children node)))
 	""))
    port)
-  (map (lambda (x) (dump-node x port (+ 1 level) appendix))
+  (map (lambda (x) (dump-node x port (+ 1 level)))
        (node-children node)))
 
 (define (processing name)