From: David Kastrup <dak@gnu.org>
Date: Tue, 14 Aug 2012 04:15:33 +0000 (+0200)
Subject: Issue 2745: clef change confuses manual key signature
X-Git-Tag: release/2.17.0-1~28
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=11c215ed719156dd51359fb2d7e47803a2efb5ec;p=lilypond.git

Issue 2745: clef change confuses manual key signature

The original design of the accidental code apparently had two modes
for entries: a (notename . alter) pair for entries belonging to the
key signature, and a ((octave . notename) . (alter barnum . measurepos))
construct for actually occuring accidentals affecting the key signature
locally.  The documentation, however, also specifies an
((octave . notename) . alter) form for key signatures.  The code in general
has not been quite prepared for this.  This changes at least the accessor
functions for either car or cdr of a notename entry to only look at
their part of the signature entry.
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index cd0ff32e1c..24661730f0 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -1321,33 +1321,43 @@ immediately', that is, only look at key signature.  @code{#t} is `forever'."
   (check-pitch-against-signature context pitch barnum laziness octaveness))
 
 (define (key-entry-notename entry)
-  "Return the pitch of an entry in localKeySignature.  The entry is either of the form
-  '(notename . alter) or '((octave . notename) . (alter barnum . measurepos))."
-  (if (number? (car entry))
-      (car entry)
-      (cdar entry)))
+  "Return the pitch of an @var{entry} in @code{localKeySignature}.
+The @samp{car} of the entry is either of the form @code{notename} or
+of the form @code{(octave . notename)}.  The latter form is used for special
+key signatures or to indicate an explicit accidental.
+
+The @samp{cdr} of the entry is either a rational @code{alter} indicating
+a key signature alteration, or of the form
+@code{(alter . (barnum . measurepos))} indicating an alteration caused by
+an accidental in music."
+  (if (pair? (car entry))
+      (cdar entry)
+      (car entry)))
 
 (define (key-entry-octave entry)
-  "Return the octave of an entry in localKeySignature (or #f if the entry does not have
-  an octave)."
+  "Return the octave of an entry in @code{localKeySignature}
+or @code{#f} if the entry does not have an octave.
+See @code{key-entry-notename} for details."
   (and (pair? (car entry)) (caar entry)))
 
 (define (key-entry-bar-number entry)
-  "Return the bar number of an entry in localKeySignature (or #f if the entry does not
-  have a bar number)."
-  (and (pair? (car entry)) (caddr entry)))
+  "Return the bar number of an entry in @code{localKeySignature}
+or @code {#f} if the entry does not have a bar number.
+See @code{key-entry-notename} for details."
+  (and (pair? (cdr entry)) (caddr entry)))
 
 (define (key-entry-measure-position entry)
-  "Return the measure position of an entry in localKeySignature (or #f if the entry does
-  not have a measure position)."
-  (and (pair? (car entry)) (cdddr entry)))
+  "Return the measure position of an entry in @code{localKeySignature}
+or @code {#f} if the entry does not have a measure position.
+See @code{key-entry-notename} for details."
+  (and (pair? (cdr entry)) (cdddr entry)))
 
 (define (key-entry-alteration entry)
   "Return the alteration of an entry in localKeySignature.
 
 For convenience, returns @code{0} if entry is @code{#f}."
   (if entry
-      (if (number? (car entry))
+      (if (number? (cdr entry))
 	  (cdr entry)
 	  (cadr entry))
       0))
@@ -1592,15 +1602,14 @@ Entries that conform with the current key signature are not invalidated."
     (set! (ly:context-property context 'localKeySignature)
 	  (map-in-order
 	   (lambda (entry)
-	     (let* ((localalt (key-entry-alteration entry))
-		    (localoct (key-entry-octave entry)))
+	     (let* ((localalt (key-entry-alteration entry)))
 	       (if (or (accidental-invalid? localalt)
-		       (not localoct)
+		       (not (key-entry-bar-number entry))
 		       (= localalt
 			  (key-entry-alteration
 			   (find-pitch-entry
 			    keysig
-			    (ly:make-pitch localoct
+			    (ly:make-pitch (key-entry-octave entry)
 					   (key-entry-notename entry)
 					   0)
 			    #t #t))))