From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Wed, 14 Sep 2011 19:31:22 +0000 (+0200)
Subject: Print a warning if a music function or context mod is not documented
X-Git-Tag: release/2.15.12-1~46
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=edfd85845dea52b290ee6da6182c386b67781347;p=lilypond.git

Print a warning if a music function or context mod is not documented
---

diff --git a/scm/document-context-mods.scm b/scm/document-context-mods.scm
index 85f46de406..df820af6cc 100644
--- a/scm/document-context-mods.scm
+++ b/scm/document-context-mods.scm
@@ -73,7 +73,11 @@
 "
      name-sym
      name-sym
-     (if (pair? docstring) (cadar docstring) "(undocumented; fixme)")
+     (if (pair? docstring) 
+         (cadar docstring) 
+         (begin
+           (ly:warning "context modification `~a' not documented." name-sym)
+           "(undocumented; fixme)"))
      (map document-mod-list mod-list))))
 
 (define (document-mod obj-pair)
diff --git a/scm/document-identifiers.scm b/scm/document-identifiers.scm
index 2d598d156f..43d26323ff 100644
--- a/scm/document-identifiers.scm
+++ b/scm/document-identifiers.scm
@@ -42,7 +42,11 @@
      name-sym (car type-names)
      (if (equal? "" signature-str) "" " - ") signature-str
      name-sym
-     (or doc "(undocumented; fixme)"))))
+     (if doc
+         doc
+         (begin
+           (ly:warning "music function `~a' not documented." name-sym)
+           "(undocumented; fixme)")))))
 
 
 (define (document-object obj-pair)