(grob-cause): escape spaces in URLs.

diff --git a/ChangeLog b/ChangeLog
index c848e7a6b0d73ceba3f36d5c3152ef99c65413a7..3b35d30d11e04d4ffcccf71f4bda6b0692fbaa9c 100644 (file)
--- 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 0fe0a1ef14b19b9347ddbcc295021caf6b1a7e66..7a8612264bc66e5772c34ed1533b28f5b94698ab 100644 (file)
--- 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))