(grob-cause): escape spaces in URLs.

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index f450731052159f94d439b017896a9b8f2b347d4f..c16acc56f2a1f6b15897e849b3d369845f49c581 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -364,7 +364,6 @@ possibly turned off."
 (define-public (string-regexp-substitute a b str)
   (regexp-substitute/global #f a str 'pre b 'post)) 
 
-
 (define (regexp-split str regex)
   (define matches '())
   (define end-of-prev-match 0)

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7a8612264bc66e5772c34ed1533b28f5b94698ab..e0bd54d9240c8a682109cbda33c8acc3815f2cc3 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -204,7 +204,7 @@
 
                      ;; TODO
                      ;; full escaping.
-                     (re-sub " " "%20" file)
+                     (string-regexp-substitute " " "%20" file)
                      (cadr location)
                      (caddr location)
                      (cadddr location))