From 47a56e08501ec9375f75c15e35a68c77b313ada4 Mon Sep 17 00:00:00 2001
From: Chris Wilson <chris@chris-wilson.co.uk>
Date: Wed, 10 Sep 2008 16:51:52 +0100
Subject: [PATCH] [type1] Bind the RD procedure

As the RD procedure may be called several hundred times for a full font,
it is worth binding.
---
 src/cairo-type1-fallback.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cairo-type1-fallback.c b/src/cairo-type1-fallback.c
index 83ddc448a..1f39a3f00 100644
--- a/src/cairo-type1-fallback.c
+++ b/src/cairo-type1-fallback.c
@@ -590,7 +590,7 @@ cairo_type1_font_write_private_dict (cairo_type1_font_t *font,
     _cairo_output_stream_printf (encrypted_output,
                                  "    dup /Private 9 dict dup begin\n"
                                  "/RD {string currentfile exch readstring pop}"
-                                 " executeonly def\n"
+                                 " bind executeonly def\n"
                                  "/ND {noaccess def} executeonly def\n"
                                  "/NP {noaccess put} executeonly def\n"
                                  "/BlueValues [] def\n"