From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 21 Aug 2000 09:57:26 +0000 (+0200)
Subject: patch::: 1.3.80: Re: lily 1.3.80
X-Git-Tag: release/1.3.81~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c2c9c451c8f16592241798fe2cbd1a632d043a12;p=lilypond.git

patch::: 1.3.80: Re: lily 1.3.80
---

diff --git a/scm/slur.scm b/scm/slur.scm
index 476d3cc233..2574afd619 100644
--- a/scm/slur.scm
+++ b/scm/slur.scm
@@ -26,15 +26,16 @@
 (define slur-extremity-rules
   (list
 
-   ;; (cons (lambda (slur dir) (begin (display "before head") (newline))#f) #f)
+   ;; (cons (lambda (slur dir) (begin (display "before sanity check") (newline))#f) #f)
 
    ;; urg: don't crash on a slur without note-columns
    (cons (lambda (slur dir)
 	   (< (length (ly-get-elt-property slur 'note-columns)) 1)) 'head)
 
-   ;; urg: don't crash on a slur without note-columns
-   (cons (lambda (slur dir)
-	   (< (length (ly-get-elt-property slur 'note-columns)) 1)) 'head)
+   ;; (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 "before head") (newline))#f) #f)
 
    (cons (lambda (slur dir)
 	   ;; urg, code dup