Fix example using raised text.

diff --git a/ChangeLog b/ChangeLog
index e6ef8b37797f3f58bfedd68a7bf07ff396aa8c94..621082c263255bf25e183951eba4a4726f7be4be 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,9 @@
        * Documentation/user/advanced-notation.itely: add info about
        raising text.
 
+       * Documentation/user/programming-interface.itely: fix example
+       involving raised text.
+
 2005-08-24  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * lily/beam.cc (print): fix X start/end points of isolated

diff --git a/Documentation/user/programming-interface.itely b/Documentation/user/programming-interface.itely
index e3ebda08e75efc82e25c6e4e9b43f94a113a90af..46e00dd03bf3ee9e7758d8031ae7e0b82059a827 100644 (file)
--- a/Documentation/user/programming-interface.itely
+++ b/Documentation/user/programming-interface.itely
@@ -628,15 +628,15 @@ defined @code{\smallcaps} command:
   "Print the character name in small caps, translated to the left and
   top.  Syntax: \\character #\"name\""
   (interpret-markup layout props 
-   (markup "" #:translate (cons -3 1) #:smallcaps name)))
+   (markup #:hspace 0 #:translate (cons -3 1) #:smallcaps name)))
 @end example
 
 There is one complication that needs explanation: texts above and below
 the staff are moved vertically to be at a certain distance (the
 @code{padding} property) from the staff and the notes.  To make sure
 that this mechanism does not annihilate the vertical effect of our
-@code{#:translate}, we add an empty string (@code{""}) before the
-translated text.  Now the @code{""} will be put above the notes, and the
+@code{#:translate}, we add an empty string (@code{#:hspace 0}) before the
+translated text.  Now the @code{#:hspace 0} will be put above the notes, and the
 @code{name} is moved in relation to that empty string.  The net effect is
 that the text is moved to the upper left.
 
@@ -665,7 +665,7 @@ The final result is as follows:
   "Print the character name in small caps, translated to the left and
   top.  Syntax: \\character #\"name\""
   (interpret-markup layout props 
-   (markup "" #:translate (cons -3 1) #:smallcaps name)))
+   (markup #:hspace 0 #:translate (cons -3 1) #:smallcaps name)))
 
 {
   c''^\markup \character #"Cleopatra" c'' c'' c''