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 91ec7b882d669315ead572564ab01aa059961c3e..7dcab30e3d5e642363f06a0fa855962a1b09c9af 100644 (file)
--- 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 3061c4d5dbdebe29dd08c5b7f443bc472adda051..7f87df80fd6b80c66d21ca517fb96f7b5795a236 100644 (file)
--- 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 a9c31057e1a961c03f7f1a02762fd2a36f56107a..bd824aebc9baa63e50f560056a074b329189cab0 100644 (file)
--- 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)