From: Nicolas Sceaux <nicolas.sceaux@free.fr>
Date: Mon, 1 Jan 2007 22:23:51 +0000 (+0100)
Subject: Markup documentation: when a command is a copy of another markup
X-Git-Tag: release/2.11.10-1~79^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6ab7226db3506179c9f07114eb8432084cf0fa82;p=lilypond.git

Markup documentation: when a command is a copy of another markup
command, and thus its argument names unknown, make up them.
---

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 9a5e51eb19..27d1229dde 100644
--- a/scm/document-markup.scm
+++ b/scm/document-markup.scm
@@ -10,10 +10,10 @@
 	 (f-name (symbol->string (procedure-name  func)))
 	 (c-name (regexp-substitute/global #f "-markup$" f-name  'pre "" 'post))
 	 (sig (object-property func 'markup-signature))
-	 (arg-names
-	  (map symbol->string 
-	       (cddr (cadr (procedure-source func)))))
-	 
+	 (arg-names (let ((arg-list (cadr (procedure-source func))))
+                      (if (list? arg-list)
+                          (map symbol->string (cddr arg-list))
+                          (make-list (length sig) "arg"))))
 	 (sig-type-names (map type-name sig))
 	 (signature-str
 	  (string-join