From edfd85845dea52b290ee6da6182c386b67781347 Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer Date: Wed, 14 Sep 2011 21:31:22 +0200 Subject: [PATCH] Print a warning if a music function or context mod is not documented --- scm/document-context-mods.scm | 6 +++++- scm/document-identifiers.scm | 6 +++++- 2 files changed, 10 insertions(+), 2 deletions(-) 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) -- 2.39.2