From: fred <fred>
Date: Tue, 26 Mar 2002 23:25:38 +0000 (+0000)
Subject: lilypond-1.3.76
X-Git-Tag: release/1.5.59~1429
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=db7a6a0c142e25f12b24508e3042cf490ac68f04;p=lilypond.git

lilypond-1.3.76
---

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)