texlive[44032] Master/tlpkg/tlgs/Resource/Init/gs_init.ps: replace

[commits+kakuto at tug.org]

Revision: 44032
          http://tug.org/svn/texlive?view=revision&revision=44032
Author:   kakuto
Date:     2017-04-25 08:20:30 +0200 (Tue, 25 Apr 2017)
Log Message:
-----------
replace gs_init.ps for the installed binary

Modified Paths:
--------------
    trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps

Modified: trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps
===================================================================
--- trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps	2017-04-25 00:06:50 UTC (rev 44031)
+++ trunk/Master/tlpkg/tlgs/Resource/Init/gs_init.ps	2017-04-25 06:20:30 UTC (rev 44032)
@@ -170,6 +170,8 @@
 currentdict /ORIENT1 known not { /ORIENT1 //true def } if
 currentdict /OSTACKPRINT known   /OSTACKPRINT exch def
 currentdict /OUTPUTFILE known	% obsolete
+currentdict /WINKANJI known /WINKANJI exch def
+currentdict /NOWINKANJI known /NOWINKANJI exch def
  { /OutputFile /OUTPUTFILE load def
    currentdict /OUTPUTFILE .undef
  } if
@@ -2136,6 +2138,15 @@
 % procedures are writable.
 //false setpacking
 
+% Load the kanji font environment.
+NOWINKANJI not {
+  WINKANJI {
+    (metrics2.ps) runlibfile
+    (kinit.ps) runlibfile
+    1048576 setcachelimit
+  } if
+} if
+
 (END INIT) VMDEBUG
 
 /.currentuserparams where {