From 6d92cb62685bb87505f41e6594fba1e168eb1b09 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:03:08 +0000
Subject: [PATCH] lilypond-1.5.14

---
 Documentation/user/refman.itely         |  5 +++--
 input/regression/stem-direction-down.ly |  2 +-
 input/test/beam-neutral-direction.ly    |  2 +-
 input/test/default-neutral-dir.ly       |  4 ++--
 scm/backend-documentation-lib.scm       | 12 ++++++++----
 scm/engraver-documentation-lib.scm      | 13 ++++++++-----
 scm/generate-documentation.scm          |  3 +--
 7 files changed, 24 insertions(+), 17 deletions(-)

diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index 10a69dcbfc..e9ba808c3c 100644
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -1004,7 +1004,6 @@ beams) can be tweaked through grob-properties @code{height} and
 span. Both are measured in half staff-spaces, @code{staff-position=0}
 corresponds to the middle staff line.
 
-
 Set @code{height} to zero, to get horizontal beams:
 
 @lilypond[fragment,relative,verbatim]
@@ -1021,7 +1020,9 @@ horizontal, falls two staff spaces:
   \property Voice.Beam \set #'height = #-4
   [c8 c] 
 @end lilypond
-@cindex @code{default-neutral-direction}
+
+@c TODO -> why this ref? Document? 
+@cindex @code{neutral-direction}
 
 @node Expressive marks
 @section Expressive marks
diff --git a/input/regression/stem-direction-down.ly b/input/regression/stem-direction-down.ly
index 857dea910d..74ecc47b3a 100644
--- a/input/regression/stem-direction-down.ly
+++ b/input/regression/stem-direction-down.ly
@@ -8,7 +8,7 @@ texidoc="Similarly, if @code{'neutral-direction} is set to @code{-1}.  "
 
 \score{
 	\notes\relative c{
-	\property Voice.Stem \override #'default-neutral-direction = #-1
+	\property Voice.Stem \override #'neutral-direction = #-1
 		 
 	    b''4 ~ b8()b8 e4 e,
 	}
diff --git a/input/test/beam-neutral-direction.ly b/input/test/beam-neutral-direction.ly
index 2e41028339..422b54bc66 100644
--- a/input/test/beam-neutral-direction.ly
+++ b/input/test/beam-neutral-direction.ly
@@ -3,7 +3,7 @@
 
 fragment = \notes {
   [b''8 b]
-  \property Voice.Beam \set #'default-neutral-direction = #-1
+  \property Voice.Beam \set #'neutral-direction = #-1
   [b b]
 }
 
diff --git a/input/test/default-neutral-dir.ly b/input/test/default-neutral-dir.ly
index 2bbfff601a..11e51df31c 100644
--- a/input/test/default-neutral-dir.ly
+++ b/input/test/default-neutral-dir.ly
@@ -2,12 +2,12 @@
 \header { texidoc = "
 The direction of a perfectly centred beams can be
 controlled through @code{Voice.Beam}'s grob-property
-@code{default-neutral-direction}
+directly@code{neutral-direction}
 "}
 
 \paper { linewidth = -1.}
 \score {\notes \relative c {
   [b''8 b]
-  \property Voice.Beam \set #'default-neutral-direction = #-1
+  \property Voice.Beam \set #'neutral-direction = #-1
   [b b]
 }}
diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 63d2937e15..3ea5632c0b 100644
--- a/scm/backend-documentation-lib.scm
+++ b/scm/backend-documentation-lib.scm
@@ -11,6 +11,10 @@
 ;; alist of property descriptions
 
 
+;;;;;; TODO: sort out symbol vs. string stuff.
+;;;;;; TODO: use flatten write iso. string-append; might be possible to fold
+;;;;;; in symbol->string integrally.
+
 (define (backend-property->texi sym)
   (let* ((name (symbol->string sym))
 	(type (object-property sym 'backend-type?))
@@ -84,21 +88,21 @@
      (node (grob-name name))
      (texi-section 2 (grob-name name) #f)
      "\n"
-     (let* ((grob (string->symbol name))
+     (let* ((grob name)
 	    (engravers (filter-list
 			(lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
 	    (engraver-names (map Translator::name engravers))
 	    )
 
        (string-append
-	name " grobs are created by: "
+	(symbol->string name) " grobs are created by: "
 	(human-listify (map ref-ify
 			    (map engraver-name engraver-names)))))
 
 	    (apply string-append ifacedoc))))
      
-(define (engraver-makes-grob? name grav)
-  (memq name (assoc 'grobs-created (Translator::description grav)))
+(define (engraver-makes-grob? name-symbol grav)
+  (memq name-symbol (assoc 'grobs-created (Translator::description grav)))
   )
 
 (define (document-all-grobs name)
diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index 6183686e0c..e19bce865b 100644
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -28,7 +28,7 @@
 	 (name (Translator::name engraver))
 	 (name-sym (string->symbol name))
 	 (desc (cdr (assoc 'description (Translator::description engraver))))
-	 (grobs (cdr (assoc 'grobs-created (Translator::description engraver))))
+	 (grobs (engraver-grobs engraver))
 	 )
 
     (string-append
@@ -141,14 +141,17 @@
 	 (apply string-append 
 		(map document-engraver-by-name consists))))))
 
-(define (engraver-grobs  name)
+(define (engraver-grobs  grav)
   (let* (
-	 (eg (find-engraver-by-name name all-engravers-list))
-      )
+	 (eg (if (string? grav)
+		 (find-engraver-by-name grav all-engravers-list)
+		 grav))
+	     
+	     )
 
     (if (eq? eg #f)
 	'()
-	(cdr (assoc 'grobs-created (Translator::description eg)))
+	(map symbol->string (cdr (assoc 'grobs-created (Translator::description eg))))
  	)
   ))
 
diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
index 5e3f8f805f..9dad6f22f9 100644
--- a/scm/generate-documentation.scm
+++ b/scm/generate-documentation.scm
@@ -1,4 +1,3 @@
-
 ;;; generate-documentation.scm -- Generate documentation
 ;;;
 ;;; source file of the GNU LilyPond music typesetter
@@ -30,7 +29,7 @@
 	     (document-music "LilyPond music properties") 
  	     (document-paper "LilyPond interpretation contexts")
  	     (document-all-engravers "LilyPond engravers")
-	     (document-all-engraver-properties "LilyPond context properties")	     
+	     (document-all-engraver-properties "LilyPond context properties")
  	     (document-all-grobs "LilyPond backend")
  	     (document-all-interfaces "LilyPond interfaces")
 	     (document-all-backend-properties "LilyPond backend properties")
-- 
2.39.5