patch::: 1.3.80: Re: lily 1.3.80

diff --git a/scm/slur.scm b/scm/slur.scm
index 476d3cc233a9a159bf726215b6c1a7d33899a318..2574afd6191d1ee4da003b288ac245193c6a64d6 100644 (file)
--- 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