From: hanwen <hanwen>
Date: Thu, 2 Mar 2006 15:38:57 +0000 (+0000)
Subject: (grob-cause): replace backslashes by /
X-Git-Tag: release/2.7.38^2~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=17d30f93199ca086f9803ae293d58863aed859df;p=lilypond.git

(grob-cause): replace backslashes by /
(glyph-string): use ~$ for less decimals for glyph-string and grob-cause.
---

diff --git a/ChangeLog b/ChangeLog
index 3352597293..7c59e3d9e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2006-03-02  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* scm/output-ps.scm (grob-cause): replace backslashes by /
+	(glyph-string): use ~$ for less decimals for glyph-string and grob-cause.
 
 2006-03-02  Jan Nieuwenhuizen  <janneke@gnu.org>
 
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index efc5ad3ca3..91c4dc55d6 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -154,7 +154,7 @@
 		       (g (cadddr item))
 		       (prefix (if  (string? g) "/" "")))
 
-		    (format #f " gsave ~a~a glyphshow grestore ~a ~a rmoveto \n" prefix g (+ w x) y)
+		    (format #f " gsave ~a~a glyphshow grestore ~$ ~$ rmoveto \n" prefix g (+ w x) y)
 		    ))
 		w-x-y-named-glyphs))))
 
@@ -174,7 +174,7 @@
 
 	  (if (and (< 0 (interval-length x-ext))
 		   (< 0 (interval-length y-ext)))
-	      (format "~a ~a ~a ~a (textedit://~a:~a:~a:~a) mark_URI\n"
+	      (format "~$ ~$ ~$ ~$ (textedit://~a:~a:~a:~a) mark_URI\n"
 		      (ly:number->string (+ (car offset) (car x-ext)))
 		      (ly:number->string (+ (cdr offset) (car y-ext)))
 		      (ly:number->string (+ (car offset) (cdr x-ext)))