From: Werner Lemberg <wl@gnu.org>
Date: Tue, 26 Jun 2007 18:56:00 +0000 (+0200)
Subject: More formatting issues for lilypond-internals.
X-Git-Tag: release/2.11.28-1~66^2~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5c0ced08ad28694ab16575c66d91068d1aa58ead;p=lilypond.git

More formatting issues for lilypond-internals.
---

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 08cc17cd33..018f8713e1 100644
--- 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 b720b592f7..2e8c40f2f0 100644
--- 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 75e00a0099..6a9807b127 100644
--- 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"