CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/08/24 20:19:06
Modified files:
scm : lily-library.scm output-ps.scm
Log message:
(grob-cause): escape spaces in URLs.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/lily-library.scm.diff?tr1=1.47&tr2=1.48&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/output-ps.scm.diff?tr1=1.149&tr2=1.150&r1=text&r2=text
Patches:
Index: lilypond/scm/lily-library.scm
diff -u lilypond/scm/lily-library.scm:1.47 lilypond/scm/lily-library.scm:1.48
--- lilypond/scm/lily-library.scm:1.47 Sat Aug 20 23:20:19 2005
+++ lilypond/scm/lily-library.scm Wed Aug 24 20:19:06 2005
@@ -364,7 +364,6 @@
(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)
Index: lilypond/scm/output-ps.scm
diff -u lilypond/scm/output-ps.scm:1.149 lilypond/scm/output-ps.scm:1.150
--- lilypond/scm/output-ps.scm:1.149 Wed Aug 24 19:56:09 2005
+++ lilypond/scm/output-ps.scm Wed Aug 24 20:19:06 2005
@@ -204,7 +204,7 @@
;; TODO
;; full escaping.
- (re-sub " " "%20" file)
+ (string-regexp-substitute " " "%20" file)
(cadr location)
(caddr location)
(cadddr location))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
