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 85f46de406b332eb144a1dcacd09fab4cfabc8b7..df820af6cca281cbcebfc4a3de85e012e7c3bcb1 100644 (file)
--- 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 2d598d156f3181b14581985f142c084a2035e5f3..43d26323ff88e6e0de971812adc275bfc853aebb 100644 (file)
--- 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)