From 500b1dab3cdfc2c204fbf970c3de7b638afac29d Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 00:34:07 +0000
Subject: [PATCH] lilypond-1.3.114

---
 scm/lily.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/scm/lily.scm b/scm/lily.scm
index 5036a2af4c..7243adeae8 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -16,6 +16,9 @@
 
 (debug-enable 'backtrace)
 
+
+(define point-and-click #f)
+
 ;;; library funtions
 
 (use-modules (ice-9 regex))
@@ -391,18 +394,19 @@
 
   (define (define-origin file line col)
     ; use this for column positions
+    (if point-and-click
      (string-append "\\special{src:" (number->string line) ":"
         (number->string col) " " file "}"
 	 ;; arg, the clueless take over the mailing list...
 ;	 "\\special{-****-These-warnings-are-harmless-***}"
 ;	 "\\special{-****-PLEASE-read-http://appel.lilypond.org/wiki/index.php3?PostProcessing-****}"
 	)
+     "")
 
      ; line numbers only:
     ;(string-append "\\special{src:" (number->string line) " " file "}")
 )
-    ; no origin  info: return empty string
-    ; ""
+
   ; no-origin not yet supported by Xdvi
   (define (no-origin) "")
   
-- 
2.39.5