From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 24 Aug 2005 20:19:06 +0000 (+0000)
Subject: (grob-cause): escape spaces in URLs.
X-Git-Tag: release/2.7.8~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5ef42aae6aa85135614289aeaf36adaf3ab2c998;p=lilypond.git

(grob-cause): escape spaces in URLs.
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index f450731052..c16acc56f2 100644
--- 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 7a8612264b..e0bd54d924 100644
--- 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))