From c557e8521747b680019d6848f140cbcc2421d8f8 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 4 Oct 2002 22:44:58 +0000 Subject: [PATCH] *** empty log message *** --- lily/staff-spacing.cc | 1 - scm/to-xml.scm | 6 +----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/lily/staff-spacing.cc b/lily/staff-spacing.cc index bc95433a78..33d2a037f8 100644 --- a/lily/staff-spacing.cc +++ b/lily/staff-spacing.cc @@ -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) diff --git a/scm/to-xml.scm b/scm/to-xml.scm index b345b7969b..3bc7a8068a 100644 --- a/scm/to-xml.scm +++ b/scm/to-xml.scm @@ -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) -- 2.39.2