From: Patrick McCarty <pnorcks@gmail.com>
Date: Fri, 29 Jan 2010 02:22:39 +0000 (-0800)
Subject: Thinko in fix for #887.
X-Git-Tag: release/2.13.12-1~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=819735f71a2c1e4bf82dbd1cc4ff382f862c997f;p=lilypond.git

Thinko in fix for #887.

ly:string-substitute must be called on the filename before
ly:string-percent-encode to properly substitute forward slashes for
backslashes.
---

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 5cedc80a05..5b5a21c7f3 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -164,8 +164,8 @@
 
 			     ;; Backslashes are not valid
 			     ;; file URI path separators.
-			     (ly:string-substitute
-			       "\\" "/" (ly:string-percent-encode file))
+			     (ly:string-percent-encode
+			       (ly:string-substitute "\\" "/" file))
 
 			     (cadr location)
 			     (caddr location)