* python/lilylib.py (make_ps_images): bugfixes; GS can produce

[lilypond.git] / scm / output-tex.scm

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 6537a688e43fda373dc331be1c01709876cc4a47..960d62d439220f0b1f192489c28657529a7158bf 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -192,7 +192,21 @@
 ;; no-origin not yet supported by Xdvi
 (define (no-origin) "")
 
+
+
+
+(define-public (line-location  file line col)
+  "Print an input location, without column number ."
+  (string-append (number->string line) " " file))
+
+(define-public point-and-click #f)
+
 (define (grob-cause offset grob)
+  (define (line-column-location file line col)
+    "Print an input location, including column number ."
+    (string-append (number->string line) ":"
+                  (number->string col) " " file))
+
   (if (procedure? point-and-click)
       (let* ((cause (ly:grob-property grob 'cause))
             (music-origin (if (ly:music? cause)
@@ -202,6 +216,6 @@
        (if (pair? location)
             ;;; \\string ? 
            (string-append "\\special{src:"
-                          (apply point-and-click location) "}")
+                          (line-column-location location) "}")
            ""))
       ""))