]> git.donarmstrong.com Git - lilypond.git/commitdiff
*** empty log message ***
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Fri, 4 Oct 2002 22:44:58 +0000 (22:44 +0000)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Fri, 4 Oct 2002 22:44:58 +0000 (22:44 +0000)
lily/staff-spacing.cc
scm/to-xml.scm

index bc95433a78e8fc0a07d7021d7f616dbf6ec30fc7..33d2a037f8caf26d1f1c6977f15f492dc77af2ed 100644 (file)
@@ -223,7 +223,6 @@ Staff_spacing::get_spacing_params (Grob *me, Real * space, Real * fixed)
   SCM alist = last_grob->get_grob_property ("space-alist");
   if (!scm_list_p (alist))
     return ;
-
   
   SCM space_def = scm_sloppy_assq (ly_symbol2scm ("first-note"), alist);
   if (me_item->break_status_dir () == CENTER)
index b345b7969bb9ade03acb73405a639d65c0558b95..3bc7a8068aec60676d143b16c9d181e7b50a76fe 100644 (file)
@@ -140,10 +140,8 @@ is then separated.
      "\n   "
     (symbol->string sym)
     "=\""
-
     (let ((s (call-with-output-string (lambda (port) (display val port)))))
       (re-sub-alist s xml-entities-alist))
-    
     "\""
     )))
 
@@ -151,7 +149,6 @@ is then separated.
    "<" (symbol->string tag)
    (apply string-append
          (map dump-attr (filter-list candidate? attrs)))
-
    ">\n")
    
   )
@@ -189,8 +186,7 @@ is then separated.
           (music-to-xml-helper e port)))
      (display (close-tag 'music) port)
    ))
-   
-   
+
 (define-public (music-to-xml music port)
   "Dump XML-ish stuff to PORT."
   (display (dtd-header) port)