From 71761e3179daaa585b107d4b8ff2b966b3c75234 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Mon, 31 Jul 2000 16:52:47 +0000
Subject: [PATCH] lilypond-1.3.76

---
 scm/slur.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/scm/slur.scm b/scm/slur.scm
index 8eaafee36a..dadeb3056c 100644
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -25,6 +25,9 @@
 
 (define slur-extremity-rules
   (list
+
+   ;; (cons (lambda (slur dir) (begin (display "before head") (newline))#f) #f)
+
    (cons (lambda (slur dir)
 	   ;; urg, code dup
 	   (let* ((note-columns (ly-get-elt-property slur 'note-columns))
@@ -34,6 +37,8 @@
 		  (not (= (ly-get-elt-property slur 'direction) 
 			  (ly-get-elt-property stem 'direction))))))  'head)
 
+   ;; (cons (lambda (slur dir) (begin (display "before stem") (newline))#f) #f)
+
    (cons (lambda (slur dir)
 	   ;; if attached-to-stem
 	   (and (attached-to-stem slur dir)
@@ -52,7 +57,9 @@
 			     #f))))))
 	 'stem)
 
+   ;;(cons (lambda (slur dir) (begin (display "before loose-end") (newline))#f) #f)
    (cons (lambda (slur dir) (not (attached-to-stem slur dir)))  'loose-end)
+   ;; (cons (lambda (slur dir) (begin (display "after loose-end") (newline))#f) #f)
 
    ;; default case, attach to head
    (cons (lambda (x y) #t)  'head)
-- 
2.11.4.GIT