From 96041f379c0e0f9fe328c277987daa56f90959cd Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Mon, 2 Jul 2007 09:07:09 +0200
Subject: [PATCH] Add some full stops at end of sentences.

---
 scm/document-backend.scm       | 10 +++++-----
 scm/document-functions.scm     |  2 +-
 scm/document-music.scm         |  6 +++---
 scm/document-translation.scm   | 10 +++++-----
 scm/documentation-generate.scm |  4 +++-
 5 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 018f8713e1..2a23e49afa 100644
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -110,7 +110,7 @@ node."
 (define (all-grobs-doc)
   (make <texi-node>
     #:name "All layout objects"
-    #:desc "Description and defaults for all Grobs"
+    #:desc "Description and defaults for all graphical objects (grobs)."
     #:children
     (map (lambda (x) (grob-doc (cdr x)))  all-grob-descriptions)))
 
@@ -147,7 +147,7 @@ node."
 (define (all-interfaces-doc)
   (make <texi-node>
     #:name "Graphical Object Interfaces"
-    #:desc "Building blocks of graphical objects"
+    #:desc "Building blocks of graphical objects."
     #:children
     (map interface-doc interface-description-alist)))
 
@@ -162,16 +162,16 @@ node."
 (define (backend-doc-node)
   (make <texi-node>
     #:name "Backend"
-    #:desc "Reference for the layout engine"
+    #:desc "Reference for the layout engine."
     #:children
     (list
      (all-grobs-doc)
      (all-interfaces-doc)
      (make <texi-node>
        #:name "User backend properties"
-       #:desc "All tunable properties in a big list"
+       #:desc "All tunable properties in a big list."
        #:text (backend-properties-doc-string all-user-grob-properties))
      (make <texi-node>
        #:name "Internal backend properties"
-       #:desc "All internal layout properties in a big list"
+       #:desc "All internal layout properties in a big list."
        #:text (backend-properties-doc-string all-internal-grob-properties)))))
diff --git a/scm/document-functions.scm b/scm/document-functions.scm
index 5515b1312e..b057a7aab5 100644
--- a/scm/document-functions.scm
+++ b/scm/document-functions.scm
@@ -37,7 +37,7 @@
 	 (sfdocs (sort fdocs string<?))) 
     (make <texi-node>
       #:name "Scheme functions"
-      #:desc "Primitive functions exported by LilyPond"
+      #:desc "Primitive functions exported by LilyPond."
       #:text
       (apply string-append sfdocs))))
 
diff --git a/scm/document-music.scm b/scm/document-music.scm
index 2e8c40f2f0..0d01abb6b9 100644
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -8,7 +8,7 @@
 (define (music-props-doc)
   (make <texi-node>
     #:name "Music properties"
-    #:desc "All music properties, including descriptions"
+    #:desc "All music properties, including descriptions."
     #:text
     (let* ((ps (sort (map symbol->string all-music-properties) string<?))
 	   (descs (map (lambda (prop)
@@ -42,7 +42,7 @@
     (string-append
      "\nMusic event type @code{"
      (symbol->string (car entry))
-     "} is in Music objects of type "
+     "} is in music objects of type "
      (human-listify
       (sort
        (map (lambda (x) (ref-ify (symbol->string x)))
@@ -111,7 +111,7 @@
 (define (music-doc-node)
   (make <texi-node>
     #:name "Music definitions"
-    #:desc "Definition of the Input data structures"
+    #:desc "Definition of the input data structures."
     #:children
     (list
      (music-expressions-doc)
diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 6a9807b127..538bee10a5 100644
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -221,7 +221,7 @@
 
     (make <texi-node>
       #:name "Contexts"
-      #:desc "Complete descriptions of all contexts"
+      #:desc "Complete descriptions of all contexts."
       #:children
       (map context-doc contexts))))
 
@@ -234,7 +234,7 @@
 (define (all-engravers-doc)
   (make <texi-node>
     #:name "Engravers"
-    #:desc "All separate engravers"
+    #:desc "All separate engravers."
     #:text "See @usermanref{Modifying context plug-ins}."
     #:children
     (map engraver-doc all-engravers-list)))
@@ -252,19 +252,19 @@
 (define (translation-doc-node)
   (make <texi-node>
     #:name "Translation"
-    #:desc "From music to layout"
+    #:desc "From music to layout."
     #:children
     (list
      (all-contexts-doc)
      (all-engravers-doc)
      (make <texi-node>
        #:name "Tunable context properties"
-       #:desc "All tunable context properties"
+       #:desc "All tunable context properties."
        #:text (translation-properties-doc-string
 	       all-user-translation-properties))
 
      (make <texi-node>
        #:name "Internal context properties"
-       #:desc "All internal context properties"
+       #:desc "All internal context properties."
        #:text (translation-properties-doc-string
 	       all-internal-translation-properties)))))
diff --git a/scm/documentation-generate.scm b/scm/documentation-generate.scm
index e49adf5914..fa6298cd00 100644
--- a/scm/documentation-generate.scm
+++ b/scm/documentation-generate.scm
@@ -156,7 +156,9 @@
   (make <texi-node>
     #:name "Top"
     #:text 
-    (string-append  "This is the program reference for LilyPond version " (lilypond-version))
+    (string-append  "This is the program reference for version "
+		    (lilypond-version)
+		    " of LilyPond, the GNU music typesetter.")
 
     #:children
     (list
-- 
2.39.5