From: fred <fred>
Date: Wed, 27 Mar 2002 00:57:41 +0000 (+0000)
Subject: lilypond-1.3.138
X-Git-Tag: release/1.5.59~865
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a50bd52a6a2bb125cf321c8ef944f009a96a92e2;p=lilypond.git

lilypond-1.3.138
---

diff --git a/Documentation/regression-test.tely b/Documentation/regression-test.tely
index 470b7cec0f..91fc390181 100644
--- 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
index 0000000000..c3c131aa08
--- /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
index 0000000000..8d16f8b420
--- /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
index 0000000000..663856a909
--- /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 b21356f96e..862a1da057 100644
--- 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))))