From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 14 Oct 2006 18:17:23 +0000 (+0000)
Subject: (pango_item_string_stencil): more verbose message.
X-Git-Tag: release/2.10.0-2~175
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e5050b78a21cac6d786873eed0ed0e4444b17d13;p=lilypond.git

(pango_item_string_stencil): more verbose message.
---

diff --git a/ChangeLog b/ChangeLog
index b067a8a298..2a9f2622fe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-14  Han-Wen Nienhuys  <hanwen@lilypond.org>
+
+	* lily/pango-font.cc (pango_item_string_stencil): more verbose message.
+
 2006-10-13  Erlend Aasland  <erlenda@gmail.com>
 
 	* lily/note-collision.cc: fix issue #44 (dot/notehead collision)
diff --git a/input/regression/clip-systems.ly b/input/regression/clip-systems.ly
index b86f9ac118..0d775af538 100644
--- a/input/regression/clip-systems.ly
+++ b/input/regression/clip-systems.ly
@@ -14,8 +14,7 @@ collated-files.html of the regression test does not adequately show
 the results.
 
 The result will be files named
-@file{@var{base}-system-@var{systemnumber}-@var{start}-@var{end}.eps}.
-
+@file{@var{base}-from-@var{start}-to-@var{end}[-@var{count}].eps}.
 "
 
 }
diff --git a/lily/pango-font.cc b/lily/pango-font.cc
index 6c5735fec8..8c1d7d00c1 100644
--- a/lily/pango-font.cc
+++ b/lily/pango-font.cc
@@ -181,8 +181,10 @@ Pango_font::pango_item_string_stencil (PangoItem const *item, string str,
 
       if (glyph_name[0] ==  '\0' && has_glyph_names)
 	{
-	  programming_error ("Glyph has no name, but font supports glyph naming. Skipping glyph: "
-			     + description_string ());
+	  programming_error (_f ("Glyph has no name, but font supports glyph naming.\n"
+				 "Skipping glyph %0x, file %s",
+				 pg,
+				 file_name.c_str ()));
 	  continue;
 	}
 	  
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 960b78031d..fc04991a58 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -274,10 +274,6 @@ grestore
 ;; basic formatting.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define (list-join lst intermediate)
-  (reduce (lambda (elt prev)
-	    (if (pair? prev) (cons  elt (cons intermediate prev))
-		(list elt intermediate prev))) '() lst))
 
 
 (define-markup-command (simple layout props str) (string?)
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index fbab6a03a2..9207b181fb 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -409,7 +409,6 @@
 	     (sort (apply append all-font-names)
 		   (lambda (x y) (string<? (cadr x) (cadr y))))))
 
-
 	   (font-loader (if (ly:get-option 'gs-load-fonts)
 			    load-font-via-GS
 			    load-font))
diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 1e6f407b09..ceb057e47d 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -231,6 +231,16 @@ found."
 ;; list
 
 
+(define (list-join lst intermediate)
+  "put INTERMEDIATE  between all elts of LST."
+  
+  (reduce (lambda (elt prev)
+	    (if (pair? prev)
+		(cons  elt (cons intermediate prev))
+		(list elt intermediate prev)))
+	  '() lst))
+
+
 (define-public (filtered-map proc lst)
   (filter
    (lambda (x) x)