Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / document-translation.scm

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index fdf04014c04ce3cd8f020fd491cdae19683af0fc..9b4d7a23f6e252cb611cba3d34511b9c3f982b48 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2000--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define (engraver-makes-grob? name-symbol grav)
@@ -127,14 +127,10 @@
 
       (string-append
        "@item Set "
-       (format "grob-property @code{~a} " (string-join path " "))
-       (format " in @ref{~a} " context-sym)
-       (if (not (null? (cddr body)))
-          (format " to @code{~a}" (scm->texi value))
-          "")
-       
+       (format "grob-property @code{~a} " (string-join (map symbol->string path) " "))
+       (format " in @ref{~a} to @code{~a}.  " context-sym (scm->texi value))
        "\n")))
-     ((equal? (object-property sym 'is-grob?) #t) "")
+     ((equal? (object-property context-sym 'is-grob?) #t) "")
      ((equal? tag 'assign)
       (format "@item Set translator property @code{~a} to @code{~a}"
              context-sym
@@ -162,7 +158,7 @@
       (string-append 
        desc
        (if (pair? aliases)
-          (string-append "\n\n This context is also known as: \n\n"
+          (string-append "\n\n This context also accepts commands for the following context(s):\n\n"
                          (human-listify aliases))
           "")
        "\n\nThis context creates the following layout objects: \n\n"