summaryrefslogtreecommitdiffstats
path: root/library/mkpsenc.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/mkpsenc.tcl')
-rw-r--r--library/mkpsenc.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/mkpsenc.tcl b/library/mkpsenc.tcl
index e7fce19..bc3c243 100644
--- a/library/mkpsenc.tcl
+++ b/library/mkpsenc.tcl
@@ -10,7 +10,7 @@ proc ::tk::CreatePostscriptEncoding {encoding} {
for {set i 0} {$i<256} {incr i 8} {
for {set j 0} {$j<8} {incr j} {
set enc [encoding convertfrom $encoding [format %c [expr {$i+$j}]]]
- if {[catch {format %04X [scan $enc %c]} hexcode]} continue
+ if {[catch {format %04X [scan $enc %c]} hexcode]} {set hexcode {}}
if [info exists ::tk::psglyphs($hexcode)] {
append result "/$::tk::psglyphs($hexcode)"
} else {
@@ -1089,7 +1089,7 @@ append ps_preamable {
50 dict begin
% This is a standard prolog for Postscript generated by Tk's canvas
% widget.
-% RCS: @(#) $Id: mkpsenc.tcl,v 1.2 2002/07/19 14:27:45 drh Exp $
+% RCS: @(#) $Id: mkpsenc.tcl,v 1.3 2002/07/19 14:37:21 drh Exp $
% The definitions below just define all of the variables used in
% any of the procedures here. This is needed for obscure reasons