From: fred <fred>
Date: Wed, 27 Mar 2002 00:48:38 +0000 (+0000)
Subject: lilypond-1.3.127
X-Git-Tag: release/1.5.59~952
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=94edfb80cef335320f61215a4a9ef543371aea6e;p=lilypond.git

lilypond-1.3.127
---

diff --git a/input/bugs/script.ly b/input/bugs/script.ly
new file mode 100644
index 0000000000..b6b1b67d4e
--- /dev/null
+++ b/input/bugs/script.ly
@@ -0,0 +1,8 @@
+
+%  the \stopped collides with the
+%beam.
+
+
+\score { \notes {
+\clef "G"; \stemUp [a''8^\stopped a''8^\stopped]
+}}
diff --git a/input/bugs/staff-size.ly b/input/bugs/staff-size.ly
new file mode 100644
index 0000000000..12482575ee
--- /dev/null
+++ b/input/bugs/staff-size.ly
@@ -0,0 +1,20 @@
+
+	% separate staff-size is clumsy with \override.
+	
+\score {
+  \notes \relative c' < \context Voice {
+	\property Staff.staffSpace = #10
+	\property Staff.fontSize = #-1
+	\property Voice.fontSize = #-1
+	
+	\property Voice . dynamicDirection = \up \stemDown
+%\key gis \major;
+	c8 d [e f g a] b c \ff
+  }
+
+\context Staff = VB {  \property Voice . dynamicDirection = \down c,,4 \ff c c c  }
+
+>
+\paper { linewidth = -1.; }
+}
+\version "1.3.117"; 
diff --git a/input/bugs/triplets.ly b/input/bugs/triplets.ly
index 802727f22e..a29c59da62 100644
--- a/input/bugs/triplets.ly
+++ b/input/bugs/triplets.ly
@@ -6,6 +6,11 @@ texidoc="Simple beams.  This broke somewhere < 1.3.110
   filename = "gammes_chromatiques.ly";
 }
 
+%{
+	    - At bar 3 of 2nd score, stems are too big (or the beams are
+          badly positionned)
+%}
+
 linebreak = \penalty -1000;
 
 $ex8 = \notes \relative c' {
diff --git a/mf/feta-generic.mf b/mf/feta-generic.mf
index 32e4749708..4195416c33 100644
--- a/mf/feta-generic.mf
+++ b/mf/feta-generic.mf
@@ -1,4 +1,4 @@
-% 
+i% 
 % feta-generic.mf --  implement generic stuff: include lots of files, but don't
 %  set dims.
 %
@@ -40,9 +40,9 @@ else:
 %	input feta-bolletjes;	
 %	input feta-banier;
 %	input feta-eindelijk;
-%	input feta-klef;
+	input feta-klef;
 %	input feta-toevallig;
-	input feta-schrift;
+%	input feta-schrift;
 %	input feta-haak;
 %	input feta-timesig;
 %	input feta-pendaal;
diff --git a/scm/documentation-lib.scm b/scm/documentation-lib.scm
index 047dc03fdc..e69c04884f 100644
--- a/scm/documentation-lib.scm
+++ b/scm/documentation-lib.scm
@@ -13,6 +13,15 @@
 	  (uniqued-alist (cdr alist) (cons (car alist) acc)
   ))))
 
+(define (uniq-list list)
+  (if (null? list) '()
+      (if (null? (cdr list))
+	  list
+	  (if (equal? (car list) (cadr list))
+	      (uniq-list (cdr list))
+	      (cons (car list) (uniq-list (cdr list)))
+  
+  ))))
 
 (define (alist<? x y)
   (string<? (symbol->string (car x))
@@ -148,6 +157,8 @@ Add a ref if REF is set
   (string-append "@ref{" x "}"))
 
 (define (human-listify l)
+  "Produce a textual enumeration from L, a list of strings"
+  
   (cond
    ((null? l) "none")
    ((null? (cdr l)) (car l))
diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index 8e8ceff574..bd18c440f8 100644
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -43,7 +43,7 @@
 	  ""
 	  (string-append
 	   "This engraver creates the following grobs: \n "
-	   (human-listify (map ref-ify  objs))
+	   (human-listify (map ref-ify (uniq-list (sort  objs string<? ))))
 	   ".")
 	  )
 
@@ -110,7 +110,7 @@
     (string-append 
      desc
      "\n\nThis context creates the following grobs: \n\n"
-     (apply string-append (map (lambda (x) (string-append " " x "  ")) grob-refs))
+     (human-listify (uniq-list (sort grob-refs string<? )))
      "."
      
      (if (null? accepts)