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

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

diff --git a/ChangeLog b/ChangeLog
index c848e7a6b0..3b35d30d11 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-08-24  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/output-ps.scm (grob-cause): escape spaces in URLs.
+
 	* lily/multi-measure-rest.cc (set_text_rods): new function.
 
 	* lily/vertical-align-engraver.cc (process_music): call
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 0fe0a1ef14..7a8612264b 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -201,7 +201,10 @@
 		      (+ (cdr offset) (car y-ext))
 		      (+ (car offset) (cdr x-ext))
 		      (+ (cdr offset) (cdr y-ext))
-		      file
+
+		      ;; TODO
+		      ;; full escaping.
+		      (re-sub " " "%20" file)
 		      (cadr location)
 		      (caddr location)
 		      (cadddr location))