From 529bf6de3a85fc29fe95490696c89d99cac22ee3 Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Fri, 20 Jun 2003 02:53:39 +0000
Subject: [PATCH] Added texidoc index and some comments.

---
 ChangeLog                               |  2 ++
 input/test/scales-greek.ly              |  7 +++----
 input/test/scales.ly                    |  6 ++++--
 input/test/scheme-interactions.ly       | 13 +++++--------
 input/test/script-abbreviations.ly      |  6 +++---
 input/test/script-chart.ly              |  1 +
 input/test/script-horizontal.ly         |  8 ++++----
 input/test/script-priority.ly           | 11 ++++++-----
 input/test/separate-staccato.ly         |  7 ++++---
 input/test/short-part-combine.ly        |  1 +
 input/test/simple-slur-endings.ly       |  3 ++-
 input/test/sketch.ly                    |  1 +
 input/test/slur-area.ly                 |  1 +
 input/test/slur-attachment-override.ly  | 11 ++++-------
 input/test/slur-attachment.ly           |  2 +-
 input/test/slur-beautiful.ly            |  5 +++--
 input/test/slur-broken-cross-staff.ly   |  8 +++-----
 input/test/slur-broken.ly               |  1 +
 input/test/slur-damping.ly              |  3 +--
 input/test/slur-dash.ly                 |  2 +-
 input/test/slur-follow-music.ly         |  2 +-
 input/test/slur-positions.ly            |  1 +
 input/test/slur-proof.ly                |  2 +-
 input/test/slur-symmetry-2.ly           |  2 +-
 input/test/slur-symmetry-3.ly           |  2 +-
 input/test/slur-ugly.ly                 |  5 ++---
 input/test/smart-transpose.ly           |  2 +-
 input/test/solo-a2.ly                   |  1 +
 input/test/spacing-2.ly                 |  1 +
 input/test/span-bars.ly                 |  2 +-
 input/test/spanner-after-break-tweak.ly | 11 ++++-------
 input/test/stacked-scripts.ly           |  4 ++++
 input/test/staff-bracket.ly             |  5 +++++
 input/test/staff-container.ly           | 10 ++++------
 input/test/staff-lines.ly               |  8 ++++----
 input/test/staff-margin-partial.ly      |  3 +--
 input/test/staff-size.ly                |  7 ++++---
 input/test/stem-centered.ly             | 21 ++++++++++++---------
 input/test/stem-cross-staff.ly          | 11 ++---------
 input/test/stem-length.ly               |  7 +++++--
 input/test/stem.ly                      |  9 ++++-----
 input/test/system-start-brace.ly        |  2 +-
 input/test/system-start-bracket.ly      |  2 +-
 43 files changed, 113 insertions(+), 106 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4712d846ba..861f073cab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,8 @@
 	stem-extend was deleted (it was duplicate example, and not as
 	good).
 
+	* input/test/s*.ly: add texidoc index.
+
 2003-06-20  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* lily/slur.cc (get_boundary_notecolumn_y): change name from
diff --git a/input/test/scales-greek.ly b/input/test/scales-greek.ly
index 9525ab11ef..b89889e362 100644
--- a/input/test/scales-greek.ly
+++ b/input/test/scales-greek.ly
@@ -1,7 +1,7 @@
 \version "1.7.18"
-
 \header {
-  texidoc = "Show different scales."
+  texidoc = "@cindex Scales Greek
+Show different scales."
 }
 
 voicedefault = \notes {
@@ -54,8 +54,7 @@ voicedefault = \notes {
 	}
 
     >
-	\paper {
-	}
+	\paper { }
 	\midi {}
 }
 %% new-chords-done %%
diff --git a/input/test/scales.ly b/input/test/scales.ly
index bd734a37eb..07d0c34d15 100644
--- a/input/test/scales.ly
+++ b/input/test/scales.ly
@@ -1,5 +1,8 @@
 \version "1.7.18"
-
+% is this really useful?  candidate for long-term delete
+\header {texidoc = "@cindex Scales
+Prints scales. "
+}
 \score { 
   \context Voice \notes\relative c {
     % sharp-major 
@@ -106,6 +109,5 @@
 }
 
   \paper { }  
-  \midi { }
 }
 %% new-chords-done %%
diff --git a/input/test/scheme-interactions.ly b/input/test/scheme-interactions.ly
index e9a51243b2..8aabb25a00 100644
--- a/input/test/scheme-interactions.ly
+++ b/input/test/scheme-interactions.ly
@@ -1,14 +1,10 @@
 \version "1.7.18"
