lilypond-1.3.138

diff --git a/Documentation/regression-test.tely b/Documentation/regression-test.tely
index 470b7cec0f7403ee913132670e0b916c4b07dca0..91fc39018165bf48314d2fe696fddcdfc909cf2e 100644 (file)
--- a/Documentation/regression-test.tely
+++ b/Documentation/regression-test.tely
@@ -109,7 +109,7 @@ and documenting bugfixes.
 
 @lilypondfile[printfilename]{slur-attachment-override.ly}
 
-@lilypondfile[printfilename]{ophee-slurs.ly}
+@lilypondfile[printfilename]{drarn-slurs.ly}
 
 @lilypondfile[printfilename]{phrasing-slur.ly}
 

diff --git a/input/bugs/drarn.ly b/input/bugs/drarn.ly
new file mode 100644 (file)
index 0000000..c3c131a
--- /dev/null
+++ b/input/bugs/drarn.ly
@@ -0,0 +1,23 @@
+%% oops, weird small ties
+
+\score {
+  \context Staff \notes <
+    \time 3/8;
+    \context Voice=one \relative c'' {
+      \property Voice.Stem \set #'direction = #1
+      \property Voice.Tie \set #'direction = #1
+      \property Voice.Slur \set #'direction = #1
+      \property Voice.Slur \set #'attachment = #'(head . head)
+      c8~c()c  
+    }
+    \context Voice=two \relative c'' {
+      \property Voice.Stem \set #'direction = #-1
+      \property Voice.Tie \set #'direction = #-1
+      \property Voice.Slur \set #'direction = #-1
+      \property Voice.Slur \set #'attachment = #'(head . head)
+      a8()a~a  
+    }
+  >
+  \paper { linewidth = -1.; } 
+%  \paper { linewidth = 40*\staffspace; } 
+}

diff --git a/input/test/drarn.ly b/input/test/drarn.ly
new file mode 100644 (file)
index 0000000..8d16f8b
--- /dev/null
+++ b/input/test/drarn.ly
@@ -0,0 +1,21 @@
+
+\score {
+  \context Staff \notes <
+    \time 3/8;
+    \context Voice=one \relative c'' {
+      \property Voice.Stem \set #'direction = #1
+      \property Voice.Tie \set #'direction = #1
+      \property Voice.Slur \set #'direction = #1
+      \property Voice.Slur \set #'attachment = #'(head . head)
+      c8~c()c  
+    }
+    \context Voice=two \relative c'' {
+      \property Voice.Stem \set #'direction = #-1
+      \property Voice.Tie \set #'direction = #-1
+      \property Voice.Slur \set #'direction = #-1
+      \property Voice.Slur \set #'attachment = #'(head . head)
+      a8()a~a  
+    }
+  >
+  \paper { linewidth = 40*\staffspace; } 
+}

diff --git a/input/tricks/drarn-slurs.ly b/input/tricks/drarn-slurs.ly
new file mode 100644 (file)
index 0000000..663856a
--- /dev/null
+++ b/input/tricks/drarn-slurs.ly
@@ -0,0 +1,19 @@
+
+\header{
+texidoc="
+Slurs can be forced to always attach to note heads.
+";
+}
+
+fragment = \notes {
+  \property Voice.Slur \set #'direction = #1
+  \property Voice.Slur \set #'attachment = #'(head . head)
+  g''16()g()g()g()d'()d()d()d
+}
+
+\paper { linewidth = -1.; } 
+
+\score {
+  \notes\relative c \fragment
+  \paper { }  
+}

diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index b21356f96e6084c2250f61d0ff3869d6ff239377..862a1da057efa2af56a5a1a8ae1df7077cfebe5c 100644 (file)
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -60,7 +60,7 @@
                                            (cdr (assoc 'consists x))
                                            (cdr (assoc 'end-consists x)))))
 
-                            (if (member name-sym consists)
+                            (if (member name consists)
                                 (list context)
                                 '())))
                         context-description-alist))))