From b7d319499197dd884b12521ede60ec06b5f52633 Mon Sep 17 00:00:00 2001
From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Sat, 18 Nov 2006 21:26:04 +0000
Subject: [PATCH] Emit a PageLabels dictionary to make it clear what page
 numbering scheme Halibut uses.

git-svn-id: svn://svn.tartarus.org/sgt/halibut@6912 cda61777-01e9-0310-a592-d414129be87e
---
 bk_pdf.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bk_pdf.c b/bk_pdf.c
index c4a65be..6ce0e5a 100644
--- a/bk_pdf.c
+++ b/bk_pdf.c
@@ -112,7 +112,7 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
 
     /*
      * The catalogue just contains references to the outlines and
-     * pages objects.
+     * pages objects, and the pagelabels dictionary.
      */
     objtext(cat, "<<\n/Type /Catalog");
     if (outlines) {
@@ -121,6 +121,8 @@ void pdf_backend(paragraph *sourceform, keywordlist *keywords,
     }
     objtext(cat, "\n/Pages ");
     objref(cat, pages);
+    /* Halibut just numbers pages 1, 2, 3, ... */
+    objtext(cat, "\n/PageLabels<</Nums[0<</S/D>>]>>");
     if (outlines)
 	objtext(cat, "\n/PageMode /UseOutlines");
     objtext(cat, "\n>>\n");
-- 
2.11.0