From 2f03c3284cdc41a65e2634c3597e8226f685fc96 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Mon, 5 Mar 2001 12:01:47 +0000
Subject: [PATCH] lilypond-1.3.136

---
 input/test/ancient-font.ly              | 7 +++++++
 scm/translator-property-description.scm | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/input/test/ancient-font.ly b/input/test/ancient-font.ly
index fa45aac506..608810ada4 100644
--- a/input/test/ancient-font.ly
+++ b/input/test/ancient-font.ly
@@ -61,6 +61,7 @@ lowerVoice =  \context Staff = lowerNotes <
 	\property Staff.Custos \override #'style = #'mensural
 	\clef "mensural1_c2";
 	c2 d e f g
+        \property Staff.forceClef = ##t
 	\clef "mensural1_c2";
 	a b c'
 	b a g f
@@ -69,6 +70,7 @@ lowerVoice =  \context Staff = lowerNotes <
 
 	\clef "mensural2_c2";
 	c2 d e f g
+        \property Staff.forceClef = ##t
 	\clef "mensural3_c2";
 	a b c'
 	b a g f
@@ -77,25 +79,30 @@ lowerVoice =  \context Staff = lowerNotes <
 
 	\clef "mensural1_f";
 	c2 d e f g
+        \property Staff.forceClef = ##t
 	\clef "mensural1_f";
 	a b c'
 	b a g f
 	\clef "mensural2_f";
 	e d c1 \bar "|";
 
+        \property Staff.forceClef = ##t
 	\clef "mensural2_f";
 	c2 d e f g
 	\clef "mensural_g";
 	a' b' c''
 	b' a' g' f'
+        \property Staff.forceClef = ##t
 	\clef "mensural_g";
 	e' d' c'1 \bar "|";
 
+        \property Staff.forceClef = ##t
 	\clef "mensural_g";
 	c'2 d' e' f' g'
 	\clef "hufnagel_do_fa";
 	a b c'
 	b a g f
+        \property Staff.forceClef = ##t
 	\clef "hufnagel_do_fa";
 	e d c1 \bar "||";
     }
diff --git a/scm/translator-property-description.scm b/scm/translator-property-description.scm
index 08d4760326..dedc4f95b8 100644
--- a/scm/translator-property-description.scm
+++ b/scm/translator-property-description.scm
@@ -163,7 +163,7 @@ procedure? "visibility-lambda function for explicit Key changes;
 
 (translator-property-description 'followThread boolean?
 				 "if set, note heads are tracked  across staff switches by a thin line")
-(translator-property-description 'forceClef boolean? "Show clef symbol, even if it hasn't changed.")
+(translator-property-description 'forceClef boolean? "Show clef symbol, even if it hasn't changed. Only active for the first clef after the property is set, not for the full staff.")
 (translator-property-description 'forgetAccidentals boolean? "do
 not set localKeySignature when a note alterated differently from
 localKeySignature is found.
-- 
2.11.4.GIT