summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2022-11-27 04:11:08 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2022-11-27 04:11:08 +0000
commit641523caae5f95691407e52d350ec6be833b6373 (patch)
treecacebf34a0b38a8689310e9eb874e9f16687bbdf /Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps
parentc46d016a0c497ab7f44424f32d8133cd0df67d38 (diff)
gs: recover gs 9.56.1
git-svn-id: svn://tug.org/texlive/trunk@65113 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps')
-rw-r--r--Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps9
1 files changed, 2 insertions, 7 deletions
diff --git a/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps b/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps
index 1b1f852aa49..aaee616f4af 100644
--- a/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps
+++ b/Master/tlpkg/tlgs/Resource/Init/gs_fonts.ps
@@ -1,4 +1,4 @@
-% Copyright (C) 2001-2022 Artifex Software, Inc.
+% Copyright (C) 2001-2021 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
@@ -432,7 +432,6 @@ FONTPATH
/FONTMAP where
{
dup /FONTMAP get /FONTMAP exch [ exch //.pathlist exec] put
- /FONTMAP dup where pop exch get {/PermitFileReading exch .addcontrolpath} forall
} if
% Try to enumerate native fonts registered with the os
@@ -930,14 +929,10 @@ FAKEFONTS not { (%END FAKEFONTS) .skipeof } if
} if
% No aliasing.
% This mode is incompatible with high level devices.
- defaultfontname /None eq { /findfont cvx /invalidfont signalerror } if
cleartomark mark defaultfontname
} {
dup .substitutefont
- 2 copy eq {
- defaultfontname /None eq { /findfont cvx /invalidfont signalerror } if
- pop defaultfontname
- } if
+ 2 copy eq { pop defaultfontname } if
//.checkalias exec
QUIET not {
SHORTERRORS {