Undef .completefont

    - make it an operator
    - make sure all procedures that use it are executeonly
    - undef in gs_init.ps

3 files changed, 5 insertions, 4 deletions

diff --git a/Resource/Init/gs_fonts.ps b/Resource/Init/gs_fonts.ps
index d2cd21e10..1fa156913 100644
--- a/Resource/Init/gs_fonts.ps
+++ b/Resource/Init/gs_fonts.ps
@@ -509,7 +509,7 @@ buildfontdict 3 /.buildfont3 cvx put
       } if
       readonly          % stack: name fontdict
   } stopped { $error /command get /invalidfont signalerror } if
-} bind def
+} bind executeonly odef
 /definefont
  { dup rcheck not {
       /definefont cvx /invalidaccess signalerror
@@ -527,7 +527,7 @@ buildfontdict 3 /.buildfont3 cvx put
                 % If the font originated as a resource, register it.
    currentfile .currentresourcefile eq { dup .registerfont } if
    readonly
- } odef
+ } .bind executeonly odef
 
 % Define a procedure for defining aliased fonts.
 % We use this only for explicitly aliased fonts, not substituted fonts:
@@ -579,7 +579,7 @@ buildfontdict 3 /.buildfont3 cvx put
     }
    ifelse
    exch setglobal
- } odef         % so findfont will bind it
+ } bind executeonly odef         % so findfont will bind it
 
 % Define .loadfontfile for loading a font.  If we recognize Type 1 and/or
 % TrueType fonts, gs_type1.ps and/or gs_ttf.ps will redefine this.
diff --git a/Resource/Init/gs_init.ps b/Resource/Init/gs_init.ps
index c4f618d51..6f5f58933 100644
--- a/Resource/Init/gs_init.ps
+++ b/Resource/Init/gs_init.ps
@@ -2277,6 +2277,7 @@ SAFER { .setsafeglobal } if
   /.type1build
   /.origdefinefont /.origundefinefont /.origfindfont
   /.buildnativefontmap
+  /.completefont
 
   % Used by a free user in the Library of Congress. Apparently this is used to
   % draw a partial page, which is then filled in by the results of a barcode
diff --git a/Resource/Init/gs_ttf.ps b/Resource/Init/gs_ttf.ps
index 2f292996f..4c6434121 100644
--- a/Resource/Init/gs_ttf.ps
+++ b/Resource/Init/gs_ttf.ps
@@ -1980,4 +1980,4 @@ currentdict /postalias undef
   dup /FontName font_name put        % replace any definition of /FontName
   end end
  .completefont
-} bind def
+} bind executeonly def