If you're going to change the metrics of a font, it's necessary to leave space

in the new font dictionary for the Metrics entry.  This is mentioned in the
first edition of the Red Book, but not the second.

git-svn-id: svn://svn.tartarus.org/sgt/halibut@4577 cda61777-01e9-0310-a592-d414129be87e

diff --git a/bk_ps.c b/bk_ps.c
index 0f8bc99..af7fde8 100644 (file)
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -109,7 +109,8 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
        sprintf(fname, "f%d", font_index++);
        fe->name = dupstr(fname);
 
-       fprintf(fp, "/%s findfont dup length dict begin\n", fe->font->name);
+       fprintf(fp, "/%s findfont dup length 1 add dict begin\n",
+           fe->font->name);
        fprintf(fp, "{1 index /FID ne {def} {pop pop} ifelse} forall\n");
        fprintf(fp, "/Encoding [\n");
        for (i = 0; i < 256; i++)