More formatting issues for lilypond-internals.

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 08cc17cd33ce4d64c12e366d9a8e48e1a19ec7f7..018f8713e145b21c4767c46f1d9f5fb44ac00bc7 100644 (file)
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -31,7 +31,7 @@
 
      (if (pair? iprops)
         (string-append
-         "\n\n@unnumberedsubsubsec Internal properties: \n"
+         "\n\n@unnumberedsubsubsec Internal properties:\n"
          (description-list->texi internal-propdocs))
         ""))))
 

diff --git a/scm/document-music.scm b/scm/document-music.scm
index b720b592f722a64a3bef973157b15b6371b05ef8..2e8c40f2f09ca579e61bee070e5c6b3b9981e004 100644 (file)
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -47,6 +47,7 @@
       (sort
        (map (lambda (x) (ref-ify (symbol->string x)))
            (cdr entry)) string<?))
+     "."
 
      "\n\nAccepted by: "
      (human-listify
@@ -55,6 +56,7 @@
                (map ly:translator-name
                     (filter
                      (lambda (x) (engraver-accepts-music-type? (car entry) x)) all-engravers-list)))))
+     "."
      "\n\n")))
 
 (define (music-types-doc)
@@ -74,22 +76,24 @@
                         (string-append
                          "\n\nEvent classes:\n"
                          (human-listify (map ref-ify (map symbol->string classes)))
-                         "\n\n"
+                         "."
+
                          "\n\nAccepted by: "
                          (human-listify
                           (map ref-ify
                                (map symbol->string (map ly:translator-name
                                                         (filter
-                                                         (lambda (x) (engraver-accepts-music-types? classes x)) all-engravers-list))))))
+                                                         (lambda (x) (engraver-accepts-music-types? classes x)) all-engravers-list)))))
+                         ".")
                         "")))
 
     (string-append
      (object-property namesym 'music-description)
      event-texi
-     "\n\nProperties: \n"
+     "\n\nProperties:\n"
      (description-list->texi
       (map
-       (lambda (x) (property->texi 'music  x props))
+       (lambda (x) (property->texi 'music x props))
        (map car props))))))
 
 (define (music-object-doc obj)

diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 75e00a009915fc0188a8f27d2ddd8a0984d1c51f..6a9807b127b1928b94c49f6d313d98f20d93db6c 100644 (file)
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -45,7 +45,7 @@
         (string-append
          "Properties (read)"
          (description-list->texi
-          (map (lambda (x) (property->texi 'translation  x '())) propsr)))
+          (map (lambda (x) (property->texi 'translation x '())) propsr)))
         "")
      
      (if (null? propsw)
@@ -53,12 +53,12 @@
         (string-append
          "Properties (write)" 
          (description-list->texi
-          (map (lambda (x) (property->texi 'translation  x '())) propsw))))
+          (map (lambda (x) (property->texi 'translation x '())) propsw))))
      (if  (null? grobs)
          ""
          (string-append
-          "This engraver creates the following layout objects: \n "
-          (human-listify (map ref-ify (uniq-list (sort grobs string<? ))))
+          "\n\nThis engraver creates the following layout objects:\n\n"
+          (human-listify (map ref-ify (uniq-list (sort grobs string<?))))
           "."))
 
      "\n\n"