From 53efe9dd3fcbbe26a102145815292787be8e417f Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Mon, 12 Feb 2007 19:13:45 +0100 Subject: [PATCH] Fix #290. Display available clefs on encountering unknown argument. --- input/regression/clef-warn.ly | 10 ++++++++++ scm/parser-clef.scm | 5 ++++- 2 files changed, 14 insertions(+), 1 deletion(-) create mode 100644 input/regression/clef-warn.ly diff --git a/input/regression/clef-warn.ly b/input/regression/clef-warn.ly new file mode 100644 index 0000000000..8134daa8f0 --- /dev/null +++ b/input/regression/clef-warn.ly @@ -0,0 +1,10 @@ +\header { + texidoc = "Unknown clef name warning displays available clefs" + } + + +\version "2.11.17" +{ + \clef "foo" + c4 + } diff --git a/scm/parser-clef.scm b/scm/parser-clef.scm index 0095d29e81..a18ab2cdac 100644 --- a/scm/parser-clef.scm +++ b/scm/parser-clef.scm @@ -33,6 +33,7 @@ ("vaticana-do2" . ("clefs.vaticana.do" 1 0)) ("vaticana-do3" . ("clefs.vaticana.do" 3 0)) ("vaticana-fa1" . ("clefs.vaticana.fa" -1 0)) + ("vaticana-fa2" . ("clefs.vaticana.fa" 1 0)) ("medicaea-do1" . ("clefs.medicaea.do" -1 0)) ("medicaea-do2" . ("clefs.medicaea.do" 1 0)) @@ -124,6 +125,8 @@ (context-spec-music seq 'Staff)) (begin (ly:warning (_ "unknown clef type `~a'") clef-name) - (ly:warning (_ "see scm/clef.scm for supported clefs")) + (ly:warning (_ "supported clefs: ~a") + (string-join + (sort (map car supported-clefs) string