From 5ef42aae6aa85135614289aeaf36adaf3ab2c998 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 24 Aug 2005 20:19:06 +0000 Subject: [PATCH] (grob-cause): escape spaces in URLs. --- scm/lily-library.scm | 1 - scm/output-ps.scm | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) 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)) -- 2.39.5