From: David Kastrup <dak@gnu.org>
Date: Mon, 10 Jun 2013 15:35:58 +0000 (+0200)
Subject: Remove two extra spaces from DOC strings
X-Git-Tag: release/2.17.21-1~15^2~17
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=770a1df2bc5639278a7297faed8af36ef959c0c3;p=lilypond.git

Remove two extra spaces from DOC strings
---

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index bfa9ea09c3..009887bf67 100644
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -76,7 +76,7 @@ Entry point for the parser."
             (else (interpret-removals chord mods))))
 
     (define (pitch-octavated-strictly-below p root)
-      "return P, but octavated, so it is below  ROOT"
+      "return P, but octavated, so it is below ROOT"
       (ly:make-pitch (+ (ly:pitch-octave root)
                         (if (> (ly:pitch-notename root)
                                (ly:pitch-notename p))
diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 82db3699d4..94a566ead4 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -424,7 +424,7 @@ bookoutput function"
             (symbol->string (car y))))
 
 (define (map-alist-vals func list)
-  "map FUNC over the vals of  LIST, leaving the keys."
+  "map FUNC over the vals of LIST, leaving the keys."
   (if (null?  list)
       '()
       (cons (cons  (caar list) (func (cdar list)))