* Documentation/topdocs/NEWS.tely (Top): idem.

* input/regression/lyric-tie.ly (texidoc): use vowels for tied
lyrics example.

* scm/define-markup-commands.scm (tied-lyric): increase negative
space: space syllables tighter.

diff --git a/ChangeLog b/ChangeLog
index b014476bd0ac85207c06df49de3b5aa134f4b990..80ac49fee6f130ff3676b46f9424da0e83c08442 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2006-10-16  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * Documentation/topdocs/NEWS.tely (Top): idem.
+
+       * input/regression/lyric-tie.ly (texidoc): use vowels for tied
+       lyrics example.
+
+       * scm/define-markup-commands.scm (tied-lyric): increase negative
+       space: space syllables tighter.
+
        * VERSION (PATCH_LEVEL): bump version.
 
        * scm/paper.scm: patch by Arvid Gr"otting, arvidgr@gmail.com: tune

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index b4c580b51a14f4caeb21bd4486500240f83f5cd6..db90c2441b1c14ab73279d46845547012bc17e83 100644 (file)
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -113,7 +113,7 @@ symbol,
 @lilypond[relative=1,fragment,ragged-right]
   { c4 f2 g4 }
   \addlyrics {
-    o la~la la
+    o la~oo ah
   } 
 @end lilypond
 

diff --git a/input/regression/lyric-tie.ly b/input/regression/lyric-tie.ly
index d4ae7d0743ab5d7cae01140dd1a498b17ef77162..1d024979cf04cabefbffcdbaa5de224b6a4b56d9 100644 (file)
--- a/input/regression/lyric-tie.ly
+++ b/input/regression/lyric-tie.ly
@@ -6,5 +6,5 @@ texidoc = "Tildes in lyric syllables are converted to tie symbols."
 \version "2.9.22"
 
 \lyrics {
-  bla~blo~blub 
+  wa~o~a 
 }

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index fc04991a58d183b56db6cfbbba94030feb475575..4d87479283bfff0509b02dd0a7b5d819de6b7387 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -296,7 +296,7 @@ grestore
        (interpret-markup layout 
                          (prepend-alist-chain
                           'word-space
-                          (/ (interval-length (ly:stencil-extent join-stencil X)) -4)
+                          (/ (interval-length (ly:stencil-extent join-stencil X)) -3.5)
                           props)
                          (make-line-markup joined)))
                           ;(map (lambda (s) (interpret-markup layout props s)) parts))