-
-\header {
-
-    texidoc = "With @code{ly:export}, you can pass of the result of
-Scheme expressions as lilypond input. Within a Scheme expression, you
-can use, define or change lilypond variables. "
-
+\header { texidoc = "@cindex Scheme Interactions
+With @code{ly:export}, you can pass of the result of
+Scheme expressions as lilypond input.  Within a Scheme expression,
+you can use, define or change lilypond variables. "
 }
 
-
 foo = \notes \transpose c c { d''4-. }
 bra = \notes \transpose c c { e'4-. }
 
@@ -22,5 +18,6 @@ bra = \notes \transpose c c { e'4-. }
       \baz
       c4
   }
+	\paper {raggedright=##t}
 }
 %% new-chords-done %%
diff --git a/input/test/script-abbreviations.ly b/input/test/script-abbreviations.ly
index f84e7d070d..02fd19b713 100644
--- a/input/test/script-abbreviations.ly
+++ b/input/test/script-abbreviations.ly
@@ -1,7 +1,7 @@
 \version "1.7.18"
-
-\header {
-    texidoc = "Some scripts may be entered using an abbreviation"
+% covered by refman.  delete.  -gp
+\header { texidoc = "@cindex Script Abbreviations
+Some scripts may be entered using an abbreviation. "
 }
 
 \score {
diff --git a/input/test/script-chart.ly b/input/test/script-chart.ly
index 86d846a68b..36cbbc50d0 100644
--- a/input/test/script-chart.ly
+++ b/input/test/script-chart.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% covered in refman.  delete, or move to an appendix. -gp
 \header {
     texidoc ="A chart showing all feta scripts"
 }
diff --git a/input/test/script-horizontal.ly b/input/test/script-horizontal.ly
index ac597b765d..02990120e7 100644
--- a/input/test/script-horizontal.ly
+++ b/input/test/script-horizontal.ly
@@ -1,9 +1,8 @@
 \version "1.7.18"
-%{
 
-Please don't use this Scheme hacking unless you have a good reason.
-
-%}
+\header{ texidoc = "@cindex Script Horizontal
+Please don't use this Scheme hacking unless you have a good reason. "
+}
 	
 \score {
 	\notes \context Voice <
@@ -26,6 +25,7 @@ Please don't use this Scheme hacking unless you have a good reason.
 		\consists Script_engraver
 		\consists Text_engraver		
 		}
+	raggedright=##t
 	}
 }
 %% new-chords-done %%
diff --git a/input/test/script-priority.ly b/input/test/script-priority.ly
index 52ff9169a4..e0ee7c3279 100644
--- a/input/test/script-priority.ly
+++ b/input/test/script-priority.ly
@@ -1,9 +1,10 @@
 \version "1.7.18"
-\header {
-    texidoc = "Relative placements of different script types can be controlled
-by overriding script-priority."
+
+\header { texidoc = "@cindex Script Priority
+Relative placements of different script types can be controlled
+by overriding script-priority. "
 }
-\paper { raggedright = ##t} 
+
 
 \score{
     \context Staff \notes \relative g''{
@@ -17,6 +18,6 @@ by overriding script-priority."
 	
 	a4^\prall^\markup \fontsize  #-2 \musicglyph #"accidentals-1"
     }
+	\paper { raggedright = ##t} 
 }
-
 %% new-chords-done %%
diff --git a/input/test/separate-staccato.ly b/input/test/separate-staccato.ly
index c0d03df289..3da0c28fc6 100644
--- a/input/test/separate-staccato.ly
+++ b/input/test/separate-staccato.ly
@@ -1,9 +1,9 @@
 \version "1.7.18"
-\header {
+% possible rename.  -gp
 
-texidoc="You can enter notes and articulations separately, and merge
+\header { texidoc="@cindex Seperate Staccato
+You can enter notes and articulations separately, and merge
 them into one thread.  Here is an example to add repeated staccato dots."
-
 } 
 
 staccatos = \notes { s4-. s-. s-. s s }
@@ -15,5 +15,6 @@ music = \notes\relative c' { c4 d e f g  a b c d e }
      \music
      \repeat unfold 2 \staccatos
    >
+	\paper{raggedright=##t}
 }
 %% new-chords-done %%
diff --git a/input/test/short-part-combine.ly b/input/test/short-part-combine.ly
index 409cfea244..89783ca084 100644
--- a/input/test/short-part-combine.ly
+++ b/input/test/short-part-combine.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% covered by part-combine.ly.  delete -gp
 
 \score{
 	\context Staff <
diff --git a/input/test/simple-slur-endings.ly b/input/test/simple-slur-endings.ly
index e69aa47499..c4a31c55ce 100644
--- a/input/test/simple-slur-endings.ly
+++ b/input/test/simple-slur-endings.ly
@@ -1,5 +1,6 @@
 \version "1.7.18"
-
+%  regression or delete.  -gp
+\header {texidoc = ""}
 \score{
 	\notes \relative c''{
 		\slurUp c(a-) d(g,-)\break
diff --git a/input/test/sketch.ly b/input/test/sketch.ly
index acf5c1ffe3..2beab50097 100644
--- a/input/test/sketch.ly
+++ b/input/test/sketch.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% looks like a really old file.  delete.  -gp
 \header {
 texidoc="sketch output supported features"
 }
diff --git a/input/test/slur-area.ly b/input/test/slur-area.ly
index 8de5729562..d1bb9ddb78 100644
--- a/input/test/slur-area.ly
+++ b/input/test/slur-area.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% regression or delete.  -gp
 
 \score{
 \notes\relative c''{
diff --git a/input/test/slur-attachment-override.ly b/input/test/slur-attachment-override.ly
index 431be7900b..fcac5a2eea 100644
--- a/input/test/slur-attachment-override.ly
+++ b/input/test/slur-attachment-override.ly
@@ -1,12 +1,10 @@
 \version "1.7.18"
 
 \header{
-texidoc="
-In some cases, you may want to set slur attachments by hand.
-"
+texidoc="@cindex Slur Attachment Override
+In some cases you may want to set slur attachments by hand. "
 }
 
-
 fragment = \notes {
   \property Voice.autoBeaming = ##f
   \property Voice.Stem \set #'direction = #1
@@ -16,10 +14,9 @@ fragment = \notes {
   d,32( f'4  d8.-)
 }
 
-\paper { raggedright = ##t} 
 
 \score {
-  \notes\relative c \fragment
-  \paper { }  
+	\notes\relative c \fragment
+	\paper { raggedright = ##t} 
 }
 %% new-chords-done %%
diff --git a/input/test/slur-attachment.ly b/input/test/slur-attachment.ly
index 27ebf64cea..b87da39b79 100644
--- a/input/test/slur-attachment.ly
+++ b/input/test/slur-attachment.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% covered by slur-attachment-override.  delete  -gp
 
 fragment = \notes {
   \property Voice.Slur \set #'direction = #1
diff --git a/input/test/slur-beautiful.ly b/input/test/slur-beautiful.ly
index 0aa13d9efe..23d8e72494 100644
--- a/input/test/slur-beautiful.ly
+++ b/input/test/slur-beautiful.ly
@@ -1,6 +1,7 @@
 \version "1.7.18"
-\header {
-    texidoc ="Similarly, the curvature of a slur is adjusted to stay clear of note
+% TODO bit too wordy; edit a bit to cut stuff.  -gp
+\header { texidoc ="@cindex Slur Beautiful
+Similarly, the curvature of a slur is adjusted to stay clear of note
 heads and stems.  When that would increase the curvature too much, the
 slur is reverted to its default shape.  The threshold for this
 decision is in Slur's object property @code{beautiful}.
diff --git a/input/test/slur-broken-cross-staff.ly b/input/test/slur-broken-cross-staff.ly
index 4342521a13..364d59af62 100644
--- a/input/test/slur-broken-cross-staff.ly
+++ b/input/test/slur-broken-cross-staff.ly
@@ -1,9 +1,7 @@
 \version "1.7.18"
-\header{
-texidoc="
-The same goes for slurs. They behave decently when broken across
-linebreak.
-"
+% regression or delete.  -gp
+\header{ texidoc="
+Slur behave decently when broken across linebreak. "
 }
 
 	
diff --git a/input/test/slur-broken.ly b/input/test/slur-broken.ly
index 9c3a7a7c58..7c3946cd85 100644
--- a/input/test/slur-broken.ly
+++ b/input/test/slur-broken.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% regression or delete.  -gp
 
 \score{
 	\notes\relative c''{
diff --git a/input/test/slur-damping.ly b/input/test/slur-damping.ly
index e5b60babbe..a990ddcdd1 100644
--- a/input/test/slur-damping.ly
+++ b/input/test/slur-damping.ly
@@ -1,6 +1,5 @@
 \version "1.7.18"
-% test damping
-
+% delete.  -gp
 
 \score{
 	\notes\relative c'{
diff --git a/input/test/slur-dash.ly b/input/test/slur-dash.ly
index 4003b4d9c3..c503872684 100644
--- a/input/test/slur-dash.ly
+++ b/input/test/slur-dash.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% regression or delete.  -gp
 
 \score{
 	\notes{
diff --git a/input/test/slur-follow-music.ly b/input/test/slur-follow-music.ly
index 68d37dc286..a36300f061 100644
--- a/input/test/slur-follow-music.ly
+++ b/input/test/slur-follow-music.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% more fodder for regression.  -gp
 
 \score { 
   \context Voice \notes\relative c {
@@ -22,6 +23,5 @@
   \paper {
     raggedright = ##t
   }  
-  \midi { }
 }
 %% new-chords-done %%
diff --git a/input/test/slur-positions.ly b/input/test/slur-positions.ly
index 6b1602a457..48254c413d 100644
--- a/input/test/slur-positions.ly
+++ b/input/test/slur-positions.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% if this test isn't covered in regression, we're in trouble.  :)  delete.  -gp
 
 \score{
 	\notes\relative c''{
diff --git a/input/test/slur-proof.ly b/input/test/slur-proof.ly
index de382496c8..d88ff40cb8 100644
--- a/input/test/slur-proof.ly
+++ b/input/test/slur-proof.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% looks pretty, but it's for regression.  -gp
 
 x = {
   \outputproperty #(make-type-checker 'note-head-interface) 
diff --git a/input/test/slur-symmetry-2.ly b/input/test/slur-symmetry-2.ly
index 676290058b..1af46ea4a4 100644
--- a/input/test/slur-symmetry-2.ly
+++ b/input/test/slur-symmetry-2.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% another regression.  -gp
 \header{
 % should look the same
 title="symmetry"
diff --git a/input/test/slur-symmetry-3.ly b/input/test/slur-symmetry-3.ly
index ecf560284c..177f4916c5 100644
--- a/input/test/slur-symmetry-3.ly
+++ b/input/test/slur-symmetry-3.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% regression, and should be merged with -2.
 \header{
 title="symmetry.
 
diff --git a/input/test/slur-ugly.ly b/input/test/slur-ugly.ly
index 23ae3a50a9..2578d4a591 100644
--- a/input/test/slur-ugly.ly
+++ b/input/test/slur-ugly.ly
@@ -1,8 +1,7 @@
 \version "1.7.18"
 
-\header {
-texidoc="You can get ugly slurs, if you want.
-"
+\header { texidoc="@cindex Slur Ugly
+You can get ugly slurs, if you want. "
 }
 
 baseWalk = \notes \relative c {
diff --git a/input/test/smart-transpose.ly b/input/test/smart-transpose.ly
index 51b230370d..46fc91e108 100644
--- a/input/test/smart-transpose.ly
+++ b/input/test/smart-transpose.ly
@@ -1,7 +1,7 @@
 \version "1.7.18"
 
 \header {
-texidoc="
+texidoc="@cindex Smart Transpose
 @example
     Here's a copy of my feature request :
 @quotation
diff --git a/input/test/solo-a2.ly b/input/test/solo-a2.ly
index 9df735ae01..092a98ee80 100644
--- a/input/test/solo-a2.ly
+++ b/input/test/solo-a2.ly
@@ -17,6 +17,7 @@
 		>
 	\paper{
 		linewidth = 100.\mm
+		raggedright=##t
 	}
 }
 %% new-chords-done %%
diff --git a/input/test/spacing-2.ly b/input/test/spacing-2.ly
index ab2c00728a..cffeb0552e 100644
--- a/input/test/spacing-2.ly
+++ b/input/test/spacing-2.ly
@@ -1,4 +1,5 @@
 \version "1.7.18"
+% more yummy regression goodness.  -gp
 \header {
 texidoc = "
 1. upon stretching: every note should stretch according to duration
diff --git a/input/test/span-bars.ly b/input/test/span-bars.ly
index 42f1311552..f3bd836de9 100644
--- a/input/test/span-bars.ly
+++ b/input/test/span-bars.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% regression again?  *sigh*  :)   -gp
 
 nt =  \notes { c1 \break c1 c1 } 
 stuff =  \notes \relative c'' <
diff --git a/input/test/spanner-after-break-tweak.ly b/input/test/spanner-after-break-tweak.ly
index c7b80b3d55..fd10d39e0f 100644
--- a/input/test/spanner-after-break-tweak.ly
+++ b/input/test/spanner-after-break-tweak.ly
@@ -1,12 +1,9 @@
 \version "1.7.21"
-\header
-{
-    
-texidoc = "To selectively tweak spanners after the linebreaking
-process, Scheme code must be used.  In this simple example, the tie
-after the line break is set transparent."
-
 
+\header { texidoc = "@cindex Spanner After Break Transparent
+To selectively tweak spanners after the linebreaking
+process, Scheme code must be used.  In this simple example, the tie
+after the line break is set transparent. "
 }
 
 \score { \notes {
diff --git a/input/test/stacked-scripts.ly b/input/test/stacked-scripts.ly
index 8e38a65d7e..bcb5d5ebd2 100644
--- a/input/test/stacked-scripts.ly
+++ b/input/test/stacked-scripts.ly
@@ -1,5 +1,9 @@
 \version "1.7.18"
 
+\header { texidoc = "@cindex Stacked Text Articulation
+You can stack text and articulations. "
+}
+
 \score {
 	\notes {
 		c2_"geen gedonder"_"jij gaat onder"
diff --git a/input/test/staff-bracket.ly b/input/test/staff-bracket.ly
index a20e5b46b5..dcddbc6acc 100644
--- a/input/test/staff-bracket.ly
+++ b/input/test/staff-bracket.ly
@@ -1,5 +1,9 @@
 \version "1.7.18"
 
+\header{texidoc = "@cindex Staff Bracket
+Here's an example of staff brackets. "
+}
+
 \score
 {
   \context StaffGroup = a < 
@@ -21,6 +25,7 @@
       \StaffContext
       \consists Instrument_name_engraver
     }
+	raggedright=##t
   }
 }
 %% new-chords-done %%
diff --git a/input/test/staff-container.ly b/input/test/staff-container.ly
index d99ddc8932..ce8d3633d3 100644
--- a/input/test/staff-container.ly
+++ b/input/test/staff-container.ly
@@ -1,12 +1,9 @@
 \version "1.7.18"
 
-
-\header {
-
- texidoc = "By splitting the grouping (Axis_group_engraver) and
+\header { texidoc = "@cindex Staff Container
+By splitting the grouping (Axis_group_engraver) and
 creation functionality into separate contexts, you can override
-interesting things. You can also drop the \consistsend feature."
-
+interesting things. You can also drop the \consistsend feature. "
 }
 
 
@@ -35,6 +32,7 @@ interesting things. You can also drop the \consistsend feature."
 		\StaffContext
 		\remove Axis_group_engraver
 	}
+	raggedright=##t
 }
 }
 
diff --git a/input/test/staff-lines.ly b/input/test/staff-lines.ly
index 2e82997efa..ab0d55e09e 100644
--- a/input/test/staff-lines.ly
+++ b/input/test/staff-lines.ly
@@ -1,6 +1,7 @@
 \version "1.7.18"
-\header {
-texidoc="staff symbol property set workaround"
+
+\header { texidoc="@cindex Staff Lines
+Staff symbol property set workaround. "
 }
 
 
@@ -27,6 +28,5 @@ lower = \notes\relative c {
         #'line-count = #4
     >  
   >
-  \paper { }  
-  \midi { }  
+  \paper { raggedright=##t}  
 }%% new-chords-done %%
diff --git a/input/test/staff-margin-partial.ly b/input/test/staff-margin-partial.ly
index aad12c0e49..588003d2df 100644
--- a/input/test/staff-margin-partial.ly
+++ b/input/test/staff-margin-partial.ly
@@ -1,7 +1,6 @@
 \version "1.7.18"
 % test staff margin with partial measure.
-
-
+% regression.  -gp
 
 \score {
 \notes { \property Staff.instrument = "foo" \partial 4 c4 c1 }
diff --git a/input/test/staff-size.ly b/input/test/staff-size.ly
index dbc927a9f6..650d6d49e7 100644
--- a/input/test/staff-size.ly
+++ b/input/test/staff-size.ly
@@ -1,10 +1,11 @@
+\version "1.7.18"
 
-\header { texidoc = "Setting staff sizes is a little clumsy.  There
+\header { texidoc = "@cindex Staff Size
+Setting staff sizes is a little clumsy.  There
 are two options: using StaffContainer and override/revert, or
-\outputproperty. Both methods are shown in this example."
+\outputproperty. Both methods are shown in this example. "
 }
 
-\version "1.7.18"
 \score {
   \notes \relative c' < \context StaffContainer = SA{
      \property StaffContainer.StaffSymbol \set #'staff-space = #(/ 16 20)
diff --git a/input/test/stem-centered.ly b/input/test/stem-centered.ly
index bc9e551b52..5ca85a1418 100644
--- a/input/test/stem-centered.ly
+++ b/input/test/stem-centered.ly
@@ -1,15 +1,18 @@
 \version "1.7.18"
+% possible rename to ancient- something.
 \header {
-    texidoc ="mensural note heads."
-    }
+    texidoc ="@cindex Ancient Mensural Note Heads
+Mensural note heads. "
+}
 
 \score {
-\notes {
-\relative c'' {
-\property Voice . NoteHead \set #'style = #'mensural
-c\maxima*1/8
-c\longa*1/4 c\breve*1/2 c1 c2 c4 c8 
-}
-}
+	\notes {
+	\relative c'' {
+		\property Voice . NoteHead \set #'style = #'mensural
+		c\maxima*1/8
+		c\longa*1/4 c\breve*1/2 c1 c2 c4 c8 
+		}
+	}
+	\paper{raggedright=##t}
 }
 %% new-chords-done %%
diff --git a/input/test/stem-cross-staff.ly b/input/test/stem-cross-staff.ly
index da3282f4b1..2310911129 100644
--- a/input/test/stem-cross-staff.ly
+++ b/input/test/stem-cross-staff.ly
@@ -1,16 +1,9 @@
 \version "1.7.18"
 
-\header {
-    texidoc = "
-
+\header { texidoc = "@cindex Stem Cross Staff
 There is no support for putting chords across staves.
 You can get this result by increasing the length of the stem in the
-lower stave so it reaches the stem in the upper stave, or vice versa.
-
-@cindex  Cross staff stems
-@cindex Stems, cross staff
-
-"
+lower stave so it reaches the stem in the upper stave, or vice versa. "
 }
 
 stemExtend = \once \property Voice.Stem \override #'length  = #22
diff --git a/input/test/stem-length.ly b/input/test/stem-length.ly
index f68697253e..7c5ad94e03 100644
--- a/input/test/stem-length.ly
+++ b/input/test/stem-length.ly
@@ -1,11 +1,14 @@
 \version "1.7.18"
 
+\header{ texidoc = "@cindex Stem Length
+You can alter the length of stems. "
+}
+
 \score { 
   \context Voice \notes\relative c {
 	g''4 \property Voice.Stem \set #'length = #14  g4
 	\property Voice.Stem \set #'length = #3 g4  g,,4  
   }
-  \paper { }  
-  \midi { }
+  \paper { raggedright = ##t }  
 }
 %% new-chords-done %%
diff --git a/input/test/stem.ly b/input/test/stem.ly
index d880714793..b8f6441d10 100644
--- a/input/test/stem.ly
+++ b/input/test/stem.ly
@@ -1,12 +1,11 @@
 \version "1.7.18"
-\header{
-texidoc = 	 "This file tests the length of stems and placement 
+% regression, _so_ regression.  :)  =-gp
+
+\header{ texidoc = "
+This file tests the length of stems and placement 
 of beams"
-  
 }
 
-
-
 beamintervals = \notes{
   \time 7/4
   \stemUp
diff --git a/input/test/system-start-brace.ly b/input/test/system-start-brace.ly
index 70db29a0ae..fbc9396689 100644
--- a/input/test/system-start-brace.ly
+++ b/input/test/system-start-brace.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% delete.
 
 \score {
 	\notes	\context PianoStaff < \context Staff = SA { s1 }
diff --git a/input/test/system-start-bracket.ly b/input/test/system-start-bracket.ly
index e22710a74b..545d5b36f5 100644
--- a/input/test/system-start-bracket.ly
+++ b/input/test/system-start-bracket.ly
@@ -1,5 +1,5 @@
 \version "1.7.18"
-
+% delete.
 
 \score {
 	\notes	\context StaffGroup < \context Staff = SA { s1 }
-- 
2.39.5