From af0801e09f8952dd4b20b8543d00279394b9fb3a Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 26 Jul 2006 12:53:52 +0000
Subject: [PATCH] (process_music): delta-pitch -> delta-step.

---
 ChangeLog                       |  2 ++
 lily/fall-engraver.cc           |  2 +-
 ly/engraver-init.ly             | 10 +++++-----
 ly/music-functions-init.ly      |  3 +--
 scm/define-music-properties.scm |  2 +-
 5 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7b5c994854..5698c2ba25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-07-26  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* lily/fall-engraver.cc (process_music): delta-pitch -> delta-step.
+
 	* lily/instrument-name-engraver.cc (start_spanner): new
 	function. Create spanner when property changes.
 	(stop_spanner): new function.
diff --git a/lily/fall-engraver.cc b/lily/fall-engraver.cc
index 1b7cf93e81..41a904f242 100644
--- a/lily/fall-engraver.cc
+++ b/lily/fall-engraver.cc
@@ -99,7 +99,7 @@ Fall_engraver::process_music ()
   if (fall_event_ && !fall_)
     {
       fall_ = make_spanner ("BendAfter", fall_event_->self_scm ());
-      fall_->set_property ("delta-position",
+      fall_->set_property ("delta-step",
 			   scm_from_double (robust_scm2double (fall_event_->get_property ("delta-pitch"), 0) * 0.5));
     }
 }
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 7798bc3145..7e51f51575 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -51,8 +51,8 @@
   %% weird effects when doing instrument names for
   %% piano staves
 
-  instrument = #'()
-  instr = #'()
+  instrumentName = #'()
+  shortInstrumentName = #'()
   
   \defaultchild "Voice"
   \accepts "Voice"
@@ -93,7 +93,7 @@
   \consists "System_start_delimiter_engraver"
   systemStartDelimiter = #'SystemStartBracket
   vocalName = #'()
-  vocNam = #'()
+  shortVocalName = #'()
 
   \accepts "Staff"
   \accepts "DrumStaff"
@@ -294,8 +294,8 @@ contained staves are not connected vertically."
   \consists "Vertical_align_engraver"
   \consists "Instrument_name_engraver"
   
-  instrument = #'()
-  instr = #'()
+  instrumentName = #'()
+  shortInstrumentName = #'()
 }
 
 \context {
diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 4396a64c45..141d107cd6 100644
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -15,7 +15,6 @@
 acciaccatura =
 #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic)
 
-
 addquote =
 #(define-music-function (parser location name music) (string? ly:music?)
    "Add a piece of music to be quoted "
@@ -132,7 +131,7 @@ bendAfter =
 #(define-music-function (parser location delta) (integer?)
 	      
   (make-music 'BendAfterEvent
-   'delta-pitch delta))
+   'delta-step delta))
 
 clef =
 #(define-music-function (parser location type)
diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index 5ee322a5ca..dc4bc2c0f7 100644
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -40,7 +40,7 @@ here. TODO: use SpanEvents?")
      (context-id ,string? "name of context")
      (context-type ,symbol?  "type of context")
      (create-new ,boolean? "Create a fresh context.")
-     (delta-pitch ,number? "How much should a fall change pitch?") 
+     (delta-step ,number? "How much should a fall change pitch?") 
      (descend-only ,boolean? "If set, this @code{\\context} will only descend in the context tree.")
      (denominator ,integer? "denominator in a time signature")
      (digit ,integer? "digit for fingering")
-- 
2.39.2