X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-markup.scm;h=4396ea4d38b8575f030833e41253991cce92ac98;hb=953c69a84884a224b84605eadbb3d4456b3e11a7;hp=27d1229ddebc4414958224e75a92a7eba57adced;hpb=e29fe3388c64f6d70fcc074a6240477ae0f72fee;p=lilypond.git

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 27d1229dde..4396ea4d38 100644
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -8,7 +8,7 @@
 (define (doc-markup-function func)
   (let* ((doc-str  (procedure-documentation func))
 	 (f-name (symbol->string (procedure-name  func)))
-	 (c-name (regexp-substitute/global #f "-markup$" f-name  'pre "" 'post))
+	 (c-name (regexp-substitute/global #f "-markup(-list)?$" f-name  'pre "" 'post))
 	 (sig (object-property func 'markup-signature))
 	 (arg-names (let ((arg-list (cadr (procedure-source func))))
                       (if (list? arg-list)
@@ -45,8 +45,22 @@
 	       (sort markup-function-list markup-function<?)))
    "\n@end table"))
 
+(define (markup-list-doc-string)
+  (string-append
+   "@table @asis"
+   (apply string-append
+	  (map doc-markup-function
+	       (sort markup-list-function-list markup-function<?)))
+   "\n@end table"))
+
 (define (markup-doc-node)
   (make <texi-node>
     #:name "Markup functions"
     #:desc "Definitions of the markup functions."
     #:text (markup-doc-string)))
+
+(define (markup-list-doc-node)
+  (make <texi-node>
+    #:name "Markup list functions"
+    #:desc "Definitions of the markup list functions."
+    #:text (markup-list-doc-string)))