diff-tree a641ce9cfd9beeabe4932bfe23039168432d6872 (from e669606a8b7b340a3f937e011d26f7522a94fb3f) Author: Johannes Schindelin Date: Tue Mar 7 13:19:10 2006 +0100 fix point-and-click diff --git a/scm/output-ps.scm b/scm/output-ps.scm index 6b7a86b..4898de5 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -175,10 +175,10 @@ (if (and (< 0 (interval-length x-ext)) (< 0 (interval-length y-ext))) (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))) - (ly:number->string (+ (cdr offset) (cdr y-ext))) + (+ (car offset) (car x-ext)) + (+ (cdr offset) (car y-ext)) + (+ (car offset) (cdr x-ext)) + (+ (cdr offset) (cdr y-ext)) ;; TODO ;;full escaping.