+++ /dev/null
-\header {
-
- texidoc = "In 'modern accidental style, the last note should
-have an accidental sign. "
-
-}
-\version "2.10.3"
-
-\score {
- \new Staff {
- \relative c' {
- #(set-accidental-style 'modern)
- d4 dis'4 d,2^"this should have accidental"
- }
- }
-}
/* Huh. Don't understand what this is good for. --hwn. */
- while (trans)
+ SCM val;
+ while (trans && trans->where_defined (ly_symbol2scm ("localKeySignature"), &val))
{
trans->set_property ("localKeySignature", ly_deep_copy (last_keysig_));
trans = trans->get_parent_context ();
{
SCM entry = scm_car (s);
if (scm_is_pair (scm_car (entry))
- && scm_cdar (entry) == scm_from_int (n)) {
+ && scm_cdar (entry) == scm_from_int (n))
from_other_octaves = scm_cdr (entry);
- break;
- }
}
- if (!ignore_octave
- && from_same_octave != SCM_BOOL_F
+ if (from_same_octave != SCM_BOOL_F
&& recent_enough (bar_number, from_same_octave, laziness))
previous_alteration = from_same_octave;
else if (ignore_octave