Whitespace error fixes.

diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 79da938b6b34e08443195f5548950d2e742800d4..6f82b4018a4417b83e8d7f6934248320fa0257de 100644 (file)
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -61,7 +61,7 @@
 
 (define (texi-section-command level)
   (assoc-get level '(
-                    ;; Hmm, texinfo doesn't have ``part''
+                    ;; Hmm, texinfo doesn't have ``part''
                     (0 . "@top")
                     (1 . "@chapter")
                     (2 . "@section")
@@ -71,7 +71,7 @@
 
 (define (texi-appendix-section-command level)
   (assoc-get level '((0 . "@top")
-                    (1 . "@appendix")
+                    (1 . "@appendix")
                     (2 . "@appendixsec")
                     (3 . "@appendixsubsec")
                     (4 . "@appendixsubsubsec")

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 549b175d1eef872ddcd4d663be49baa6431b1062..5ad79b409667c9418709f40cf68cead50e7843fb 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -481,7 +481,7 @@ OTTAVATION to `8va', or whatever appropriate."
 
       (let* ((offset (* -7 octavation))
             (string (assoc-get octavation '((2 . "15ma")
-                                            (1 . "8va")
+                                            (1 . "8va")
                                             (0 . #f)
                                             (-1 . "8vb")
                                             (-2 . "15mb")))))

diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm
index c874f09d1cda66ad25084993577557b4bd4ba76d..d1dccbab7ab042d5c6baa3eb39880179f15f4bba 100644 (file)
--- a/scm/part-combiner.scm
+++ b/scm/part-combiner.scm
@@ -230,10 +230,10 @@ Voice-state objects
 
     (set! (ly:music-property m 'elements) (list m1 m2))
     (set! (ly:music-property m 'split-list)
-      (if (and (assoc "one" evs1) (assoc "two" evs2))
-         (determine-split-list (reverse! (assoc-get "one" evs1) '())
-                               (reverse! (assoc-get "two" evs2) '()))
-         '() ))
+         (if (and (assoc "one" evs1) (assoc "two" evs2))
+             (determine-split-list (reverse! (assoc-get "one" evs1) '())
+                                   (reverse! (assoc-get "two" evs2) '()))
+             '()))
     m))
 
 (define-public (determine-split-list evl1 evl2)