From c1fbe4d307831c8a587eb4e4d13b19b7ca263231 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 5 Jul 2004 06:43:39 +0000
Subject: [PATCH] release commit

---
 Documentation/user/cheatsheet.itely     | 3 +++
 input/regression/beam-quant-standard.ly | 1 +
 lily/beam-quanting.cc                   | 4 ++--
 lily/beam.cc                            | 2 +-
 scm/define-grob-properties.scm          | 3 +++
 5 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/Documentation/user/cheatsheet.itely b/Documentation/user/cheatsheet.itely
index 272fb8be51..c186f51044 100644
--- a/Documentation/user/cheatsheet.itely
+++ b/Documentation/user/cheatsheet.itely
@@ -1,5 +1,8 @@
 @c -*-texinfo-*-
 
+
+@c TODO: add tablature.
+
 @node Cheat sheet
 @appendix Cheat sheet
 
diff --git a/input/regression/beam-quant-standard.ly b/input/regression/beam-quant-standard.ly
index 4bf8cdfda7..8a8d53ec15 100644
--- a/input/regression/beam-quant-standard.ly
+++ b/input/regression/beam-quant-standard.ly
@@ -4,6 +4,7 @@
     
 }
 
+\version "2.3.6"
 
 %
 % todo: make the check-quant function throw an error for incorrect quants
diff --git a/lily/beam-quanting.cc b/lily/beam-quanting.cc
index fc4ff9810c..4f963f7a3b 100644
--- a/lily/beam-quanting.cc
+++ b/lily/beam-quanting.cc
@@ -304,8 +304,8 @@ Beam::quanting (SCM smob)
 #endif
   
   me->set_property ("positions",
-			 ly_interval2scm (Drul_array<Real> (qscores[best_idx].yl,
-					  qscores[best_idx].yr)));
+		    ly_interval2scm (Drul_array<Real> (qscores[best_idx].yl,
+						       qscores[best_idx].yr)));
 #if DEBUG_QUANTING
   if (debug_beam_quanting_flag)
     {
diff --git a/lily/beam.cc b/lily/beam.cc
index 7a9eeecb9f..7b7c3d9cc3 100644
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -1574,7 +1574,7 @@ ADD_INTERFACE (Beam, "beam-interface",
 	       "knee positioning-done position-callbacks concaveness-gap "
 	       "concaveness-threshold dir-function quant-score auto-knee-gap gap "
 	       "gap-count chord-tremolo beamed-stem-shorten shorten least-squares-dy "
-	       "damping flag-width-function neutral-direction positions space-function "
+	       "damping inspect-quants flag-width-function neutral-direction positions space-function "
 	       "thickness");
 
 
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index c464392c66..6715bd56bd 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -283,6 +283,9 @@ slur, the closer it is to this height.")
      (horizontal-shift ,integer? "An integer that identifies ranking
 of note-column for horizontal shifting. This is used by
 @internalsref{note-collision-interface}.")
+     (inspect-quants ,number-pair? "If debugging is set,
+set beam quant to this position, and print the respective scores.")
+     
      (kern ,ly:dimension? "Amount of extra white space to add. For
 bar line, this is the amount of space after a thick line.")
      (knee ,boolean? "Is this beam kneed?")
-- 
2.39.5