(pango_item_string_stencil): more verbose message.

diff --git a/ChangeLog b/ChangeLog
index b067a8a298e564ef219eb763449479ed0d3de895..2a9f2622fecdba7d39f371ea215e3672ab4b5e8c 100644 (file)
--- 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 b86f9ac118cb712039affbe23606ba607545ee85..0d775af5386893e2b758492a49ab7d5f855ace5f 100644 (file)
--- 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 6c5735fec83d18df443a3a926927979e844e9911..8c1d7d00c1b30349f6dba6b3bc7adebc07159a62 100644 (file)
--- 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 960b78031d7fb3acf393987c2dfb7dd7d52a46b5..fc04991a58d183b56db6cfbbba94030feb475575 100644 (file)
--- 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 fbab6a03a2ea9001c1ffb3bad39800a528bb1bb8..9207b181fb0ea5ef49f35c5beb500f4fe6572d73 100644 (file)
--- 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 1e6f407b0963f3e33b668f2847f5c67b592c3081..ceb057e47dd798e0c363e1ba6fb0e2953a8a045d 100644 (file)
--- 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)